fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2022-09-16 20:10:49 +01:00
parent 54d67ae413
commit 748939ae00
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cpdfaddtext.ml
View File

@ -560,7 +560,10 @@ let
(fontsize *. float (Pdfstandard14.baseline_adjustment font)) /. 1000.
in
voffset := !voffset +. baseline_adjustment
| _ -> ()
| Some (Pdftext.SimpleFont {fontdescriptor = Some {capheight}}) ->
voffset := !voffset +. capheight /. 2.
| _ ->
Printf.eprintf "Unable to find midline adjustment in this font\n"
end
else
if topline then
@ -570,7 +573,10 @@ let
(fontsize *. float (Pdfstandard14.baseline_adjustment font) *. 2.0) /. 1000.
in
voffset := !voffset +. baseline_adjustment
| _ -> ()
| Some (Pdftext.SimpleFont {fontdescriptor = Some {capheight}}) ->
voffset := !voffset +. capheight
| _ ->
Printf.eprintf "Unable to find midline adjustment in this font\n"
end
else
iter