Implements -remove-struct-tree

This commit is contained in:
John Whitington
2025-03-10 14:50:26 +00:00
parent 38e7573350
commit f541afedde
5 changed files with 31 additions and 7 deletions

View File

@@ -92,7 +92,7 @@ let blacktext c range pdf =
in
Cpdfpage.process_pages (Pdfpage.ppstub blacktext_page) pdf range
(* Blacken lines *)
(* Blacken lines. FIXME Why doesn't this do xobjects like the other two? *)
let blacklines_ops c pdf resources content =
let rec blacken_strokeops prev = function
| [] -> rev prev