Cosmetics
authormalc <av1474@comtv.ru>
Wed, 16 Jan 2013 21:23:53 +0000 (17 01:23 +0400)
committermalc <av1474@comtv.ru>
Wed, 16 Jan 2013 21:23:53 +0000 (17 01:23 +0400)
main.ml

diff --git a/main.ml b/main.ml
index df91c59..3c092c1 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -2527,9 +2527,9 @@ let act cmds =
       let top, dtop =
         if conf.presentation
         then (0.0, 1.0)
-        else float t, 0.0
+        else float t /. float h, 0.0
       in
-      state.anchor <- (n, top /. float h, dtop)
+      state.anchor <- (n, top, dtop)
 
   | "info" ->
       state.docinfo <- (1, args) :: state.docinfo