fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2021-10-18 18:33:52 +01:00
parent 66e3d3aa1a
commit 73dba40576
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfcommand.ml
View File

@ -3327,6 +3327,8 @@ let collate (names, pdfs, ranges) =
done; done;
split3 (rev !nis) split3 (rev !nis)
let impose fit columns rtl btt center margin spacing linewidth pdf = pdf
(* Main function *) (* Main function *)
let go () = let go () =
match args.op with match args.op with
@ -4030,8 +4032,11 @@ let go () =
write_pdf false (Cpdf.twoup args.fast (get_single_pdf args.op false)) write_pdf false (Cpdf.twoup args.fast (get_single_pdf args.op false))
| Some TwoUpStack -> | Some TwoUpStack ->
write_pdf false (Cpdf.twoup_stack args.fast (get_single_pdf args.op false)) write_pdf false (Cpdf.twoup_stack args.fast (get_single_pdf args.op false))
| Some Impose x -> | Some Impose fit ->
write_pdf false (get_single_pdf args.op false) write_pdf false
(impose fit args.impose_columns args.impose_rtl args.impose_btt args.impose_center
args.impose_margin args.impose_spacing args.impose_linewidth
(get_single_pdf args.op false))
| Some (StampOn over) -> | Some (StampOn over) ->
let overpdf = let overpdf =
match over with match over with