fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Correct -topline / -midline adjustments for TrueType fonts

Browse Source
This commit is contained in:
John Whitington
2023-07-21 16:22:14 +01:00
parent c5271a6d9f
commit 04fad2295b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfaddtext.ml
View File

@ -529,7 +529,7 @@ let
in
voffset := !voffset +. baseline_adjustment
| Some (Pdftext.SimpleFont {fontdescriptor = Some {capheight}}) ->
voffset := !voffset +. capheight /. 2.
voffset := !voffset +. capheight /. 2. /. 1000.
| _ ->
Pdfe.log "Unable to find midline adjustment in this font\n"
end
@ -542,9 +542,9 @@ let
in
voffset := !voffset +. baseline_adjustment
| Some (Pdftext.SimpleFont {fontdescriptor = Some {capheight}}) ->
voffset := !voffset +. capheight
voffset := !voffset +. capheight /. 1000.
| _ ->
Pdfe.log "Unable to find midline adjustment in this font\n"
Pdfe.log "Unable to find topline adjustment in this font\n"
end;
let encoding =
match font with