more

2022-09-21 16:18:35 +01:00 · 2022-09-21 16:18:35 +01:00 · 00ba9d4bee
parent 3237daebb7
commit 00ba9d4bee
1 changed files with 2 additions and 2 deletions
--- a/cpdftype.ml
+++ b/cpdftype.ml
@ -56,13 +56,13 @@ let initial_state () =

 let font_widths f fontsize =
  match f with
-  | Pdftext.StandardFont (sf, _) ->
+  | Pdftext.StandardFont (sf, encoding) ->
      Array.init
        256
        (fun x ->
             fontsize
          *. float_of_int
-               (Pdfstandard14.textwidth false Pdftext.WinAnsiEncoding sf (string_of_char (char_of_int x)))
+               (Pdfstandard14.textwidth false encoding sf (string_of_char (char_of_int x)))
          /. 1000.)
  | Pdftext.SimpleFont {fontmetrics = Some m} ->
      Array.map (fun x -> fontsize *. x /. 1000. ) m