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

Beginning on fontpacks for -add-text

Browse Source
This commit is contained in:
John Whitington
2023-07-12 15:51:29 +01:00
parent 14bfc8b6c3
commit f5c47c926c
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cpdftruetype.ml
View File

@@ -2,6 +2,8 @@
open Pdfutil
open Pdfio
(* FIXME revisit widths for mono font - the new code returning the notdef width is making the notdef width turn up in /Widths, where missing entries should be 0! *)
let dbg =
(* Pdfe.logger := (fun s -> print_string s; flush stdout) *)
ref false
@@ -288,7 +290,7 @@ let write_glyf_table subset cmap bs mk_b glyfoffset loca =
Not_found -> ())
subset;
let locnums = (*expand_composites mk_b loca glyfoffset*) (sort compare (map fst (list_of_hashtbl locnums))) in
(*if !dbg then*)
if !dbg then
(Printf.printf "We want glyfs for locations: ";
iter (Printf.printf "%i ") locnums; Printf.printf "\n");
let byteranges = map (fun x -> (loca.(x), loca.(x + 1))) locnums in