This commit is contained in:
John Whitington 2022-09-26 19:14:48 +01:00
parent 96062b9fe7
commit c1be66a2d6
1 changed files with 1 additions and 1 deletions

View File

@ -55,7 +55,7 @@ let discard_bytes b n =
for x = 1 to n do ignore (getval_31 b 8) done for x = 1 to n do ignore (getval_31 b 8) done
let pdf_unit unitsPerEm x = let pdf_unit unitsPerEm x =
int_of_float (float_of_int x *. 1000. /. float_of_int unitsPerEm) int_of_float (float_of_int x *. 1000. /. float_of_int unitsPerEm +. 0.5)
let string_of_tag t = let string_of_tag t =
Printf.sprintf "%c%c%c%c" Printf.sprintf "%c%c%c%c"