From e57dac3e4c638e89299b551a88879d31ada41bc9 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 5 Feb 2024 15:29:54 +0000
Subject: [PATCH] Finished -chop-v, -chop-h

---
 cpdfchop.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cpdfchop.ml b/cpdfchop.ml
index 92c700a..016a194 100644
--- a/cpdfchop.ml
+++ b/cpdfchop.ml
@@ -72,6 +72,7 @@ let chop_inner ~line ~x ~y ~columns ~btt ~rtl pdf range =
         (ilist 1 (Pdfpage.endpage pdf))
         pages)
   in
+  let x, y = if x = 0 || y = 0 then 1, 2 else x, y in (* Fix up for -chop-v, -chop-h *)
   let changes =
     let q = ref 0 in
       flatten