-no-embed-font mechanism

This commit is contained in:
John Whitington 2015-04-13 14:42:18 +01:00
parent a81fc4ef8d
commit bc09c9f89a
3 changed files with 6 additions and 4 deletions

View File

@ -1699,7 +1699,7 @@ let unescape_string s =
implode (unescape_chars [] (explode s))
let
addtexts metrics linewidth outline fast fontname font bates colour position linespacing
addtexts metrics linewidth outline fast fontname font embed bates colour position linespacing
fontsize underneath text pages orientation cropbox opacity justification
midline topline filename pdf
=

View File

@ -300,6 +300,7 @@ val addtexts :
bool -> (*fast*)
string -> (*fontname*)
Pdftext.standard_font option -> (*font*)
bool -> (* embed font *)
int -> (*bates number *)
float * float * float -> (*colour*)
position -> (*position*)

View File

@ -3507,9 +3507,10 @@ let go () =
in
write_pdf false
(Cpdf.addtexts
false args.linewidth args.outline args.fast args.fontname font args.bates
args.color args.position args.linespacing args.fontsize
args.underneath text range args.orientation args.relative_to_cropbox args.opacity
false args.linewidth args.outline args.fast args.fontname
font args.embedfonts args.bates args.color args.position
args.linespacing args.fontsize args.underneath text range
args.orientation args.relative_to_cropbox args.opacity
args.justification args.midline args.topline filename pdf)
| Some RemoveText ->
let pdf = get_single_pdf args.op false in