From c1be66a2d6d0d0623c4d6b8a717fbad14533a7f0 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 26 Sep 2022 19:14:48 +0100
Subject: [PATCH] more

---
 cpdftruetype.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdftruetype.ml b/cpdftruetype.ml
index e1abb42..8461cf0 100644
--- a/cpdftruetype.ml
+++ b/cpdftruetype.ml
@@ -55,7 +55,7 @@ let discard_bytes b n =
   for x = 1 to n do ignore (getval_31 b 8) done
 
 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 =
   Printf.sprintf "%c%c%c%c"