fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-17 04:10:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

restructuring chop

Browse Source
This commit is contained in:
John Whitington 2023-11-28 16:40:50 +00:00
parent 782358feb5
commit 332ff6c6b8
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
cpdfchop.ml
View File

@ -2,13 +2,10 @@ open Pdfutil
open Cpdferror open Cpdferror
(* 1. FIXME btt / rtl / columns *) (* 1. FIXME btt / rtl / columns *)
(* 2. FIXME Test/document how the sharing affects other cpdf operations - especially with -fast! What do we do with fast/slow, and what does it affect, and does -fast need documentation about what happens in general with shared content streams. *)
(* 3. Annotations must be duplicated *)
(* 4. What is the effect on bookmarks and links annotations? *)
(* 5. Any other page meta items? *)
(* Chop a single page into pieces. We prefer the cropbox when available. We set (* Chop a single page into pieces. We prefer the cropbox when available. We set
mediabox only, and delete any other boxes. *) mediabox only, and delete any other boxes. We delete /Annots, since
duplicate annotations are not allowed. *)
let get_box pdf page = let get_box pdf page =
match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with
| Some r -> Pdf.parse_rectangle pdf r | Some r -> Pdf.parse_rectangle pdf r
@ -16,7 +13,12 @@ let get_box pdf page =
let erase_boxes d = let erase_boxes d =
let f = Pdf.remove_dict_entry in let f = Pdf.remove_dict_entry in
f (f (f (f d "/CropBox") "/BleedBox") "/TrimBox") "/ArtBox" f (f (f (f (f d "/CropBox") "/BleedBox") "/TrimBox") "/ArtBox") "/Annots"
let make_pages x y columns btt rtl w h ps move_page =
for ty = y - 1 downto 0 do for tx = 0 to x - 1 do
ps =| move_page (w *. float_of_int tx) (h *. float_of_int ty)
done done
let chop_boxes pdf x y columns btt rtl p = let chop_boxes pdf x y columns btt rtl p =
if x < 1 || y < 1 then Cpdferror.error "chop_boxes bad specification" else if x < 1 || y < 1 then Cpdferror.error "chop_boxes bad specification" else
@ -32,11 +34,7 @@ let chop_boxes pdf x y columns btt rtl p =
(*Printf.printf "minx, miny, maxx, maxy = %f, %f, %f, %f\n" minx miny maxx maxy;*) (*Printf.printf "minx, miny, maxx, maxy = %f, %f, %f, %f\n" minx miny maxx maxy;*)
let w, h = (maxx -. minx) /. float_of_int x, (maxy -. miny) /. float_of_int y in let w, h = (maxx -. minx) /. float_of_int x, (maxy -. miny) /. float_of_int y in
let ps = ref [] in let ps = ref [] in
let move_page = move_page minx miny p w h in make_pages x y columns btt rtl w h ps (move_page minx miny p w h);
(* columns, btt, rtl *)
for ty = y - 1 downto 0 do for tx = 0 to x - 1 do
ps =| move_page (w *. float_of_int tx) (h *. float_of_int ty)
done done;
rev !ps rev !ps
(* Chop pages in the range into pieces *) (* Chop pages in the range into pieces *)

1
cpdfmanual.tex
View File

@ -4,6 +4,7 @@
%Document subformat information %Document subformat information
%Document -list-images[-json], -list-image-uses[-json], -image-resolution-json %Document -list-images[-json], -list-image-uses[-json], -image-resolution-json
%Document -raw for -extract-images %Document -raw for -extract-images
%Add note to -fast about content sharing (with reference to -chop, but in general too)
\documentclass{book} \documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf, % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,
% dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc. % dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc.