Add artifacting to combine_pages

This commit is contained in:
John Whitington
2025-03-11 16:33:13 +00:00
parent 03dfcdfd3c
commit 57d4563913
3 changed files with 4 additions and 2 deletions

View File

@@ -3,6 +3,7 @@
New features: New features:
* -remove-struct-tree removes whole structure tree * -remove-struct-tree removes whole structure tree
* -mark-as-artifact marks a whole file as an artifact
Extended features: Extended features:
@@ -11,7 +12,7 @@ o -obj JSON output
* -obj/-obj-json can explore through arrays and name/number trees * -obj/-obj-json can explore through arrays and name/number trees
* -print-dict-entry, -remove-dict-entry and -replace-dict-entry * -print-dict-entry, -remove-dict-entry and -replace-dict-entry
can follow a chain from each found dictionary entry can follow a chain from each found dictionary entry
* More of the PDF/UA Matterhorn verification suite implemented * Much more of the PDF/UA Matterhorn verification suite implemented
* Font lister now returns the font itself * Font lister now returns the font itself
o Allow %objnum in output name for -extract-images o Allow %objnum in output name for -extract-images
* -show-boxes, -trim-marks, -table-of-contents, -add-text * -show-boxes, -trim-marks, -table-of-contents, -add-text

View File

@@ -1,4 +1,4 @@
%Document -process-struct-tree with -stamp-on, -stamp-under, -combine-pages, new combine pages stuff %Document -process-struct-tree with -stamp-on, -stamp-under, -combine-pages, new combine pages stuff (over is principal, length changes)
%Document -mark-as-artifact %Document -mark-as-artifact
%\DocumentMetadata{lang=en, pdfversion=2.0, pdfstandard=ua-2, pdfstandard=a-4f, testphase={phase-III, title, table, math, firstaid}} %\DocumentMetadata{lang=en, pdfversion=2.0, pdfstandard=ua-2, pdfstandard=a-4f, testphase={phase-III, title, table, math, firstaid}}
\documentclass{book} \documentclass{book}

View File

@@ -916,6 +916,7 @@ let equalize_pages under over =
under, over under, over
let combine_pages ~process_struct_tree fast under over scaletofit swap equalize = let combine_pages ~process_struct_tree fast under over scaletofit swap equalize =
let over = if process_struct_tree then mark_all_as_artifact (remove_struct_tree over) else over in
let debug_combine_pages = false in let debug_combine_pages = false in
let debug_pdf pdf n = let debug_pdf pdf n =
if debug_combine_pages then if debug_combine_pages then