more
This commit is contained in:
parent
96062b9fe7
commit
c1be66a2d6
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue