From d576946270873437665ad9ed97df3eb0fc13330c Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sat, 31 Aug 2024 19:06:48 +0100
Subject: [PATCH] Allow units in ChopH/ChopV

---
 cpdfcommand.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 04f1f89..b9f1edd 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1652,10 +1652,10 @@ let setchop s =
   setop (Chop (int_of_float x, int_of_float y)) ()
 
 let setchopv x =
-  setop (ChopHV (false, x)) ()
+  setop (ChopHV (false, Cpdfcoord.parse_single_number (Pdf.empty ()) x)) ()
 
 let setchoph y =
-  setop (ChopHV (true, y)) ()
+  setop (ChopHV (true, Cpdfcoord.parse_single_number (Pdf.empty ()) y)) ()
 
 let setreplacedictentry s =
   setop (ReplaceDictEntry s) ()
@@ -2311,10 +2311,10 @@ and specs =
       Arg.String setchop,
       " Chop x by y");
    ("-chop-h",
-      Arg.Float setchoph,
+      Arg.String setchoph,
       " Chop horizontally");
    ("-chop-v",
-      Arg.Float setchopv,
+      Arg.String setchopv,
       " Chop horizontally");
    ("-chop-columns",
       Arg.Unit (fun () -> args.impose_columns <- true),