From be5402ca9b1df2d9260902a965359816f91e8aa9 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 16 Sep 2022 17:26:32 +0100
Subject: [PATCH] more

---
 cpdfcommand.ml | 1 -
 cpdftype.ml    | 3 ++-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 7e47e04..0433006 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -2142,7 +2142,6 @@ and specs =
    ("-embed-missing-fonts",
       Arg.Unit (setop EmbedMissingFonts),
       " Embed missing fonts by calling gs");
-
    ("-twoup",
       Arg.Unit (setop TwoUp),
       " Put 2 pages onto one");
diff --git a/cpdftype.ml b/cpdftype.ml
index 0f756f4..8f3f02a 100644
--- a/cpdftype.ml
+++ b/cpdftype.ml
@@ -64,7 +64,8 @@ let font_widths f fontsize =
           *. float_of_int
                (Pdfstandard14.textwidth false Pdftext.WinAnsiEncoding sf (string_of_char (char_of_int x)))
           /. 1000.)
-  | Pdftext.SimpleFont {fontmetrics = Some m} -> m
+  | Pdftext.SimpleFont {fontmetrics = Some m} ->
+      Array.map (fun x -> fontsize *. x /. 1000. ) m
   | _ -> raise (Pdf.PDFError "Cpdftype: Unsupported font")
 
 let width_of_string ws s =