1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
(** Draw on PDFs *)
type colspec =
NoCol
| RGB of float * float * float
| Grey of float
| CYMK of float * float * float * float
type justification =
Left | Right | Centre
type drawops =
| Rect of float * float * float * float
| Bezier of float * float * float * float * float * float
| Bezier23 of float * float * float * float
| Bezier13 of float * float * float * float
| To of float * float
| Line of float * float
| ClosePath
| SetFill of colspec
| SetStroke of colspec
| SetLineThickness of float
| SetLineCap of int
| SetLineJoin of int
| SetMiterLimit of float
| SetDashPattern of float list * float
| Matrix of Pdftransform.transform_matrix
| Qq of drawops list
| Fill
| FillEvenOdd
| Stroke
| FillStroke
| FillStrokeEvenOdd
| Clip
| ClipEvenOdd
| FormXObject of float * float * float * float * string * drawops list
| Use of string
| ImageXObject of string * Pdf.pdfobject
| Image of string
| NewPage
| Opacity of float
| SOpacity of float
| FontPack of string * Cpdfembed.cpdffont * (int, unit) Hashtbl.t
| Font of string * float
| TextSection of drawops list
| Text of string
| SpecialText of string
| Para of float option * justification * float * string list
| Newline
| Leading of float
| CharSpace of float
| WordSpace of float
| TextScale of float
| RenderMode of int
| Rise of float
| Tag of string
| EndTag
| STag of string
| EndSTag
| BeginArtifact
| EndArtifact
| Namespace of string
| EltInfo of string * Pdf.pdfobject
| EndEltInfo of string
| AutoTag of bool
(** When this is set, any untagged material is tagged as an artifact. *)
val do_add_artifacts : bool ref
(** Set the role map. *)
val rolemap : string ref
(** Calling [draw struct_tree fast underneath filename bates batespad range pdf drawops] draws on
top of all the pages in the range. *)
val draw : struct_tree:bool ->
fast:bool ->
underneath:bool ->
filename:string ->
bates:int ->
batespad:int option ->
int list -> Pdf.t -> drawops list -> Pdf.t
|
