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 match args.inputs with
| (InFile inname, _, _, _, _, _)::_ -> inname | (InFile inname, _, _, _, _, _)::_ -> inname
| _ -> "" | _ -> ""
in
let fontname =
match embedinfo with Some (_, _, fontname, _) -> fontname | None -> args.fontname
in in
write_pdf false write_pdf false
(Cpdfaddtext.addtexts (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 font args.bates args.batespad args.color args.position
args.linespacing args.fontsize args.underneath text range args.linespacing args.fontsize args.underneath text range
args.relative_to_cropbox args.opacity args.relative_to_cropbox args.opacity