From 0980928b77c255c3a1cddc6e25009e5066ac39d5 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 2 Nov 2016 15:58:55 +0000
Subject: [PATCH] Widths for accented characters fixed when embedding fonts

---
 cpdf.ml  |  44 ++++++++++++++++++++------------------------
 text.pdf | Bin 2396 -> 2601 bytes
 2 files changed, 20 insertions(+), 24 deletions(-)

diff --git a/cpdf.ml b/cpdf.ml
index d94599b..1e190bd 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -1601,31 +1601,27 @@ let extract_fontbbox header s =
       [a; b; c; d] -> [num a; num b; num c; num d] 
     | _ -> raise (Failure "extract_fontbbox")
 
-(* Get the widths for each character from the hash table, in order, noting the
-first and last *)
-let extract_widths_firstlast width_data =
-  let sorted = List.sort compare (list_of_hashtbl width_data) in
-    match sorted, rev sorted with
-      (first, _)::_, (last, _)::_ ->
-        for x = first to last do
-          if not (Hashtbl.mem width_data x) then
-            begin
-              Printf.printf "Failed to find width for char %i\n" x;
-              Hashtbl.add width_data x 0
-            end
-        done;
-        (first, last,
-         map snd (List.sort compare (list_of_hashtbl width_data))) 
-    | _ -> raise (Failure "extract_widths_firstlast") 
+let remove_slash s =
+  match explode s with
+   '/'::x -> implode x
+  | _ -> raise (Failure "remove_slash")
+
+let extract_widths chars_and_widths =
+  let win_to_name = List.map (fun (x, y) -> (y, x)) Pdfglyphlist.name_to_win in
+    List.map
+      (fun x ->
+          try
+            let name = List.assoc x win_to_name in
+              let width = List.assoc (remove_slash name) chars_and_widths in
+                width
+          with
+            _ -> 0)
+      (ilist 0 255)
 
 let make_font embed fontname =
   let font = unopt (Pdftext.standard_font_of_name ("/" ^ fontname)) in
-  let header, width_data, _, _ = Pdfstandard14.afm_data font in
-    (* Print out the width data *)
-    (*Hashtbl.iter
-      (Printf.printf "%i -> %i\n")
-      width_data;*)
-    let firstchar, lastchar, widths = extract_widths_firstlast width_data in
+  let header, width_data, _, chars_and_widths = Pdfstandard14.afm_data font in
+    let widths = extract_widths (list_of_hashtbl chars_and_widths) in
     let flags = Pdfstandard14.flags_of_standard_font font in
     let fontbbox = extract_fontbbox header "FontBBox" in
     let italicangle = extract_num header "ItalicAngle" in
@@ -1654,8 +1650,8 @@ let make_font embed fontname =
              ("/Subtype", Pdf.Name "/Type1");
              ("/BaseFont", Pdf.Name ("/" ^ fontname));          
              ("/Encoding", Pdf.Name "/WinAnsiEncoding");
-             ("/FirstChar", Pdf.Integer firstchar);
-             ("/LastChar", Pdf.Integer lastchar);
+             ("/FirstChar", Pdf.Integer 0);
+             ("/LastChar", Pdf.Integer 255);
              ("/Widths", Pdf.Array (map (fun x -> Pdf.Integer x) widths));
              ("/FontDescriptor", fontdescriptor)]
         else
diff --git a/text.pdf b/text.pdf
index eca28bec31e9b1d35621ccbaf7c472b09130c1e2..c27619db1eb269aff71f7a754d2209e8a49f4bcb 100644
GIT binary patch
delta 534
zcmZ8eyJ|u~5G8UG;T9G_(gl}*wfmTT*ah;agp?K*Mo3}0p!R;m{eqO~0{)I4<DA*M
zuvnbEGiT1(nb~{3{~Q00ng=~wZ1#tj?PjN}_p{~q*I~O~b-%aI6YI5d&MDGKd94MB
z^B9vdNuOSu_0185EJH*@%IIDT0{%?+AW2Gd)(2zw%w=i8K6o9sgiS0c%oB^)f;d{s
z7RYi0PWr=9VEb4MK`R?Wt_5OqWCj(2iW$dW0du&4yyIu+=R(con<H}tWdIBjk2oq|
zy%3@-h$Rcqv_|c@jxpFZS8~tKD1(*<!!$L}yv|E(`KR^hKAWdOpzf!6Jlzc!gVvI7
Kr_;BO_x1wdz-QP1

delta 352
zcmYk2zY4-I5XMmgLI;Q90|cRSFaP5vh=QOvIygwdp{};OgOAXsa1;6_&OVHHO;aT#
zce(rJ%a=T7pY%0lR>^!<RQ0MXZd@9XAFr3XtWMGZS4wdWo*RH}dfYqbsop-=dDLhI
z&61^e0wW}>8}gy%forY1I<XyZEH^lVbR_9oWDPRW0G^9y1)!5|33|bzvb|)K{*OI^
z#4n>hsx-jnTkjXxk&cXnVTIsMN=_XmVwIxBr-i-5U!aU4Sx3HoPxj*kG$dKJK5UXN
DIg3Tw