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

Fix position for href when justification in use

This commit is contained in:
John Whitington 2022-08-07 18:20:51 +02:00
parent 9ebcf97629
commit b06bf9b471
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfaddtext.ml
View File

@ -405,7 +405,7 @@ let addtext
(rawwidth *. fontsize) /. 1000. (rawwidth *. fontsize) /. 1000.
in in
let unique_fontname = Pdf.unique_key "F" fontdict in let unique_fontname = Pdf.unique_key "F" fontdict in
let ops, urls, x, y, hoffset, voffset, text = let ops, urls, x, y, hoffset, voffset, text, joffset =
let text = process_text time text (replace_pairs pdf filename bates batespad num page) in let text = process_text time text (replace_pairs pdf filename bates batespad num page) in
let text, urls = get_urls_line text in let text, urls = get_urls_line text in
@ -440,11 +440,11 @@ let addtext
| Some f -> | Some f ->
ops longest_w metrics (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth ops longest_w metrics (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth
unique_fontname unique_extgstatename colour fontsize text, unique_fontname unique_extgstatename colour fontsize text,
urls, x, y, hoffset, voffset, text urls, x, y, hoffset, voffset, text, joffset
| None -> | None ->
ops longest_w metrics (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth ops longest_w metrics (x +. shift_x) (y +. shift_y) rotate (hoffset +. joffset) voffset outline linewidth
fontname None colour fontsize text, fontname None colour fontsize text,
urls, x, y, hoffset, voffset, text urls, x, y, hoffset, voffset, text, joffset
in in
let newresources = let newresources =
match font with match font with
@ -473,7 +473,7 @@ let addtext
map (fun (url, s, e) -> map (fun (url, s, e) ->
let sx = annot_coord text s in let sx = annot_coord text s in
let ex = annot_coord text e in let ex = annot_coord text e in
let x, y = x -. hoffset, y -. voffset in let x, y = x -. hoffset -. joffset, y -. voffset in
let height = let height =
match cap_height fontname with match cap_height fontname with
| Some c -> (c *. fontsize) /. 1000. | Some c -> (c *. fontsize) /. 1000.