fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Rehabilitating toc

Browse Source
This commit is contained in:
John Whitington
2023-07-11 16:53:21 +01:00
parent 5ec46e5140
commit 5852c184a8
2 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cpdftruetype.ml
View File

@@ -289,7 +289,7 @@ let write_glyf_table subset cmap bs mk_b glyfoffset loca =
with
Not_found -> ())
subset;
let locnums = expand_composites mk_b loca glyfoffset (sort compare (map fst (list_of_hashtbl locnums))) in
let locnums = (*expand_composites mk_b loca glyfoffset*) (sort compare (map fst (list_of_hashtbl locnums))) in
(*if !dbg then*)
(Printf.printf "We want glyfs for locations: ";
iter (Printf.printf "%i ") locnums; Printf.printf "\n");
@@ -680,7 +680,7 @@ let parse ~subset data encoding =
write_font "one.ttf" one.subset_fontfile;
(*Printf.printf "\nHigher subset:\n";
debug_t (hd twos);*)
write_font "two.ttf" (hd twos).subset_fontfile;
if twos <> [] then write_font "two.ttf" (hd twos).subset_fontfile;
one::twos
let parse ~subset data encoding =