Finished -chop-v, -chop-h

2024-02-05 15:29:54 +00:00 · 2024-02-05 15:29:54 +00:00 · e57dac3e4c
parent 71ee3fa529
commit e57dac3e4c
1 changed files with 1 additions and 0 deletions
--- 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