fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-16 11:50:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

Beginning to reinstate kerning

Browse Source
This commit is contained in:
John Whitington 2016-11-02 16:50:37 +00:00
parent 0980928b77
commit b224500cfc
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cpdf.ml
View File

@ -1661,6 +1661,10 @@ let make_font embed fontname =
("/Encoding", Pdf.Name "/WinAnsiEncoding");
("/BaseFont", Pdf.Name ("/" ^ fontname))]
(* Convert text in winasciiencoding to standard encoding, so that
Pdfstandard14.textwidth works *)
let win_of_standard text = text
let addtext
metrics lines linewidth outline fast colour fontname embed bates batespad fontsize font
underneath position hoffset voffset text pages orientation cropbox opacity
@ -1712,12 +1716,11 @@ let addtext
let calc_textwidth text =
match font with
| Some f ->
(* FIXME This is a bit wrong in the prescence of special
characters due to standard encoding not win encoding being
used in textwidth. When we have new AFM parsing up and
running, can improve. *)
let rawwidth = Pdfstandard14.textwidth false f text in
(float rawwidth *. fontsize) /. 1000.
let text =
if embed then win_of_standard text else text
in
let rawwidth = Pdfstandard14.textwidth false f text in
(float rawwidth *. fontsize) /. 1000.
| None ->
let font =
match Pdf.lookup_direct pdf "/Font" page.Pdfpage.resources with