This commit is contained in:
John Whitington 2023-05-12 14:04:14 +01:00
parent 4e3072803a
commit 7adcd23388
2 changed files with 8 additions and 2 deletions

View File

@ -290,8 +290,13 @@ let minimum_resource_number pdf range =
| [] -> 0 | [] -> 0
| n::_ -> n + 1 | n::_ -> n + 1
let contains_specials drawops = let rec contains_specials_drawop = function
List.exists (function SpecialText _ -> true | _ -> false) drawops | SpecialText _ -> true
| Qq l | TextSection l | FormXObject (_, _, _, _, _, l) -> contains_specials l
| _ -> false
and contains_specials l =
List.exists contains_specials_drawop l
let draw_single ~fast ~underneath ~filename ~bates ~batespad fast range pdf drawops = let draw_single ~fast ~underneath ~filename ~bates ~batespad fast range pdf drawops =
(res ()).num <- max (res ()).num (minimum_resource_number pdf range); (res ()).num <- max (res ()).num (minimum_resource_number pdf range);

View File

@ -16,6 +16,7 @@
%Document -text-width %Document -text-width
%Error handling for png /jpeg loaders %Error handling for png /jpeg loaders
%-underneath for -draw %-underneath for -draw
%URLs don't work in -draw for now
\documentclass{book} \documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf, % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,
% dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc. % dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc.