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 2019-07-18 17:26:18 +01:00
parent d2270e2bc1
commit d062ee153a
2 changed files with 166444 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

166442
133834.ps Normal file
View File

File diff suppressed because it is too large Load Diff

4
cpdf.ml
View File

@ -2230,7 +2230,7 @@ let change_pattern_matrices_resources pdf tr resources =
let entries = let entries =
map map
(fun (name, p) -> (fun (name, p) ->
Printf.printf "Changing matrices of pattern %s\n" name; (*Printf.printf "Changing matrices of pattern %s\n" name;*)
let old_pattern = Pdf.direct pdf p in let old_pattern = Pdf.direct pdf p in
let new_pattern = let new_pattern =
let existing_tr = Pdf.parse_matrix pdf "/Matrix" old_pattern in let existing_tr = Pdf.parse_matrix pdf "/Matrix" old_pattern in
@ -2261,7 +2261,7 @@ let change_pattern_matrices_page pdf tr page =
(* Check if it's a form XObject. If so, rewrite its resources and add back as same number. *) (* Check if it's a form XObject. If so, rewrite its resources and add back as same number. *)
begin match Pdf.lookup_direct pdf "/Subtype" v with begin match Pdf.lookup_direct pdf "/Subtype" v with
| Some (Pdf.Name "/Form") -> | Some (Pdf.Name "/Form") ->
Printf.printf "Processing form xobject %s for patterns\n" k; (*Printf.printf "Processing form xobject %s for patterns\n" k; *)
let form_xobject = Pdf.lookup_obj pdf i in let form_xobject = Pdf.lookup_obj pdf i in
begin match Pdf.lookup_direct pdf "/Resources" form_xobject with begin match Pdf.lookup_direct pdf "/Resources" form_xobject with
| Some resources -> | Some resources ->