From f116c0b840008ebd4477e0a105345b9eed963ecd Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 14 Dec 2021 14:19:58 +0000
Subject: [PATCH] more

---
 cpdftype.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/cpdftype.ml b/cpdftype.ml
index a2c242f..1bccc66 100644
--- 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;