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

more

This commit is contained in:
John Whitington 2023-04-28 16:56:13 +01:00
parent 6093f72013
commit ccd3fc01fb
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cpdfdraw.ml
View File

@ -64,6 +64,8 @@ let fontnum = ref 0
let fonts = null_hash () let fonts = null_hash ()
let current_font = ref (Pdftext.StandardFont (Pdftext.TimesRoman, Pdftext.WinAnsiEncoding))
let fresh_font_name pdf f = let fresh_font_name pdf f =
fontnum += 1; fontnum += 1;
let n = "/F" ^ string_of_int !fontnum in let n = "/F" ^ string_of_int !fontnum in
@ -130,7 +132,10 @@ let rec ops_of_drawop pdf = function
let n = fresh_font_name pdf (Pdftext.StandardFont (s, Pdftext.WinAnsiEncoding)) in let n = fresh_font_name pdf (Pdftext.StandardFont (s, Pdftext.WinAnsiEncoding)) in
[Pdfops.Op_Tf (n, f)] [Pdfops.Op_Tf (n, f)]
| Text s -> | Text s ->
[Pdfops.Op_BT; Pdfops.Op_Tj s; Pdfops.Op_ET] (* FIXME: convert to actual char codes based on font in use, obvs *) let charcodes =
implode (map char_of_int (option_map (Pdftext.charcode_extractor_of_font_real !current_font) (Pdftext.codepoints_of_utf8 s)))
in
[Pdfops.Op_BT; Pdfops.Op_Tj charcodes; Pdfops.Op_ET]
and ops_of_drawops pdf drawops = and ops_of_drawops pdf drawops =
flatten (map (ops_of_drawop pdf) drawops) flatten (map (ops_of_drawop pdf) drawops)
@ -167,7 +172,6 @@ let draw fast range pdf drawops =
let new_xobjects = fold_right (fun (k, v) d -> add k v d) image_resources existing_xobjects in let new_xobjects = fold_right (fun (k, v) d -> add k v d) image_resources existing_xobjects in
let new_gss = fold_right (fun (k, v) d -> add k v d) gss_resources existing_gss in let new_gss = fold_right (fun (k, v) d -> add k v d) gss_resources existing_gss in
let new_fonts = fold_right (fun (k, v) d -> add k v d) font_resources existing_fonts in let new_fonts = fold_right (fun (k, v) d -> add k v d) font_resources existing_fonts in
let r =
Pdf.add_dict_entry Pdf.add_dict_entry
(Pdf.add_dict_entry (Pdf.add_dict_entry
(Pdf.add_dict_entry p.Pdfpage.resources "/XObject" (Pdf.Dictionary new_xobjects)) (Pdf.add_dict_entry p.Pdfpage.resources "/XObject" (Pdf.Dictionary new_xobjects))
@ -175,9 +179,6 @@ let draw fast range pdf drawops =
(Pdf.Dictionary new_gss)) (Pdf.Dictionary new_gss))
"/Font" "/Font"
(Pdf.Dictionary new_fonts) (Pdf.Dictionary new_fonts)
in
Printf.printf "final: %s\n" (Pdfwrite.string_of_pdf r);
r
in in
{p with resources = new_resources}) {p with resources = new_resources})
pages pages