2022-12-22 17:20:00 +01:00
|
|
|
type colspec =
|
2022-12-15 13:41:19 +01:00
|
|
|
NoCol
|
|
|
|
| RGB of float * float * float
|
|
|
|
| Grey of float
|
|
|
|
| CYMK of float * float * float * float
|
|
|
|
|
2022-12-22 17:20:00 +01:00
|
|
|
type image =
|
|
|
|
JPEG
|
|
|
|
|
2022-12-15 13:41:19 +01:00
|
|
|
type drawops =
|
2022-12-21 17:09:04 +01:00
|
|
|
| Rect of float * float * float * float
|
|
|
|
| Bezier of float * float * float * float * float * float
|
2022-12-15 13:41:19 +01:00
|
|
|
| To of float * float
|
|
|
|
| Line of float * float
|
2022-12-16 14:13:55 +01:00
|
|
|
| ClosePath
|
2022-12-22 17:20:00 +01:00
|
|
|
| SetFill of colspec
|
|
|
|
| SetStroke of colspec
|
2022-12-15 15:20:41 +01:00
|
|
|
| SetLineThickness of float
|
|
|
|
| SetLineCap of int
|
|
|
|
| SetLineJoin of int
|
|
|
|
| SetMiterLimit of float
|
|
|
|
| SetDashPattern of float list * float
|
2022-12-16 13:13:38 +01:00
|
|
|
| Matrix of Pdftransform.transform_matrix
|
|
|
|
| Push
|
|
|
|
| Pop
|
2022-12-16 14:13:55 +01:00
|
|
|
| Fill
|
|
|
|
| FillEvenOdd
|
|
|
|
| Stroke
|
|
|
|
| FillStroke
|
|
|
|
| FillStrokeEvenOdd
|
2022-12-21 17:40:13 +01:00
|
|
|
| Clip
|
|
|
|
| ClipEvenOdd
|
2023-05-03 15:19:55 +02:00
|
|
|
| FormXObject of drawops list
|
|
|
|
| Use of string
|
2022-12-22 21:42:55 +01:00
|
|
|
| ImageXObject of string * Pdf.pdfobject
|
2023-05-03 15:19:55 +02:00
|
|
|
| Image of string
|
2023-04-27 20:14:58 +02:00
|
|
|
| NewPage
|
|
|
|
| Opacity of float
|
|
|
|
| SOpacity of float
|
2023-04-28 17:09:19 +02:00
|
|
|
| Font of Pdftext.standard_font * float
|
2023-05-01 15:39:42 +02:00
|
|
|
| BT
|
|
|
|
| ET
|
2023-04-27 20:14:58 +02:00
|
|
|
| Text of string
|
2023-05-02 15:47:18 +02:00
|
|
|
| SpecialText of string
|
2023-04-28 20:03:10 +02:00
|
|
|
| Newline
|
2023-05-01 15:39:42 +02:00
|
|
|
| Leading of float
|
|
|
|
| CharSpace of float
|
|
|
|
| WordSpace of float
|
|
|
|
| TextScale of float
|
|
|
|
| RenderMode of int
|
|
|
|
| Rise of float
|
2023-04-27 20:14:58 +02:00
|
|
|
| URL of string
|
|
|
|
| EndURL
|
2022-12-15 13:41:19 +01:00
|
|
|
|
2023-05-02 15:47:18 +02:00
|
|
|
val draw : filename:string ->
|
|
|
|
bates:int ->
|
|
|
|
batespad:int option ->
|
|
|
|
bool -> int list -> Pdf.t -> drawops list -> Pdf.t
|