IWH      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./012 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                         !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGGHCunstablestephen.tetley@gmail.com0:Vertical alignment - align to the left, center or bottom. ;Horizontal alignment - align to the top, center or bottom. The center of a picture. HIJK   a `over` b Place 'picture' a over b. The idea of over here is in = terms z-ordering, nither picture a or b are actually moved.   a `under` b  Similarly under! draws the first picture behind  the second but move neither. under was previously beneath. L*Move in both the horizontal and vertical. MExtract the top-left corner. NExtract the top-right corner. O Extract the bottom-left corner. P!Extract the bottom-right corner. QRSTU 2Draw a centered over b - a is moved, b is static.   a `centerOver` b   was previously the (-@ -) operator.   a `nextToH` b Horizontal composition - move b, placing it to the right  of a.  $ was previously the (->-) operator.   a `nextToV` b Vertical composition - move b, placing it below a. nextToV was previously the (- -) operator. )Place the picture at the supplied point.  was previous the at operator. *Center the picture at the supplied point.   xs `stackOver` x Stack the list of pictures xs   x. >Note, the first picture in the list is drawn at the top, all $ the pictures in the list are drawn 'over' x. No pictures  are moved  [p1,p2,p3]  p4 => [p1,p2,p3,p4]  x `zconcat` xs  Concatenate x over the list of pictures xs. x. is drawn at the top. No pictures are moved.  p1  [p2,p3,p4] => [p1,p2,p3,p4]Concatenate the list pictures xs horizontally with nextToH  starting at x. !Concatenate the list of pictures xs vertically with nextToV  starting at x. 9Stack pictures centered ontop of each other - the first > picture in the list is drawn at the top, last picture is on  drawn at the bottom.   hspace n a b Horizontal composition - move b, placing it to the right  of a with a horizontal gap of n separating the pictures.   vspace n a b Vertical composition - move b, placing it below a with a  vertical gap of n separating the pictures.   hsep n x xs !Concatenate the list of pictures xs horizontally with  hspace starting at x&. The pictures are interspersed with  spaces of n units.   vsep n x xs !Concatenate the list of pictures xs vertically with  vspace starting at x&. The pictures are interspersed with  spaces of n units. V  alignH align a b Horizontal composition - move b, placing it to the right  of a0 and align it with the top, center or bottom of a.   alignV align a b Vertical composition - move b, placing it below a 0 and align it with the left, center or right of a.   alignHSep align sep a b !Spacing version of alignH - move b to the right of a  separated by sep units, align b according to align.   alignHSep align sep a b !Spacing version of alignV - move b below a  separated by sep units, align b according to align.  Variant of % that aligns the pictures as well as  concatenating them.  Variant of % that aligns the pictures as well as  concatenating them.  Variant of hsep% that aligns the pictures as well as ! concatenating and spacing them.  Variant of vsep% that aligns the pictures as well as ! concatenating and spacing them. !  !  !  GHCunstablestephen.tetley@gmail.com!Version number  (0,8,0) !!!GHC unstablestephen.tetley@gmail.com"#$%&'()*+,-./0123456789:"#$%&'()*+,-./0123456789:.*+,-/%&'()"#$0123546789:"#$#$%&'()&'()*+,-+,-./0123456789:GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> ; Times-Roman < Times Italic = Times Bold >Times Bold Italic ? Helvetica @Helvetica Oblique AHelvetica Bold BHelvetica Bold Oblique CCourier DCourier Oblique E Courier Bold FCourier Bold Oblique GSymbol ?Note - Symbol does not appear to be well supported by some SVG @ renders. Seemingly Chrome is fine but Firefox defaults to some  serif font. ;<=>?@ABCDEFG ;<=>?@ABCDEFG ;<=>?@ABCDEFGGHCunstablestephen.tetley@gmail.com HIJKLMNO6velo consumes the list as per map, but builds it back , as a Hughes list - so items can be dropped  replaced, repeated, etc... PQR HIJKLMNOPQR HIJKLMNOPQR HIJKLMNOPQRGHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com>8STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~GHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com>                    GHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com> !"#$%&:A Mark is consider to be the height of a lowercase letter  in the current font.  Note better to use xlowerHeight 'Height of a lower case 'x' in Courier. 'x'" has no ascenders or descenders. (:textDimensions : text -> DrawingContext -> (width,height) WXYZ[\)*+,-./01 !"#$%&'()*+,-./01 !"#$%&'()*+,.-/01 !"# !"#$%&'()*+,-./01 GHC highly unstablestephen.tetley@gmail.com(232ConImage is a connector drawn between two points  constructing an Image. 455ConnGraphic is a connector drawn between two points  contructing a Graphic. 6789:;,Images return a value as well as drawing. A node is a ; typical example - nodes are drawing but the also support  taking anchor points. <=;Commonly graphics take a start point as well as a drawing  context. ?Here they are called a LocGraphic - graphic with a (starting)  location. >?@AB*Drawings in Wumpus-Basic have an implicit graphics state  the DrawingContext(, the most primitive building block is @ a function from the DrawingContext to some polymorphic answer. 2This functional type is represented concretely as DrawingF. " DrawingF :: DrawingContext -> a ]^CDPoint transformation function. E=Graphics objects, even simple ones (line, arrow, dot) might = need more than one primitive (path or text label) for their ? construction. Hence, the primary representation that all the $ others are built upon must support  concatenation of  primitives. 8Wumpus-Core has a type Picture - made from one or more ? Primitives - but Pictures include support for affine frames. > For drawing many simple graphics (dots, connector lines...) ? that do not need individual affine transformations this is a ; penalty. A list of Primitives is therefore more suitable 2 representation, and a Hughes list which supports " efficient concatenation is wise. _`FGHRun a Drawing Function with the supplied Drawing Context. IWrap a value into a DrawingF. Note the value is pure& it does depend on the DrawingContext  (it is  context free). JKLMNOP7Composition operator for LocGraphic - both LocGraphics < are drawn at the same origin and the results concatenated. QRSTU$23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU$EFGDCBA@HIJKL?>MN=<OP;:98QRST765432U$23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU GHC unstablestephen.tetley@gmail.com V4A monad that supplies points, e.g. a turtle monad. WXYZ[9Collect elementary graphics as part of a larger drawing. 'TraceM works much like a writer monad. \]^"Project a value out of a context. VWXYZ[\]^ ][\XYZ^VW VWWXYZYZ[\\]^ GHC unstablestephen.tetley@gmail.com_ab`a_`a_`a_`a GHC unstablestephen.tetley@gmail.combcdcefdefgh%Run the Drawing generating a Picture within a  "font delta context"& using the font-family and font-size ! from the intial DrawingContext. Using a font delta context! can reduce the code size of the 2 generated SVG file (PostScript ignores the FDC). iexec version of  runFdcContext. jTransformer version of h. kTransformer version of i. lUnsafe promotion of HPrim to Picture. 3If the HPrim is empty, a run-time error is thrown. mSafe promotion of HPrim to (Maybe Picture). If the HPrim is empty, then Nothing is returned. nUnsafe promotion of (Maybe Picture) to Picture. This is equivalent to:  ! fromMaybe (error "empty") $ pic ;This function is solely a convenience, using it saves one  import and a few characters. If the supplied value is Nothing a run-time error is thrown. o2Draw a Graphic taking the drawing style from the  drawing context.  This operation is analogeous to tell in a Writer monad. pHyperlink version of o. q1Draw an Image taking the drawing style from the  drawing context. ?The graphic representation of the Image is drawn in the Trace $ monad, and the result is returned. rHyperlink version of q. stuvwbcdefghijklmnopqrstuvwcbdefghijklmnopqrstuvwbcdefghijklmnopqrstuvw GHC highly unstablestephen.tetley@gmail.comxyz{|}~Supplying a point to a  CFGraphic takes it to a regular  ?. gSupplied point is  bottom-left. Supplied point is  bottom left. Supplied point is  bottom left. Supplied point is  bottom left. 7Supplied point is center. Circle is drawn with Bezier  curves. 7Supplied point is center. Circle is drawn with Bezier  curves. 7Supplied point is center. Circle is drawn with Bezier  curves. disk is drawn with Wumpus-Core's ellipse primitive. 5This is a efficient representation of circles using  PostScript's arc or SVG's circle in the generated : output. However, stroked-circles do not draw well after < non-uniform scaling - the line width is scaled as well as  the shape. =For stroked circles that can be scaled, consider making the  circle from Bezier curves. xyz{|}~xyz{|}~xyz{|}~GHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com>hijkLine in equational form, i.e. Ax + By + C = 0. lmnopqrstuv:Calculate the counter-clockwise angle between two points  and the x-axis.   GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>#(Turn a BasicPath into an ordinary Path. <An empty path returns Nothing - the path representation in = Wumpus-Core does not allow empty paths - a path must always  have at least start point. 9Assumes path is properly formed - i.e. end point of one : segment is the same point as the start point of the next  segment. wx Jens Gravesen'$s bezier arc-length approximation. =Note this implementation is parametrized on error tolerance. yz{midpoint between two points "Curve subdivision via de Casteljau' s algorithm. 2subdivide with an affine weight along the line... |GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>}~   GHC highly unstablestephen.tetley@gmail.coms !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>GHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com> : ' num_points * radius * center -> [point]  $A mark is the height of a lowercase 'x'. Supplied point is the center. Note disk is filled. GHC unstablestephen.tetley@gmail.com "#$%&'()*+,-./0123456789:GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>$Not working in PostScript, &#161; works for SVG but @ PostScript needs an encoding table for Symbol-Font not Latin1! For PostScript, Latin1 161 maps to  exclamdown not  Upsilon16, extending Wumpus-Core to support this will require  quite some work...      $     $     $     GHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com> 2tripoints takes dimensions from the xlowerHeight.    GHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com>Returns two items: : Shorten the line by the line width - this stops the path = tip puncturing the arrow head (particulary visible on open  triangle tips). : Calculate the direction back along the line at half the ? lower_x_height - this gets a good angle for the tip on curved  path segments.  !"  !"  !"  !"GHC with TypeFamilies and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com>#:Anchor on a border that can be identified with and angle. $% textAnchor is the Bottom left corner  on the baseline. &'()*+,-./012#$%&'()*+,-./01212,-./0'()*+%&#$#$$%&&'()*+()*+,-./0-./0122%GHC with TypeFamilies, GADTs and morehighly unstable)Stephen Tetley <stephen.tetley@gmail.com>(3456789:;<=>?@ABCDEFG3456789:;<=>?@ABCDEFG5436789:;<=>?@ABCDEFG3456789:;<=>?@ABCDEFG !"#$%&'()*+,-./0123456789:;<=>?@ABCDEEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./01234567889:;<=>?@ABCDEFGHIJ K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                                                 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr [ s ^ t x u { v | w xyz{|}~Kwumpus-basic-0.8.0Wumpus.Basic.PictureLanguageWumpus.Basic.VersionNumberWumpus.Basic.Monads.TurtleClassWumpus.Basic.SafeFontsWumpus.Basic.Utils.HListWumpus.Basic.Colour.X11ColoursWumpus.Basic.Colour.SVGColours#Wumpus.Basic.Graphic.DrawingContextWumpus.Basic.Graphic.BaseTypes Wumpus.Basic.Graphic.BaseClassesWumpus.Basic.Graphic.ChainWumpus.Basic.Graphic.Drawing Wumpus.Basic.Graphic.PrimGraphicWumpus.Basic.Utils.IntersectionWumpus.Basic.Paths.BaseWumpus.Basic.Paths.ConstructionWumpus.Basic.PathsWumpus.Basic.Dots.PrimitiveWumpus.Basic.Monads.TurtleMonadWumpus.Basic.Text.LRTextWumpus.Basic.Text.LRSymbolWumpus.Basic.Arrows.TipsWumpus.Basic.ArrowsWumpus.Basic.AnchorsWumpus.Basic.DotsWumpus.Basic.GraphicVAlignVRightVCenterVLeftHAlignHBottomHCenterHTop centerPointoverunder centerOvernextToHnextToVatPoint centeredAt stackOverzconcathcatvcatstackOverCenterhspacevspacehsepvsepalignHalignV alignHSep alignVSephcatAvcatAhsepAvsepAwumpus_basic_version TurtleScaleMxStepyStepTurtleMgetLocsetLoc getOrigin setOrigin TurtleConfigxstepystepCoord regularConfigaskStepssetsLocsetsLoc_resetLoc moveRightmoveLeftmoveUpmoveDownnextLinegetPos scaleCoord timesRoman timesItalic timesBoldtimesBoldItalic helveticahelveticaOblique helveticaBoldhelveticaBoldObliquecouriercourierOblique courierBoldcourierBoldObliquesymbolHemptyHwrapHconsHsnocHappendHunfoldrHveloHconcatHtoListH fromListHantique_white1antique_white2antique_white3antique_white4 aquamarine1 aquamarine2 aquamarine3 aquamarine4azure1azure2azure3azure4bisque1bisque2bisque3bisque4blue1blue2blue3blue4brown1brown2brown3brown4 burlywood1 burlywood2 burlywood3 burlywood4 cadet_blue1 cadet_blue2 cadet_blue3 cadet_blue4 chartreuse1 chartreuse2 chartreuse3 chartreuse4 chocolate1 chocolate2 chocolate3 chocolate4coral1coral2coral3coral4 cornsilk1 cornsilk2 cornsilk3 cornsilk4cyan1cyan2cyan3cyan4dark_goldenrod1dark_goldenrod2dark_goldenrod3dark_goldenrod4dark_olive_green1dark_olive_green2dark_olive_green3dark_olive_green4 dark_orange1 dark_orange2 dark_orange3 dark_orange4 dark_orchid1 dark_orchid2 dark_orchid3 dark_orchid4dark_sea_green1dark_sea_green2dark_sea_green3dark_sea_green4dark_slate_gray1dark_slate_gray2dark_slate_gray3dark_slate_gray4 deep_pink1 deep_pink2 deep_pink3 deep_pink4deep_sky_blue1deep_sky_blue2deep_sky_blue3deep_sky_blue4 dodger_blue1 dodger_blue2 dodger_blue3 dodger_blue4 firebrick1 firebrick2 firebrick3 firebrick4gold1gold2gold3gold4 goldenrod1 goldenrod2 goldenrod3 goldenrod4green1green2green3green4 honeydew1 honeydew2 honeydew3 honeydew4 hot_pink1 hot_pink2 hot_pink3 hot_pink4 indian_red1 indian_red2 indian_red3 indian_red4ivory1ivory2ivory3ivory4khaki1khaki2khaki3khaki4lavender_blush1lavender_blush2lavender_blush3lavender_blush4lemon_chiffon1lemon_chiffon2lemon_chiffon3lemon_chiffon4 light_blue1 light_blue2 light_blue3 light_blue4 light_cyan1 light_cyan2 light_cyan3 light_cyan4light_goldenrod1light_goldenrod2light_goldenrod3light_goldenrod4 light_pink1 light_pink2 light_pink3 light_pink4 light_salmon1 light_salmon2 light_salmon3 light_salmon4light_sky_blue1light_sky_blue2light_sky_blue3light_sky_blue4light_steel_blue1light_steel_blue2light_steel_blue3light_steel_blue4 light_yellow1 light_yellow2 light_yellow3 light_yellow4magenta1magenta2magenta3magenta4maroon1maroon2maroon3maroon4medium_orchid1medium_orchid2medium_orchid3medium_orchid4medium_purple1medium_purple2medium_purple3medium_purple4 misty_rose1 misty_rose2 misty_rose3 misty_rose4 navajo_white1 navajo_white2 navajo_white3 navajo_white4 olive_drab1 olive_drab2 olive_drab3 olive_drab4orange1orange2orange3orange4 orange_red1 orange_red2 orange_red3 orange_red4orchid1orchid2orchid3orchid4 pale_green1 pale_green2 pale_green3 pale_green4pale_turquoise1pale_turquoise2pale_turquoise3pale_turquoise4pale_violet_red1pale_violet_red2pale_violet_red3pale_violet_red4 peach_puff1 peach_puff2 peach_puff3 peach_puff4pink1pink2pink3pink4plum1plum2plum3plum4purple1purple2purple3purple4red1red2red3red4 rosy_brown1 rosy_brown2 rosy_brown3 rosy_brown4 royal_blue1 royal_blue2 royal_blue3 royal_blue4salmon1salmon2salmon3salmon4 sea_green1 sea_green2 sea_green3 sea_green4 seashell1 seashell2 seashell3 seashell4sienna1sienna2sienna3sienna4 sky_blue1 sky_blue2 sky_blue3 sky_blue4 slate_blue1 slate_blue2 slate_blue3 slate_blue4 slate_gray1 slate_gray2 slate_gray3 slate_gray4snow1snow2snow3snow4 spring_green1 spring_green2 spring_green3 spring_green4 steel_blue1 steel_blue2 steel_blue3 steel_blue4tan1tan2tan3tan4thistle1thistle2thistle3thistle4tomato1tomato2tomato3tomato4 turquoise1 turquoise2 turquoise3 turquoise4 violet_red1 violet_red2 violet_red3 violet_red4wheat1wheat2wheat3wheat4yellow1yellow2yellow3yellow4 alice_blue antique_whiteaqua aquamarineazurebeigebisqueblackblanched_almondblue blue_violetbrown burlywood cadet_blue chartreuse chocolatecoralcornflower_bluecornsilkcrimsoncyan dark_blue dark_cyandark_goldenrod dark_gray dark_green dark_grey dark_khaki dark_magentadark_olive_green dark_orange dark_orchiddark_red dark_salmondark_sea_greendark_slate_bluedark_slate_graydark_slate_greydark_turquoise dark_violet deep_pink deep_sky_bluedim_graydim_grey dodger_blue firebrick floral_white forest_greenfuchsia gainsboro ghost_whitegold goldenrodgraygreen green_yellowgreyhoneydewhot_pink indian_redindigoivorykhakilavenderlavender_blush lawn_green lemon_chiffon light_blue light_coral light_cyanlight_goldenrod_yellow light_gray light_green light_grey light_pink light_salmonlight_sea_greenlight_sky_bluelight_slate_graylight_slate_greylight_steel_blue light_yellowlime lime_greenlinenmagentamaroonmedium_aquamarine medium_blue medium_orchid medium_purplemedium_sea_greenmedium_slate_bluemedium_spring_greenmedium_turquoisemedium_violet_red midnight_blue mintcream mistyrosemoccasin navajo_whitenavyold_laceolive olive_draborange orange_redorchidpale_goldenrod pale_greenpale_turquoisepale_violet_red papaya_whip peach_puffperupinkplum powder_bluepurplered rosy_brown royal_blue saddle_brownsalmon sandy_brown sea_greenseashellsiennasilversky_blue slate_blue slate_gray slate_greysnow spring_green steel_bluetantealthistletomato turquoisevioletwheatwhite whitesmokeyellow yellow_greenDrawingContext stroke_props font_propsprimary_coloursecondary_colourstandardContexttextAttr markHeight lowerxHeighttextDimensionsthick ultrathickthin dashPatternfontfacefontsize swapColours primaryColoursecondaryColour DConnImage ConnImage DConnGraphic ConnGraphic DConnDrawingF ConnDrawingF DLocImageLocImageDImageImage DLocGraphic LocGraphicDGraphicGraphic DLocDrawingF LocDrawingFDrawingFDPoint2FPoint2FHPrim hprimToListsingleHrunDFpureDFaskDFasksDFlocalDF runGraphic xlinkGraphiclocalLGlgappendrunImage intoImage intoLocImage xlinkImage intoConnImage PointSupplyMposition DrawingCtxMaskCtxlocalCtxTraceMtraceMonUnitasksCtxChainT runChainT horizontalDrawingTDrawing runDrawing execDrawing runDrawingT execDrawingT runFdcDrawingexecFdcDrawingrunFdcDrawingTexecFdcDrawingTliftToPictureUliftToPictureMb mbPictureUdrawxdrawdrawixdrawiataticonnnodenodei drawGraphic drawGraphicU openStroke closedStroke filledPath borderedPathtextline hkernline vkernlinestrokedEllipse filledEllipseborderedEllipsesupplyPtdisplace localPoint straightLinestrokedRectanglefilledRectangleborderedRectangle strokedCircle filledCircleborderedCircle strokedDisk filledDisk borderedDiskLineEqn PointSlope LineSegmentLS pointSlopelineEqn toLineEqn findIntersect intersectionrectangleLineslangleLine line_startline_endCurve curve_start ctrl_point1 ctrl_point2 curve_endPathSegCurveSegLineSegPath path_length path_elementsPathF emptyPath addSegment segmentLength segmentStart segmentEndplinepcurve toPrimPath toPrimPathU subdivide subdividetCPathMPathrunPathexecPathlinetobeziertocurvetoverticalHorizontalhorizontalVerticalconnectS pathGraphicshortenshortenLshortenRmidpoint directionL directionRmarkCharmarkText markHLine markVLinemarkXmarkPlus markCross markDiamond markFDiamond markBDiamondmarkDisk markSquare markCircle markPentagonmarkStar markAsterisk markOPlus markOCross markFOCross TurtleDrawingTurtleT runTurtleTrunTurtleDrawingexecTurtleDrawingTextMrunTextM execTextMkerncharsymbsymbi symbEscIntalphabetagammadeltaepsilonzetaetathetaiotakappalambdamunuxipirhosigmatauupsilonphichipsiomegauGammauDeltauThetauLambdauXiuPiuSigmauUpsilonuPhiuPsiuOmegaotimesoplustri90tri60tri45otri90otri60otri45barb90barb60barb45perpline arrowTri90 arrowTri60 arrowTri45 arrowOTri90 arrowOTri60 arrowOTri45 arrowBarb90 arrowBarb60 arrowBarb45 arrowPerp RadialAnchor radialAnchor TextAnchor baselineSWCardinalAnchor2 northeast southeast southwest northwestCardinalAnchornorthsoutheastwest CenterAnchorcenter DDotLocImage DotLocImage DotAnchordotChardotTextdotHLinedotVLinedotXdotPlusdotCross dotDiamond dotFDiamonddotDisk dotSquare dotCircle dotPentagondotStar dotAsteriskdotOPlus dotOCross dotFOCross rightBound leftBound bottomBoundtopBoundmovetoplefttopright bottomleft bottomrightleftmidrightmidtopmid bottommidmidptvecMoveupdateStrokePropsupdateFontProps thick_lineultra_thick_line thin_line setLineWidth getDrawingFgetHPrim getChainT getDrawingT getDrawing rectangleIntersectionResult NoIntersect Contained Intersects _line_eqn_A _line_eqn_B _line_eqn_C_point_slope_point_point_slope_slope quadrantCheck intersect1lineF affineComb curveLengthgravesenLengthctrlPolyLength cordLength pointMidpointaffineCombinationgetMPath PathState current_point path_accumexchTiptip pcurveAng shortenSegL shortenLineL shortenSegR shortenLineRlineDirectionLlineDirectionRcurveDirectionLcurveDirectionR polygonPoints standardSizehalfHeightSize shiftOrigin axialLine pathDiamond markBCirclegetTurtleDrawing getTurtleT TurtleState_turtle_origin_current_coordgetTextMEnv char_width spacer_widthSt delta_chr delta_symacc_chracc_symstZeroenvZerogetscharMovesymbMovesnocSymbsnocChar tripointstriAngbarbAng liftPathFlineTipRrightPathProps triTipRight barbTipRightCardinalNWWWSWSSSEEENENN center_anchor radial_anchorcardinal_anchorradialCardinal rectCardinalrectangleAnchor rectangleLDO circleAnchor circleLDO