Module Mlpost__Compiled_types
type num
= float
and point
= Mlpost__.Point_lib.t
and direction
=
|
Vec of point
|
Curl of float
|
NoDir
and joint
=
|
JLine
|
JCurve
|
JCurveNoInflex
|
JTension of float * float
|
JControls of point * point
and knot
= direction * point * direction
and path
=
|
PAScope of path
|
PAConcat of knot * joint * path
|
PACycle of direction * joint * path
|
PAFullCircle
|
PAHalfCircle
|
PAQuarterCircle
|
PAUnitSquare
|
PATransformed of path * transform
|
PAKnot of knot
|
PAAppend of path * joint * path
|
PACutAfter of path * path
|
PACutBefore of path * path
|
PABuildCycle of path list
|
PASub of num * num * name
|
PABBox of picture
|
PAName of name
and matrix
= Mlpost__.Types.matrix
and transform
= name
and picture
=
|
PITex of string
|
PITransformed of picture * transform
|
PIName of name
and dash
=
|
DEvenly
|
DWithdots
|
DScaled of num * dash
|
DShifted of point * dash
|
DPattern of on_off list
and pen
=
|
PenCircle
|
PenSquare
|
PenFromPath of path
|
PenTransformed of pen * transform
and command
=
|
CDraw of path * color option * pen option * dash option
|
CDrawArrow of path * color option * pen option * dash option
|
CDrawPic of picture
|
CFill of path * color option
|
CLabel of picture * position * point
|
CDotLabel of picture * position * point
|
CSeq of command list
|
CDeclPath of name * path
|
CDeclPoint of name * point
|
CDeclNum of name * num
|
CDefPic of name * command
|
CDefTrans of name * matrix
|
CSimplePic of name * picture
|
CClip of name * path
|
CExternalImage of string * spec_image
and spec_image
=[
|
`None
|
`Width of num
|
`Height of num
|
`Inside of num * num
|
`Exact of num * num
]
and color
= Mlpost__.Types.color
and position
= Mlpost__.Types.position
and name
= Mlpost__.Types.name
and on_off
=
|
On of num
|
Off of num