Module Pdfgraphics

module Pdfgraphics: sig .. end

Structured Graphics - Incomplete and unsupported.

type fpoint = float * float

Point.

type winding_rule =

`\|`	`EvenOdd`
`\|`	`NonZero`

Winding rule.

type segment =

`\|`	`Straight of fpoint * fpoint`
`\|`	`Bezier of fpoint * fpoint * fpoint * fpoint`

A segment (a straight line or bezier curve)

type hole =

`\|`	`Hole`
`\|`	`Not_hole`

Each segment list may be marked as a hole or not.

type closure =

`\|`	`Closed`
`\|`	`Open`

type subpath = hole * closure * segment list

A subpath is the pair of a hole and a list of segments.

type path = winding_rule * subpath list

A path is made from a number of subpaths.

val string_of_path : path -> string

type tiling =

| Tiling

Colour values

type function_shading = {

	`funshading_domain : float * float * float * float;`
	`funshading_matrix : Transform.transform_matrix;`
	`funshading_function : Pdffun.pdf_fun;`

}
type radial_shading = {

	`radialshading_coords : float * float * float * float * float * float;`
	`radialshading_domain : float * float;`
	`radialshading_function : Pdffun.pdf_fun list;`
	`radialshading_extend : bool * bool;`

}
type axial_shading = {

	`axialshading_coords : float * float * float * float;`
	`axialshading_domain : float * float;`
	`axialshading_function : Pdffun.pdf_fun list;`
	`axialshading_extend : bool * bool;`

}
type shading_kind =

`\|`	`FunctionShading of function_shading`
`\|`	`AxialShading of axial_shading`
`\|`	`RadialShading of radial_shading`
`\|`	`FreeFormGouraudShading`
`\|`	`LatticeFormGouraudShading`
`\|`	`CoonsPatchMesh`
`\|`	`TensorProductPatchMesh`

type shading = {

	`shading_colourspace : Pdf.pdfobject;`
	`shading_background : Pdf.pdfobject option;`
	`shading_bbox : Pdf.pdfobject option;`
	`shading_antialias : bool;`
	`shading_matrix : Transform.transform_matrix;`
	`shading_extgstate : Pdf.pdfobject;`
	`shading : shading_kind;`

}
type pattern =

`\|`	`ColouredTilingPattern of tiling`
`\|`	`UncolouredTilingPattern of tiling`
`\|`	`ShadingPattern of shading`

type colvals =

`\|`	`Floats of float list`
`\|`	`Named of (string * float list)`
`\|`	`Pattern of pattern`

type transparency_attributes = {

	`fill_transparency : float;`
	`line_transparency : float;`

}
type path_attributes = {

	`path_transform : Transform.transform_matrix;`
	`path_fill : (Pdf.pdfobject * colvals) option;`
	`path_line : (Pdf.pdfobject * colvals) option;`
	`path_linewidth : float;`
	`path_joinstyle : int;`
	`path_capstyle : int;`
	`path_dash : float list * float;`
	`path_mitrelimit : float;`
	`path_transparency : transparency_attributes;`
	`path_intent : string;`

}

Path attributes.

type text_attributes = {

textmode : int;

}
type textblock_attributes = {

textblock_transform : Transform.transform_matrix;

}

type textblock = text_attributes * Pdfpages.operator

type image_attributes = {

	`image_transform : Transform.transform_matrix;`
	`image_transparency : float;`
	`image_softmask : softmask option;`

}
type softmask_subtype =

`\|`	`Alpha`
`\|`	`Luminosity`

type transparency_group = {

	`tr_group_colourspace : Pdf.pdfobject option;`
	`isolated : bool;`
	`knockout : bool;`
	`tr_graphic : graphic;`

}
type softmask = {

	`softmask_subtype : softmask_subtype;`
	`transparency_group : transparency_group;`
	`softmask_bbox : float * float * float * float;`
	`backdrop : float list option;`
	`softmask_transfer : Pdffun.pdf_fun option;`

}

type fontname = string * Pdf.pdfobject

type graphic_elt =

`\|`	`Path of (path * path_attributes)`
`\|`	`Text of textblock list * textblock_attributes`
`\|`	`MCPoint of string`
`\|`	`MCPointProperties of string * Pdf.pdfobject`
`\|`	`MCSection of string * graphic_elt list`
`\|`	`MCSectionProperties of string * Pdf.pdfobject * graphic_elt list`
`\|`	`Image of image_attributes * int`
`\|`	`GraphicInlineImage of Pdf.pdfobject * Utility.bytestream * Transform.transform_matrix`
`\|`	`Clip of path * graphic_elt list`
`\|`	`Shading of path option * shading * Transform.transform_matrix`

For now, just support for reading paths out. Eventually a tree-structure for an op stream.

type graphic = {

	`elements : graphic_elt list;`
	`fonts : fontname list;`
	`resources : Pdf.pdfobject;`

}

val bbox_of_graphic : graphic -> float * float * float * float

Bounding box xmin, xmax, ymin, yman of a graphic

val graphic_of_page : Pdf.pdfdoc -> Pdfdoc.page -> graphic

Make a graphic from operations.

val graphic_of_ops : Pdfpages.operator list -> graphic

Make a graphic from a simple string.

val page_of_graphic : Pdf.pdfdoc ->
       float * float * float * float -> graphic -> Pdfdoc.page

Flatten a graphic to a list of operations and replace the operations in a page by them, returning the new page.

val string_of_graphic : graphic -> string

Debug string of a graphic

val ops_of_simple_graphic : graphic -> Pdfpages.operator list

Operations from a simple graphic (i.e no need for resources etc.)

val streams_of_simple_graphic : graphic -> Pdf.pdfobject list

Pdfdoc.content entry from a simple graphic (i.e no need for resources etc.)

val transform_graphic : Transform.transform_matrix -> graphic -> graphic

Transform a graphic by a matrixn