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

First successful chop

This commit is contained in:
John Whitington 2023-11-20 15:21:44 +02:00
parent d3449af2c0
commit 428f037a51
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
cpdfchop.ml
View File

@ -1,22 +1,29 @@
open Pdfutil
open Cpdferror
(* Resources - what to do with each. Bookmarks? Annotations - must be duplicated... *)
(* Test how the sharing affects other cpdf operations - especially with -fast! *)
(* Allow different orders - btt / ltr etc. *)
(* FIXME Resources - what to do with each. Bookmarks? Annotations - must be duplicated... *)
(* FIXME Test how the sharing affects other cpdf operations - especially with -fast! *)
(* Chop a single page into pieces. We prefer the cropbox when available. We set
mediabox only, and delete any other boxes. *)
(* FIXME check non-zero based boxes *)
(* FIXME erase boxes *)
(* FIXME Get mediabox / cropbox properly *)
(* FIXME Check rotated pages just work *)
(* FIXME btt / rtl *)
let chop_boxes x y p =
if x < 1 || y < 1 then Cpdferror.error "chop_boxes bad specification" else
let move_page p dx dy = Printf.printf "move_page %f %f\n" dx dy; p in
let move_page p w h dx dy =
(*Printf.printf "move_page %f %f\n" dx dy;*)
let nminx, nminy, nmaxx, nmaxy = (0. +. dx, 0. +. dy, w +. dx, h +. dy) in
{p with Pdfpage.mediabox = Pdf.Array [Pdf.Real nminx; Pdf.Real nminy; Pdf.Real nmaxx; Pdf.Real nmaxy]}
in
let minx, miny, maxx, maxy = 0., 0., 540., 666. in
let w, h = (maxx -. minx) /. float_of_int x, (maxy -. miny) /. float_of_int y in
let ps = ref [] in
for ty = 0 to x do
for tx = 0 to y do
ps =| move_page p (w *. float_of_int tx) (h *. float_of_int ty *. ~-.1.)
for ty = y - 1 downto 0 do
for tx = 0 to x - 1 do
ps =| move_page p w h (w *. float_of_int tx) (h *. float_of_int ty)
done
done;
rev !ps