From f192a99a35e598c34683a8f2beb4ce78ec99eedd Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 3 May 2023 13:53:48 +0100
Subject: [PATCH] more

---
 cpdfcommand.ml | 7 +++++--
 cpdfdraw.ml    | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 474b9bb..9fb3d5b 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -4468,7 +4468,9 @@ let go () =
       if !tdeep <> 0 then error "Unmatched -bt / -et" else
       let pdf = get_single_pdf args.op false in
       let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
-        write_pdf false (Cpdfdraw.draw ~filename:args.original_filename ~bates:args.bates ~batespad:args.batespad args.fast range pdf (rev (Hashtbl.find drawops "_")))
+        write_pdf
+          false
+          (Cpdfdraw.draw ~filename:args.original_filename ~bates:args.bates ~batespad:args.batespad args.fast range pdf (rev (Hashtbl.find drawops "_")))
   | Some (Composition json) ->
       let pdf = get_single_pdf args.op false in
       let filesize =
@@ -4574,7 +4576,8 @@ let go_withargv argv =
              args.inputs <- rev (map addrange !output_pdfs) @ rev args.inputs;
              output_pdfs := [];
              go ();
-             Hashtbl.clear drawops
+             Hashtbl.clear drawops;
+             Hashtbl.add drawops "_" []
              )
          sets;
       flush stdout; (*r for Windows *)
diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index c79f2cd..2e99662 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -189,7 +189,7 @@ let draw_single ~filename ~bates ~batespad fast range pdf drawops =
   let pdf = ref pdf in
     iter2
       (fun n s ->
-        if mem n range then (Printf.printf "Adding ops to page %i\n" n; pdf := Cpdftweak.append_page_content s false fast [n] !pdf))
+        if mem n range then pdf := Cpdftweak.append_page_content s false fast [n] !pdf)
       (ilist 1 endpage)
       ss;
   let pdf = !pdf in