fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-09 08:28:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington 2022-10-07 15:41:02 +01:00
parent a0cf819b41
commit 67b97e714b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdftruetype.ml
View File

@ -309,9 +309,10 @@ let calculate_maxwidth unitsPerEm hmtxdata =
pdf_unit unitsPerEm (hd (sort (fun a b -> compare b a) (Array.to_list hmtxdata))) pdf_unit unitsPerEm (hd (sort (fun a b -> compare b a) (Array.to_list hmtxdata)))
let padword n = let padword n =
let r = i32ofi (4 - i32toi n mod 4 + i32toi n) in let n = i32toi n in
Printf.printf "n = %li, padword n = %li\n" n r; let r = if n mod 4 = 0 then n else 4 - n mod 4 + n in
r Printf.printf "n = %i, padword n = %i\n" n r;
i32ofi r
let remove_unneeded_tables major minor tables indexToLocFormat subset encoding cmap loca mk_b glyfoffset data = let remove_unneeded_tables major minor tables indexToLocFormat subset encoding cmap loca mk_b glyfoffset data =
let tables = Array.of_list (sort (fun (_, _, o, _) (_, _, o', _) -> compare o o') tables) in let tables = Array.of_list (sort (fun (_, _, o, _) (_, _, o', _) -> compare o o') tables) in