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

Up Mt. Truetype again

This commit is contained in:
John Whitington 2023-07-11 15:56:30 +01:00
parent a31f47c9da
commit 00acc7fe80
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cpdftruetype.ml
View File

@ -294,7 +294,7 @@ let write_glyf_table subset cmap bs mk_b glyfoffset loca =
(Printf.printf "We want glyfs for locations: "; (Printf.printf "We want glyfs for locations: ";
iter (Printf.printf "%i ") locnums; Printf.printf "\n"); iter (Printf.printf "%i ") locnums; Printf.printf "\n");
let byteranges = map (fun x -> (loca.(x), loca.(x + 1))) locnums in let byteranges = map (fun x -> (loca.(x), loca.(x + 1))) locnums in
(*if !dbg then*) if !dbg then
(Printf.printf "Byte ranges: "; (Printf.printf "Byte ranges: ";
iter (fun (a, b) -> Printf.printf "(%li, %li) " a b) byteranges; Printf.printf "\n"); iter (fun (a, b) -> Printf.printf "(%li, %li) " a b) byteranges; Printf.printf "\n");
let len = List.fold_left i32add 0l (map (fun (a, b) -> i32sub b a) byteranges) in let len = List.fold_left i32add 0l (map (fun (a, b) -> i32sub b a) byteranges) in
@ -675,11 +675,11 @@ let parse ~subset data encoding =
widths; subset_fontfile; subset; tounicode}) widths; subset_fontfile; subset; tounicode})
firstchars_2 lastchars_2 widths_2 seconds_subsets subsets_2 seconds_tounicodes firstchars_2 lastchars_2 widths_2 seconds_subsets subsets_2 seconds_tounicodes
in in
Printf.printf "\nMain subset:\n"; (*Printf.printf "\nMain subset:\n";
debug_t one; debug_t one;*)
write_font "one.ttf" one.subset_fontfile; write_font "one.ttf" one.subset_fontfile;
Printf.printf "\nHigher subset:\n"; (*Printf.printf "\nHigher subset:\n";
debug_t (hd twos); debug_t (hd twos);*)
write_font "two.ttf" (hd twos).subset_fontfile; write_font "two.ttf" (hd twos).subset_fontfile;
one::twos one::twos