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

more

Browse Source
This commit is contained in:
John Whitington
2023-05-07 17:09:08 +01:00
parent d4388d1b78
commit 60c191e60b
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
cpdfdraw.ml
View File

@ -268,9 +268,13 @@ let draw_single ~filename ~bates ~batespad fast range pdf drawops =
let new_gss = update gss_resources (read_resource pdf "/ExtGState" p) in let new_gss = update gss_resources (read_resource pdf "/ExtGState" p) in
let new_xobjects = update (select_resources res.form_xobjects @ select_resources res.images) (read_resource pdf "/XObject" p) in let new_xobjects = update (select_resources res.form_xobjects @ select_resources res.images) (read_resource pdf "/XObject" p) in
let new_fonts = update (select_resources res.fonts) (read_resource pdf "/Font" p) in let new_fonts = update (select_resources res.fonts) (read_resource pdf "/Font" p) in
Pdf.add_dict_entry let add_if_non_empty dict name newdict =
(Pdf.add_dict_entry if newdict = Pdf.Dictionary [] then dict else
(Pdf.add_dict_entry p.Pdfpage.resources "/XObject" (Pdf.Dictionary new_xobjects)) Pdf.add_dict_entry dict name newdict
in
add_if_non_empty
(add_if_non_empty
(add_if_non_empty p.Pdfpage.resources "/XObject" (Pdf.Dictionary new_xobjects))
"/ExtGState" "/ExtGState"
(Pdf.Dictionary new_gss)) (Pdf.Dictionary new_gss))
"/Font" "/Font"