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

Artifacting

This commit is contained in:
John Whitington 2024-10-02 13:54:23 +01:00
parent c827f7b410
commit 0416c376ab
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdftype.ml
View File

@ -245,8 +245,9 @@ let typeset ~process_struct_tree lmargin rmargin tmargin bmargin papersize pdf i
let thisdestrectangles = ref [] in let thisdestrectangles = ref [] in
let pages = ref [] in let pages = ref [] in
let write_page () = let write_page () =
let ops = if process_struct_tree then add_artifacts (rev !ops) else rev !ops in
let page = let page =
{Pdfpage.content = if !ops = [] then [] else [Pdfops.stream_of_ops (rev !ops)]; {Pdfpage.content = if ops = [] then [] else [Pdfops.stream_of_ops ops];
Pdfpage.mediabox = Pdfpage.rectangle_of_paper papersize; Pdfpage.mediabox = Pdfpage.rectangle_of_paper papersize;
Pdfpage.resources = make_resources !thispagefontnums; Pdfpage.resources = make_resources !thispagefontnums;
Pdfpage.rotate = Pdfpage.Rotate0; Pdfpage.rotate = Pdfpage.Rotate0;
@ -323,5 +324,3 @@ let typeset ~process_struct_tree lmargin rmargin tmargin bmargin papersize pdf i
iter typeset_element i; iter typeset_element i;
write_page (); write_page ();
rev !pages rev !pages