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 2023-04-03 16:27:04 +01:00
parent cd4060c98e
commit 32e4359a24
3 changed files with 31 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
cpdfmanual.pdf
View File

Binary file not shown.

1
cpdfmanual.tex
View File

@ -2736,6 +2736,7 @@ that the media box is unchanged.
\vspace{2.5mm} \vspace{2.5mm}
\noindent Impose a document two-up, keeping the existing page size. \noindent Impose a document two-up, keeping the existing page size.
\vspace{2.5mm}
\small\verb!cpdf -twoup-stack in.pdf -o out.pdf! \small\verb!cpdf -twoup-stack in.pdf -o out.pdf!
\vspace{2.5mm} \vspace{2.5mm}

9
cpdfpage.ml
View File

@ -2,9 +2,8 @@ open Pdfutil
open Cpdferror open Cpdferror
(* When we transfor a page by wrapping in an [Op_cm], we must also (* When we transfor a page by wrapping in an [Op_cm], we must also
invert any /Matrix entries in pattern dictionaries, including inside xobjects *) change any /Matrix entries in pattern dictionaries, including inside xobjects *)
let rec change_pattern_matrices_resources pdf tr resources = let rec change_pattern_matrices_resources pdf tr resources =
try
begin match Pdf.lookup_direct pdf "/XObject" resources with begin match Pdf.lookup_direct pdf "/XObject" resources with
| Some (Pdf.Dictionary elts) -> | Some (Pdf.Dictionary elts) ->
iter iter
@ -33,10 +32,6 @@ let rec change_pattern_matrices_resources pdf tr resources =
Pdf.add_dict_entry resources "/Pattern" (Pdf.Dictionary entries) Pdf.add_dict_entry resources "/Pattern" (Pdf.Dictionary entries)
| _ -> resources | _ -> resources
end end
with
Pdftransform.NonInvertable ->
Printf.eprintf "Warning: noninvertible matrix\n%!";
resources
and change_pattern_matrices_xobject pdf tr k v i = and change_pattern_matrices_xobject pdf tr k v i =
match Pdf.lookup_direct pdf "/Subtype" v with match Pdf.lookup_direct pdf "/Subtype" v with
@ -643,7 +638,7 @@ let stamp relative_to_cropbox position topline midline fast scale_to_fit isover
let new_marks = map (Cpdfbookmarks.change_bookmark changetable) marks in let new_marks = map (Cpdfbookmarks.change_bookmark changetable) marks in
Pdfmarks.add_bookmarks new_marks changed Pdfmarks.add_bookmarks new_marks changed
(* Combine pages from two PDFs. For now, assume equal length. *) (* Combine pages from two PDFs. For now, assume equal length. FIXME: Why? *)
(* If [over] has more pages than [under], chop the excess. If the converse, pad (* If [over] has more pages than [under], chop the excess. If the converse, pad
[over] to the same length *) [over] to the same length *)