fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

-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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdf.ml
View File

@ -1699,7 +1699,7 @@ let unescape_string s =
implode (unescape_chars [] (explode s)) implode (unescape_chars [] (explode s))
let 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 fontsize underneath text pages orientation cropbox opacity justification
midline topline filename pdf midline topline filename pdf
= =

1
cpdf.mli
View File

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

7
cpdfcommand.ml
View File

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