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

View File

@ -3745,10 +3745,13 @@ let go () =
match args.inputs with
| (InFile inname, _, _, _, _, _)::_ -> inname
| _ -> ""
in
let fontname =
match embedinfo with Some (_, _, fontname, _) -> fontname | None -> args.fontname
in
write_pdf false
(Cpdfaddtext.addtexts
?embedinfo args.linewidth args.outline args.fast args.fontname
?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