-no-embed-font mechanism
This commit is contained in:
parent
a81fc4ef8d
commit
bc09c9f89a
2
cpdf.ml
2
cpdf.ml
|
@ -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
|
||||
=
|
||||
|
|
1
cpdf.mli
1
cpdf.mli
|
@ -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*)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue