Need to rewrite cmap for extended font

This commit is contained in:
John Whitington 2023-06-14 15:30:01 +01:00
parent 7e27138211
commit 5f688481ea

View File

@ -195,7 +195,7 @@ let write_loca_table subset cmap indexToLocFormat bs loca =
iter iter
(fun u -> (fun u ->
let locnum = Hashtbl.find cmap u in let locnum = Hashtbl.find cmap u in
if !dbg then Printf.printf "write_loca_table: Unicode %i is at location number %i\n" u locnum; if !dbg then Printf.printf "write_loca_table: Unicode U+%04X is at location number %i\n" u locnum;
Hashtbl.add locnums locnum ()) Hashtbl.add locnums locnum ())
subset; subset;
let write_entry loc position = let write_entry loc position =