fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Finished -chop-v, -chop-h

Browse Source
This commit is contained in:
John Whitington
2024-02-05 15:29:54 +00:00
parent 71ee3fa529
commit e57dac3e4c
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
cpdfchop.ml
View File

@ -72,6 +72,7 @@ let chop_inner ~line ~x ~y ~columns ~btt ~rtl pdf range =
(ilist 1 (Pdfpage.endpage pdf)) (ilist 1 (Pdfpage.endpage pdf))
pages) pages)
in 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 changes =
let q = ref 0 in let q = ref 0 in
flatten flatten