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

more

Browse Source
This commit is contained in:
John Whitington 2022-09-24 12:34:50 +01:00
parent ad442568db
commit 39d48da070
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
cpdfaddtext.ml
View File

@ -138,14 +138,18 @@ let extract_widths chars_and_widths =
(* For finding the height for URL links, we try to find the Cap Height for the (* For finding the height for URL links, we try to find the Cap Height for the
font. For now, this will only work for built-in fonts. We fall back to using font. For now, this will only work for built-in fonts. We fall back to using
the font size alone if we cannot get the cap height. *) the font size alone if we cannot get the cap height. *)
let cap_height fontname = let cap_height font fontname =
try match font with
let font = unopt (Pdftext.standard_font_of_name ("/" ^ fontname)) in | Some (Pdftext.SimpleFont {fontdescriptor = Some {capheight}}) ->
let header, _, _, _ = Pdfstandard14.afm_data font in Some capheight
let capheight = try extract_num header "CapHeight" with _ -> Pdf.Integer 0 in | _ ->
Some (match capheight with Pdf.Integer i -> float_of_int i | Pdf.Real r -> r | _ -> 0.) try
with let font = unopt (Pdftext.standard_font_of_name ("/" ^ fontname)) in
_ -> None let header, _, _, _ = Pdfstandard14.afm_data font in
let capheight = try extract_num header "CapHeight" with _ -> Pdf.Integer 0 in
Some (match capheight with Pdf.Integer i -> float_of_int i | Pdf.Real r -> r | _ -> 0.)
with
_ -> None
let rec string_of_encoding = function let rec string_of_encoding = function
| Pdftext.StandardEncoding -> "StandardEncoding" | Pdftext.StandardEncoding -> "StandardEncoding"
@ -448,7 +452,7 @@ let addtext
let ex = annot_coord text e in let ex = annot_coord text e in
let x, y = x -. hoffset -. joffset, y -. voffset in let x, y = x -. hoffset -. joffset, y -. voffset in
let height = let height =
match cap_height fontname with match cap_height font fontname with
| Some c -> (c *. fontsize) /. 1000. | Some c -> (c *. fontsize) /. 1000.
| None -> fontsize | None -> fontsize
in in