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-28 12:33:20 +01:00
parent 126530a2de
commit cd4c16e6fb
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cpdfcommand.ml
View File

@ -3746,14 +3746,17 @@ let go () =
| (InFile inname, _, _, _, _, _)::_ -> inname
| _ -> ""
in
write_pdf false
(Cpdfaddtext.addtexts
?embedinfo args.linewidth args.outline args.fast args.fontname
font args.bates args.batespad args.color args.position
args.linespacing args.fontsize args.underneath text range
args.relative_to_cropbox args.opacity
args.justification args.midline args.topline filename
args.extract_text_font_size args.coord ~raw:(args.encoding = Raw) pdf)
let fontname =
match embedinfo with Some (_, _, fontname, _) -> fontname | None -> args.fontname
in
write_pdf false
(Cpdfaddtext.addtexts
?embedinfo args.linewidth args.outline args.fast fontname
font args.bates args.batespad args.color args.position
args.linespacing args.fontsize args.underneath text range
args.relative_to_cropbox args.opacity
args.justification args.midline args.topline filename
args.extract_text_font_size args.coord ~raw:(args.encoding = Raw) pdf)
| Some RemoveText ->
let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in