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

more

This commit is contained in:
John Whitington 2023-05-04 15:51:03 +01:00
parent 202f364b4f
commit f4a7b28058
1 changed files with 25 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
cpdfdraw.ml
View File

@ -191,7 +191,11 @@ and create_form_xobject a b c d pdf endpage filename bates batespad num page n o
in in
Hashtbl.add res.form_xobjects n (Pdf.addobj pdf obj) Hashtbl.add res.form_xobjects n (Pdf.addobj pdf obj)
(* Draw all the accumulated operators. *) let read_resource pdf n p =
match Pdf.lookup_direct pdf n p.Pdfpage.resources with
| Some (Pdf.Dictionary d) -> d
| _ -> []
let draw_single ~filename ~bates ~batespad fast range pdf drawops = let draw_single ~filename ~bates ~batespad fast range pdf drawops =
let endpage = Pdfpage.endpage pdf in let endpage = Pdfpage.endpage pdf in
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
@ -213,30 +217,14 @@ let draw_single ~filename ~bates ~batespad fast range pdf drawops =
let gss_resources = list_of_hashtbl res.extgstates in let gss_resources = list_of_hashtbl res.extgstates in
let font_resources = map (fun (n, o) -> (n, Pdf.Indirect o)) (list_of_hashtbl res.fonts) in let font_resources = map (fun (n, o) -> (n, Pdf.Indirect o)) (list_of_hashtbl res.fonts) in
let form_resources = map (fun (n, o) -> (n, Pdf.Indirect o)) (list_of_hashtbl res.form_xobjects) in let form_resources = map (fun (n, o) -> (n, Pdf.Indirect o)) (list_of_hashtbl res.form_xobjects) in
match images, gss_resources, font_resources, form_resources with [], [], [], [] -> pdf | _ ->
let pages = Pdfpage.pages_of_pagetree pdf in
let pages = let pages =
map map
(fun p -> (fun p ->
let new_resources = let new_resources =
let existing_xobjects = let update = fold_right (fun (k, v) d -> add k v d) in
match Pdf.lookup_direct pdf "/XObject" p.Pdfpage.resources with let new_xobjects = update (form_resources @ image_resources) (read_resource pdf "/XObject" p) in
| Some (Pdf.Dictionary d) -> d let new_gss = update gss_resources (read_resource pdf "/ExtGState" p) in
| _ -> [] let new_fonts = update font_resources (read_resource pdf "/Font" p) in
in
let existing_gss =
match Pdf.lookup_direct pdf "/ExtGState" p.Pdfpage.resources with
| Some (Pdf.Dictionary d) -> d
| _ -> []
in
let existing_fonts =
match Pdf.lookup_direct pdf "/Font" p.Pdfpage.resources with
| Some (Pdf.Dictionary d) -> d
| _ -> []
in
let new_xobjects = fold_right (fun (k, v) d -> add k v d) (form_resources @ image_resources) existing_xobjects in
let new_gss = fold_right (fun (k, v) d -> add k v d) gss_resources existing_gss in
let new_fonts = fold_right (fun (k, v) d -> add k v d) font_resources existing_fonts in
Pdf.add_dict_entry Pdf.add_dict_entry
(Pdf.add_dict_entry (Pdf.add_dict_entry
(Pdf.add_dict_entry p.Pdfpage.resources "/XObject" (Pdf.Dictionary new_xobjects)) (Pdf.add_dict_entry p.Pdfpage.resources "/XObject" (Pdf.Dictionary new_xobjects))
@ -246,7 +234,7 @@ let draw_single ~filename ~bates ~batespad fast range pdf drawops =
(Pdf.Dictionary new_fonts) (Pdf.Dictionary new_fonts)
in in
{p with resources = new_resources}) {p with resources = new_resources})
pages (Pdfpage.pages_of_pagetree pdf)
in in
Pdfpage.change_pages true pdf pages Pdfpage.change_pages true pdf pages