Module Mlpost__.Compiled_types
type num= floatand point= Mlpost__.Point_lib.tand direction=|Vec of point|Curl of float|NoDirand joint=|JLine|JCurve|JCurveNoInflex|JTension of float * float|JControls of point * pointand knot= direction * point * directionand 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 nameand matrix= Mlpost__.Types.matrixand transform= nameand picture=|PITex of string|PITransformed of picture * transform|PIName of nameand dash=|DEvenly|DWithdots|DScaled of num * dash|DShifted of point * dash|DPattern of on_off listand pen=|PenCircle|PenSquare|PenFromPath of path|PenTransformed of pen * transformand 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_imageand spec_image=[|`None|`Width of num|`Height of num|`Inside of num * num|`Exact of num * num]and color= Mlpost__.Types.colorand position= Mlpost__.Types.positionand name= Mlpost__.Types.nameand on_off=|On of num|Off of num