more

2021-12-14 14:19:58 +00:00 · 2021-12-14 14:19:58 +00:00 · f116c0b840
parent dcaa04affa
commit f116c0b840
1 changed files with 4 additions and 1 deletions
--- a/cpdftype.ml
+++ b/cpdftype.ml
@ -160,8 +160,11 @@ let paginate tmargin bmargin papersize i =
       s.fontsize <- fs;
       o := Font (f, fs)::!o
   | NewPage ->
-       s.ypos <- tmargin;
+       s.ypos <- tmargin +. s.fontsize;
       o := NewPage::!o
+   | BeginDocument ->
+       s.ypos <- tmargin +. s.fontsize;
+       o := BeginDocument::!o
   | x -> o := x::!o
  in
    iter process i;