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

Fix up center_to_fit scaffolding

This commit is contained in:
John Whitington 2024-10-31 14:07:40 +00:00
parent b897197443
commit f85f2f67b0
3 changed files with 9 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfcommand.ml
View File

@ -4223,7 +4223,7 @@ let go () =
warn_prerotate range pdf;
let pdf = if args.prerotate then prerotate range pdf else pdf in
let xylist = Cpdfcoord.parse_coordinates pdf args.coord in
write_pdf false (Cpdfpage.center_to_fit ~fast:args.fast xylist pdf range)
write_pdf false (Cpdfpage.center_to_fit xylist pdf range)
| Some (ScaleContents scale) ->
let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in

26
cpdfpage.ml
View File

@ -557,26 +557,12 @@ let stretch ?(fast=false) sxsylist pdf range =
process_pages stretch_page pdf range
(* Centre page content (crop box) on given page size, with no scaling. *)
let center_to_fit ?(fast=false) sxsylist pdf range =
let stretch_page pnum page =
let sx, sy = List.nth sxsylist (pnum - 1) in
let (minx, miny, maxx, maxy) =
Pdf.parse_rectangle
pdf
(match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with
| Some r -> r
| None -> page.Pdfpage.mediabox)
in
let scale_x, scale_y = sx /. (maxx -. minx), sy /. (maxy -. miny) in
let f (xmin, ymin, xmax, ymax) = xmin *. scale_x, ymin *. scale_y, xmax *. scale_x, ymax *. scale_y in
let page = change_boxes f pdf page in
let matrix = Pdftransform.matrix_of_op (Pdftransform.Scale ((0., 0.), scale_x, scale_y)) in
let transform_op = Pdfops.Op_cm matrix in
let page = change_pattern_matrices_page pdf matrix page in
Pdfannot.transform_annotations pdf matrix page.Pdfpage.rest;
(Pdfpage.prepend_operators pdf ~fast [transform_op] page, pnum, matrix)
in
process_pages stretch_page pdf range
let center_to_fit sxsylist pdf range =
(* Make dxdylist, suitable for shift_boxes *)
(* Set the new page size, as media and crop *)
(* Call shift_boxes to move each page. *)
let dxdylist = sxsylist in
shift_boxes dxdylist pdf range
(* Scale to fit page of size x * y *)
let scale_to_fit_pdf ?(fast=false) position input_scale xylist op pdf range =

2
cpdfpage.mli
View File

@ -81,7 +81,7 @@ val scale_to_fit_pdf : ?fast:bool -> Cpdfposition.position -> float -> (float *
val stretch : ?fast:bool -> (float * float) list -> Pdf.t -> int list -> Pdf.t
val center_to_fit : ?fast:bool -> (float * float) list -> Pdf.t -> int list -> Pdf.t
val center_to_fit : (float * float) list -> Pdf.t -> int list -> Pdf.t
(** {2 Stamping} *)