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

-stamp-on, -stamp-under now work via -relative-to-cropbox command line switch

This commit is contained in:
John Whitington 2016-01-08 12:28:07 +00:00
parent 18aea65d7e
commit 632b739958
3 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
cpdf.ml
View File

@ -2140,7 +2140,7 @@ let stamp_shift_of_position topline midline sw sh w h p =
| Diagonal | ReverseDiagonal | Centre ->
half w -. half sw, half h -. half sh -. dy
let do_stamp fast position topline midline scale_to_fit isover pdf o u opdf =
let do_stamp relative_to_cropbox fast position topline midline scale_to_fit isover pdf o u opdf =
(* Scale page stamp o to fit page u *)
let sxmin, symin, sxmax, symax =
Pdf.parse_rectangle
@ -2166,9 +2166,9 @@ let do_stamp fast position topline midline scale_to_fit isover pdf o u opdf =
let scale_op =
Pdfops.Op_cm
(Pdftransform.matrix_of_transform
[Pdftransform.Translate (dx, dy);
Pdftransform.Translate (txmin, tymin);
Pdftransform.Scale ((sxmin, symin), scale, scale)])
([Pdftransform.Translate (dx, dy)] @
(if relative_to_cropbox then [Pdftransform.Translate (txmin, tymin)] else []) @
[Pdftransform.Scale ((sxmin, symin), scale, scale)]))
in
Pdfpage.prepend_operators pdf [scale_op] ~fast o
else
@ -2180,8 +2180,8 @@ let do_stamp fast position topline midline scale_to_fit isover pdf o u opdf =
let translate_op =
Pdfops.Op_cm
(Pdftransform.matrix_of_transform
[Pdftransform.Translate (txmin, tymin);
Pdftransform.Translate (dx, dy)])
((if relative_to_cropbox then [Pdftransform.Translate (txmin, tymin)] else []) @
[Pdftransform.Translate (dx, dy)]))
in
Pdfpage.prepend_operators pdf [translate_op] ~fast o
in
@ -2218,7 +2218,7 @@ let change_bookmark t m =
{m with Pdfmarks.target =
try change_destination t m.Pdfmarks.target with Not_found -> m.Pdfmarks.target}
let stamp position topline midline fast scale_to_fit isover range over pdf =
let stamp relative_to_cropbox position topline midline fast scale_to_fit isover range over pdf =
let marks = Pdfmarks.read_bookmarks pdf in
let marks_refnumbers = Pdf.page_reference_numbers pdf in
let pdf = Pdfmarks.remove_bookmarks pdf in
@ -2248,7 +2248,7 @@ let stamp position topline midline fast scale_to_fit isover range over pdf =
let new_pages =
map2
(fun pageseq under_page ->
do_stamp fast position topline midline scale_to_fit isover renamed_pdf
do_stamp relative_to_cropbox fast position topline midline scale_to_fit isover renamed_pdf
(if mem pageseq range then over_page else
Pdfpage.blankpage Pdfpaper.a4)
under_page over)
@ -2302,7 +2302,7 @@ let combine_pages (fast : bool) under over scaletofit swap equalize =
let new_pages =
map2
(fun o u ->
do_stamp fast (BottomLeft 0.) false false scaletofit (not swap) renamed_pdf o u over)
do_stamp false fast (BottomLeft 0.) false false scaletofit (not swap) renamed_pdf o u over)
over_pages
under_pages
in
@ -2356,7 +2356,7 @@ let nobble_page pdf _ page =
]
}
in
do_stamp false (BottomLeft 0.) false false false true pdf page' page (Pdf.empty ())
do_stamp false false (BottomLeft 0.) false false false true pdf page' page (Pdf.empty ())
(* \section{Set media box} *)
let set_mediabox x y w h pdf range =

4
cpdf.mli
View File

@ -204,10 +204,10 @@ swapped. If [fast] is true, the PDFs are assumed to be well-formed and no
fixes are done. *)
val combine_pages : bool -> Pdf.t -> Pdf.t -> bool -> bool -> bool -> Pdf.t
(** [stamp position topline midline scale_to_fit fast isover range over pdf] stamps the first page of
(** [stamp relative_to_cropbox position topline midline scale_to_fit fast isover range over pdf] stamps the first page of
[over] over each page of the PDF. The arguments have the same meaning as in
[combine_pages]. *)
val stamp : position -> bool -> bool -> bool -> bool -> bool -> int list -> Pdf.t -> Pdf.t -> Pdf.t
val stamp : bool -> position -> bool -> bool -> bool -> bool -> bool -> int list -> Pdf.t -> Pdf.t -> Pdf.t
(** {2 Splitting PDFs} *)

5
cpdfcommand.ml
View File

@ -1,3 +1,4 @@
(* Added -relative-to-cropbox for stamps *)
(* cpdf command line tools *)
let demo = false
let noncomp = false
@ -3568,7 +3569,7 @@ let go () =
let range = parse_pagespec pdf (get_pagespec ()) in
let pdf =
Cpdf.stamp
args.position args.topline args.midline args.fast
args.relative_to_cropbox args.position args.topline args.midline args.fast
args.scale_stamp_to_fit true range overpdf pdf
in
write_pdf false pdf
@ -3582,7 +3583,7 @@ let go () =
let range = parse_pagespec pdf (get_pagespec ()) in
let pdf =
Cpdf.stamp
args.position args.topline args.midline args.fast
args.relative_to_cropbox args.position args.topline args.midline args.fast
args.scale_stamp_to_fit false range underpdf pdf
in
write_pdf false pdf