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

Beginnings of -chop-v / -chop-h implementation

Browse Source
This commit is contained in:
John Whitington
2024-02-05 14:38:05 +00:00
parent e3ea45d5e2
commit 199506b437
3 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
cpdfchop.ml
View File

@@ -32,26 +32,33 @@ let make_pages x y columns btt rtl w h ps move_page =
in in
if btt then for ty = 0 to y - 1 do row ty done else for ty = y - 1 downto 0 do row ty done if btt then for ty = 0 to y - 1 do row ty done else for ty = y - 1 downto 0 do row ty done
let chop_boxes pdf x y columns btt rtl p = let chop_boxes line pdf x y columns btt rtl p =
if x < 1 || y < 1 then error "chop_boxes bad specification" else let move_page mx my p w h dx dy =
let move_page mx my p w h dx dy = let nminx, nminy, nmaxx, nmaxy = (mx +. dx, my +. dy, mx +. w +. dx, my +. h +. dy) in
let nminx, nminy, nmaxx, nmaxy = (mx +. dx, my +. dy, mx +. w +. dx, my +. h +. dy) in {p with
{p with Pdfpage.mediabox = Pdf.Array [Pdf.Real nminx; Pdf.Real nminy; Pdf.Real nmaxx; Pdf.Real nmaxy];
Pdfpage.mediabox = Pdf.Array [Pdf.Real nminx; Pdf.Real nminy; Pdf.Real nmaxx; Pdf.Real nmaxy]; Pdfpage.rest = erase_boxes p.Pdfpage.rest}
Pdfpage.rest = erase_boxes p.Pdfpage.rest} in
in if x = 0 then
let minx, miny, maxx, maxy = get_box pdf p in (* horizontal split at line *)
let w, h = (maxx -. minx) /. float_of_int x, (maxy -. miny) /. float_of_int y in []
let ps = ref [] in else
make_pages x y columns btt rtl w h ps (move_page minx miny p w h); if y = 0 then
rev !ps (* vertical split at line *)
[]
else
let minx, miny, maxx, maxy = get_box pdf p in
let w, h = (maxx -. minx) /. float_of_int x, (maxy -. miny) /. float_of_int y in
let ps = ref [] in
make_pages x y columns btt rtl w h ps (move_page minx miny p w h);
rev !ps
let chop ~x ~y ~columns ~btt ~rtl pdf range = let chop_inner ~line ~x ~y ~columns ~btt ~rtl pdf range =
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
let pages_out = let pages_out =
flatten flatten
(map2 (map2
(fun n p -> if mem n range then chop_boxes pdf x y columns btt rtl p else [p]) (fun n p -> if mem n range then chop_boxes line pdf x y columns btt rtl p else [p])
(ilist 1 (Pdfpage.endpage pdf)) (ilist 1 (Pdfpage.endpage pdf))
pages) pages)
in in
@@ -68,6 +75,8 @@ let chop ~x ~y ~columns ~btt ~rtl pdf range =
in in
Pdfpage.change_pages ~changes true pdf pages_out Pdfpage.change_pages ~changes true pdf pages_out
let chop ~x ~y ~columns ~btt ~rtl pdf range =
chop_inner ~line:0. ~x ~y ~columns ~btt ~rtl pdf range
let chop_hv ~is_h ~p ~columns pdf range = let chop_hv ~is_h ~line ~columns pdf range =
pdf chop_inner ~line ~x:(if is_h then 0 else 1) ~y:(if is_h then 1 else 0) ~columns ~btt:false ~rtl:false pdf range

2
cpdfchop.mli
View File

@@ -3,4 +3,4 @@
(** Chop a page into pieces. *) (** Chop a page into pieces. *)
val chop : x:int -> y:int -> columns:bool -> btt:bool -> rtl:bool -> Pdf.t -> int list -> Pdf.t val chop : x:int -> y:int -> columns:bool -> btt:bool -> rtl:bool -> Pdf.t -> int list -> Pdf.t
val chop_hv : is_h:bool -> p:float -> columns:bool -> Pdf.t -> int list -> Pdf.t val chop_hv : is_h:bool -> line:float -> columns:bool -> Pdf.t -> int list -> Pdf.t

4
cpdfcommand.ml
View File

@@ -4460,10 +4460,10 @@ let go () =
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
write_pdf false (Cpdfchop.chop ~x ~y ~columns:args.impose_columns ~btt:args.impose_btt ~rtl:args.impose_rtl pdf range) write_pdf false (Cpdfchop.chop ~x ~y ~columns:args.impose_columns ~btt:args.impose_btt ~rtl:args.impose_rtl pdf range)
| Some (ChopHV (is_h, p)) -> | Some (ChopHV (is_h, line)) ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
write_pdf false (Cpdfchop.chop_hv ~is_h ~p ~columns:args.impose_columns pdf range) write_pdf false (Cpdfchop.chop_hv ~is_h ~line ~columns:args.impose_columns pdf range)
| Some ProcessImages -> | Some ProcessImages ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in