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

Charcode calculation isolated in addtext

This commit is contained in:
John Whitington 2023-07-12 15:57:33 +01:00
parent f5c47c926c
commit c6b6401e5f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfaddtext.ml
View File

@ -232,8 +232,9 @@ let expand_lines text time pdf endpage extract_text_font_size filename bates bat
let addtext let addtext
time lines linewidth outline fast colour fontname encoding bates batespad time lines linewidth outline fast colour fontname encoding bates batespad
fontsize font fontpdfobj underneath position hoffset voffset text pages fontsize font fontpdfobj underneath position hoffset voffset text pages
cropbox opacity justification filename extract_text_font_size shift pdf cropbox opacity justification filename extract_text_font_size shift raw pdf
= =
let lines = map (fun text -> if raw then text else charcodes_of_utf8 (Pdftext.read_font pdf fontpdfobj) text) lines in
let endpage = Pdfpage.endpage pdf in let endpage = Pdfpage.endpage pdf in
let shifts = Cpdfcoord.parse_coordinates pdf shift in let shifts = Cpdfcoord.parse_coordinates pdf shift in
let addtext_page num page = let addtext_page num page =
@ -467,7 +468,6 @@ let
in in
(* 19th May 2022. Reversed the phase order (split first, then get charcodes. This allows \n in custom fonts. *) (* 19th May 2022. Reversed the phase order (split first, then get charcodes. This allows \n in custom fonts. *)
let lines = map unescape_string (split_at_newline text) in let lines = map unescape_string (split_at_newline text) in
let lines = map (fun text -> if raw then text else charcodes_of_utf8 (Pdftext.read_font pdf fontpdfobj) text) lines in
let pdf = ref pdf in let pdf = ref pdf in
let voffset = let voffset =
let open Cpdfposition in let open Cpdfposition in
@ -520,7 +520,7 @@ let
addtext time lines linewidth outline fast colour !realfontname encoding addtext time lines linewidth outline fast colour !realfontname encoding
bates batespad fontsize font fontpdfobj underneath position hoff voff line bates batespad fontsize font fontpdfobj underneath position hoff voff line
pages cropbox opacity justification filename extract_text_font_size shift pages cropbox opacity justification filename extract_text_font_size shift
!pdf; raw !pdf;
voffset := !voffset +. (linespacing *. fontsize)) voffset := !voffset +. (linespacing *. fontsize))
lines; lines;
begin match cpdffont with begin match cpdffont with