From cdcfbdcc43321929e1901404c4e7e07d3e28ff3d Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 10 May 2024 10:50:35 +0800
Subject: [PATCH] Round away from zero

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

diff --git a/cpdftruetype.ml b/cpdftruetype.ml
index 4781524..5de5a1b 100644
--- a/cpdftruetype.ml
+++ b/cpdftruetype.ml
@@ -80,7 +80,7 @@ let padding32 n =
   i32ofi (padding (i32toi n))
 
 let pdf_unit unitsPerEm x =
-  int_of_float (float_of_int x *. 1000. /. float_of_int unitsPerEm +. 0.5)
+  int_of_float (Float.round (float_of_int x *. 1000. /. float_of_int unitsPerEm))
 
 let string_of_tag t =
   Printf.sprintf "%c%c%c%c"