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

more

Browse Source
This commit is contained in:
John Whitington
2023-05-10 19:11:31 +01:00
parent 8d49306a70
commit f78b5807f8
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfdraw.ml
View File

@ -306,10 +306,12 @@ let draw ~filename ~bates ~batespad fast range pdf drawops =
(res ()).time <- Cpdfstrftime.current_time (); (res ()).time <- Cpdfstrftime.current_time ();
let pdf = ref pdf in let pdf = ref pdf in
let range = ref range in let range = ref range in
(* Double up a trailing NewPage so it actually does something... *)
let drawops = match rev drawops with NewPage::t -> rev (NewPage::NewPage::t) | l -> l in
let chunks = ref (split_around (eq NewPage) drawops) in let chunks = ref (split_around (eq NewPage) drawops) in
while !chunks <> [] do while !chunks <> [] do
reset_state (); reset_state ();
pdf := draw_single ~filename ~bates ~batespad fast !range !pdf (hd !chunks); if hd !chunks <> [] then pdf := draw_single ~filename ~bates ~batespad fast !range !pdf (hd !chunks);
chunks := tl !chunks; chunks := tl !chunks;
if !chunks <> [] then begin if !chunks <> [] then begin
let endpage = Pdfpage.endpage !pdf in let endpage = Pdfpage.endpage !pdf in

1
cpdfpad.ml
View File

@ -101,4 +101,3 @@ let padmultiple n pdf =
Pdfpage.change_pages ~changes true pdf (if neg then blankpages @ pages else pages @ blankpages) Pdfpage.change_pages ~changes true pdf (if neg then blankpages @ pages else pages @ blankpages)
else else
pdf pdf