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

Allows \n in custom fonts, by reordering in add-text

This commit is contained in:
John Whitington 2022-05-19 17:15:08 +01:00
parent 0ea7d45506
commit ff5c5da9c6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfaddtext.ml
View File

@ -491,8 +491,9 @@ let
end end
| _ -> failwith "addtext: font dictionary not present" | _ -> failwith "addtext: font dictionary not present"
in in
let text = if raw then text else charcodes_of_utf8 (Pdftext.read_font pdf fontpdfobj) text in (* 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