From 56a68c57cb73f1cacf6652476f88b8e4ce667168 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 10 Sep 2024 17:03:58 +0100
Subject: [PATCH] Working with multiple text objects, multiple pages

---
 cpdfdraw.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index f1a8bc0..2bc5ca2 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -522,9 +522,9 @@ let draw ~struct_tree ~fast ~underneath ~filename ~bates ~batespad range pdf dra
   let drawops = match rev drawops with NewPage::t -> rev (NewPage::NewPage::t) | _ -> drawops in
   let chunks = ref (split_around (eq NewPage) drawops) in
   dryrun ~filename ~bates ~batespad !range !pdf !chunks;
-  mcidr := -1;
   mcpage := 0;
     while !chunks <> [] do
+      mcidr := -1;
       mcpage += 1;
       structdata =| StDataPage !mcpage;
       reset_state ();