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

Font matterhorn fixed

This commit is contained in:
John Whitington 2024-06-27 12:24:43 +01:00
parent 4d0fc879c4
commit 2215fbaabe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfua.ml
View File

@ -630,7 +630,6 @@ let matterhorn_28_004 _ _ pdf =
"/Highlight" | "/Underline" | "/Squiggly" | "/StrikeOut" | "/Caret" | "/Highlight" | "/Underline" | "/Squiggly" | "/StrikeOut" | "/Caret" |
"/Ink" | "/FileAttachment" | "/Sound" | "/Movie" | "/Screen" | "/TrapNet" | "/Ink" | "/FileAttachment" | "/Sound" | "/Movie" | "/Screen" | "/TrapNet" |
"/Watermark" | "/3D" | "/Link" | "/PrinterMark")) -> "/Watermark" | "/3D" | "/Link" | "/PrinterMark")) ->
Printf.printf "%S\n" (Pdfwrite.string_of_pdf obj);
begin match Pdf.lookup_direct pdf "/Contents" obj with begin match Pdf.lookup_direct pdf "/Contents" obj with
| Some _ -> () | Some _ -> ()
| None -> | None ->
@ -1216,8 +1215,9 @@ let matterhorn_31_027 _ _ pdf =
begin match c1 o, c3 o, c4 o with begin match c1 o, c3 o, c4 o with
| false, false, false -> | false, false, false ->
begin match Pdf.lookup_direct pdf "/Subtype" o with begin match Pdf.lookup_direct pdf "/Subtype" o with
| Some (Pdf.Name ("/Type1" | "/Type3")) -> unimpl () | Some (Pdf.Name ("/Type0" | "/CIDFontType0" | "/CIDFontType2")) -> ()
| _ -> merror () | Some (Pdf.Name ("/Type1" | "/MMType1" | "/Type3")) -> unimpl ()
| _ -> merror_str (Pdfwrite.string_of_pdf o)
end end
| _ -> () | _ -> ()
end end