nQ      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                                  ! " # $ % & ' ( ) * + , - . / 0 1 2 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 cdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkl m n o p q r s t u v w x y z { | } ~        !""#$$%%&&&&&&&''''''''''''''''((()))))))))))))))*******+++++++++++++++,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,-------2GHCunstablestephen.tetley@gmail.comVersion number  (0,13,0) GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>9Doc is a Join List ... 'Create an empty, zero length document. )Create a document from a ShowS function. 6Horizontally concatenate two documents with no space  between them. <Horizontally concatenate two documents with a single space  between them. 6Vertical concatenate two documents with a line break. 2Horizontally concatenate a list of documents with (<>). 2Horizontally concatenate a list of documents with (<+>). 9Vertically concatenate a list of documents, with a line  break between each doc. )Create a document from a literal string. <The string should not contain newlines (though this is not  enforced). ,Create a document from a literal character. *The char should not be a tab or newline. Show the Int as a Doc.  int = text . show Show the Integer as a Doc. Show an "integral value" as a Doc via . Show the Float as a Doc. Show the Double as a Doc. 8Show the Int as hexadecimal, padding up to 4 digits if  necessary. 9No trucation occurs if the value has more than 4 digits. 2Create a Doc containing a single space character. !Create a Doc containing a comma, ",". &Create a Doc containing a semi colon, ";". !Create a Doc containing newline, "\n". :Fill a doc to the supplied length, padding the right-hand  side with spaces. >Note - this function is expensive - it unrolls the functional  representation of the String. /Also it should only be used for single line Doc's. String version of . This is more efficient than  as the input is a string " so its length is more accesible. 6Padding is the space character appended to the right. Left-padding version of . =Punctuate the Doc list with the separator, producing a Doc. ,Enclose the final Doc within the first two. +There are no spaces between the documents:  enclose l r d = l <> d <> r &Enclose the Doc within single quotes. &Enclose the Doc within double quotes. !Enclose the Doc within parens (). "'Enclose the Doc within square brackets []. #$Enclose the Doc within curly braces {}. $&Enclose the Doc within angle brackets <>. %&Create a Doc containing a left paren, '('. &'Create a Doc containing a right paren, ')'. '/Create a Doc containing a left square bracket, '['. (0Create a Doc containing a right square bracket, ']'. ),Create a Doc containing a left curly brace, '{'. *-Create a Doc containing a right curly brace, '}'. +.Create a Doc containing a left angle bracket, '<'. ,/Create a Doc containing a right angle bracket, '>'. -;Comma separate the list of documents and enclose in square  brackets. .<Comma separate the list of documents and enclose in parens. /9Separate the list with a semicolon and enclose in curly  braces. 0Horizontally indent a Doc. &Note - this space-prefixes the Doc on the current line. It = does not indent subsequent lines if the Doc spans multiple  lines. 1Write a Doc to file. 1  !"#$%&'()*+,-./011  !"#$%&'()*+,-./011  !"#$%&'()*+,-./01GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> 2 Times-Roman 3 Times Italic 4 Times Bold 5Times Bold Italic 6 Helvetica 7Helvetica Oblique 8Helvetica Bold 9Helvetica Bold Oblique :Courier ;Courier Oblique < Courier Bold =Courier Bold Oblique >Symbol >Note - Symbol is intentionally not supported for SVG by some = renderers (Firefox). Chrome is fine, but the use of symbol . should be still be avoided for web graphics. 23456789:;<=> 23456789:;<=> 23456789:;<=>GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>K?@ABCDEFGHIJKL     MNOPQR A draw a  straight line% of length 0 at the supplied point. This is might) be useful in concatenating curved paths + as it introduces and extra control point. SS- throws a runtime error if the supplied list  is empty. TT) consumes 4 points from the list on the : intial step (start, control1, control2, end) then steps 7 through the list taking 3 points at a time thereafter > (control1,control2, end). Leftover points are discarded. T- throws a runtime error if the supplied list @ is has less than 4 elements (start, control1, control2, end). UV'Turn a Path into an ordinary PrimPath. 9Assumes path is properly formed - i.e. end point of one : segment is the same point as the start point of the next  segment.  Jens Gravesen'$s bezier arc-length approximation. =Note this implementation is parametrized on error tolerance. mid-point between two points "Curve subdivision via de Casteljau' s algorithm. 2subdivide with an affine weight along the line... WXYShorten both ends... +u should be less-than half the path length Z+Note - shortening a line from the left by ? greater-than-or-equal its length is operationally equivalent 0 to making a zero-length line at the end point. [,Note - shortening a line from the right by ? greater-than-or-equal its length is operationally equivalent 2 to making a zero-length line at the start point. \/Direction of empty path is considered to be 0. ]/Direction of empty path is considered to be 0. ^_`abcde'?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde'LKMNOPQRSTUVWXYZ[\]^_`abcHJIGDFEC@BA?de'?@BAABCDFEEFGHJIIJKLMNOPQRSTUVWXYZ[\]^_`abcdeGHC unstablestephen.tetley@gmail.comfghijklmnopqrsfghijklmnopqrskfghijlmnpoqrsfghijghijklmnopqrsGHCunstablestephen.tetley@gmail.com tuvwxyz{6velo consumes the list as per map, but builds it back , as a Hughes list - so items can be dropped  replaced, repeated, etc... |}~ tuvwxyz{|}~ tuvwxyz{|}~ tuvwxyz{|}~GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> !"#$%&   GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>+NOTE - GlyphMetrics table is parametric on cu -  Character unit and not on the usual u. A Unicode code-point. 8This ignores the Char code lookup and just returns the  default advance vector.  GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>1'()Courier *+,-./Set the line width to a thick. Note this context update is  oblivious - operationally the  line width is set to exactly 2.0. 01<Set the font size to double the current size, note the font 7 size also controls the size of dots, arrowsheads etc. :Set the font size to half the current size, note the font 7 size also controls the size of dots, arrowsheads etc. ;As fontsize is an integer this is not exact - half size of  15pt type is 7pt. &&& GHC highly unstablestephen.tetley@gmail.com 2=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. 344A monad that supplies points, e.g. a turtle monad. 9Collect elementary graphics as part of a larger drawing. 'TraceM works much like a writer monad. ;DUnit is always for fully saturated type constructors, so = (seemingly) an equivalent type family is needed for monads. :Vertical alignment - align to the left, center or bottom. ;Horizontal alignment - align to the top, center or bottom. A Semigroup class. "Project a value out of a context.  GHC highly unstablestephen.tetley@gmail.com9:Most drawing operations in Wumpus-Basic have an implicit  graphics state the DrawingContext, so the most primitive ? building block is a function from the DrawingContext to some  polymorphic answer. @This functional type is represented concretely as the initials  CF for contextual function.  CF :: DrawingContext -> a 56Run a CF& (context function) with the supplied DrawingContext. +Extract the drawing context from a CtxFun.  (ctx -> ctx) 6Apply the projection function to the drawing context.  (ctx -> a) -> (ctx -> a) *Extract the drawing context from a LocCF.  (ctx -> pt -> ctx)  Extract the start point from a LocCF.  (ctx -> pt -> pt) /Extract the drawing context from a LocThetaCF.  (ctx -> pt -> ang -> ctx)  Extract the start point from a LocThetaCF.  (ctx -> pt -> ang -> pt) %Extract the angle from a LocThetaCF.  (ctx -> pt -> ang -> ang) 0Extract the drawing context from a ConnectorCF.  (ctx -> pt1 -> pt2 -> ctx) ,Extract the start point from a ConnectorCF.  (ctx -> pt1 -> pt2 -> pt1) *Extract the end point from a ConnectorCF.  (ctx -> pt1 -> pt2 -> pt2) "This is unCF1 at a specific type. 2Lift a pure value into a Context functional. The  DrawingContext is ignored.   ans -> (ctx -> ans) 5Without any other arguments, this is the same as the  ? combinator for raising into the Context functional. However,  the  arity family of wrap combinators is different. <Lift a pure value into a Context functional, ignoring both  the DrawingContext and the static argument, e.g. this would  ingnore start point for a  LocDrawing).  ans -> (ctx -> r1 -> ans) <Lift a pure value into a Context functional, ignoring both  the DrawingContext and the two static arguments, e.g. this . would ignore the start point and angle for a LocThetaDrawing. ! ans -> (ctx -> r1 -> r2 -> ans) /Promote a Context functional with one argument outside , the functional so that the the argument is inside the  Context functional. 9The type signature is probably more illustrative of the " operation than this description:  * (r1 -> ctx -> ans) -> (ctx -> r1 -> ans) This is essentially the cardinal combinator - flip  in Haskell. 0Promote a Context functional with two arguments outside . the functional so that the two arguments are inside the  Context functional. 9The type signature is probably more illustrative of the " operation than this description: 6 (r1 -> r2 -> ctx -> ans) -> (ctx -> r1 -> r2 -> ans) (Lift a value into a Context functional.   ans -> (ctx -> ans) Essentially this is the kestrel combinator - const in / Haskell, though due to newtype wrapping it is pure from the  Applicative class. 8Lift a one argument function into a Context functional. This is Applicative's 7 with a specialized type  signature. 8Lift a two argument function into a Context functional. This is Applicative's 7 with a specialized type  signature. Extend the arity of a Context functional, the original . function is oblivious to the added argument. ,Typically this combinator is used to take a Graphic to a   LocGraphic* ingoring the start point (figuratively a Graphic  is not coordinate free).  $ (ctx -> ans) -> (ctx -> r1 -> ans) ;This was called the J-combinator by Joy, Rayward-Smith and  Burton (ref. Compling Functional Languages by Antoni > Diller), however it is not the J combinator commonly in the  Literature. Extend the arity of a Context functional, the original . function is oblivious to the added argument. ,Typically this combinator is used to take a  LocGraphic to a  LocThetaGraphic" ingoring the angle of direction.  0 (ctx -> r1 -> ans) -> (ctx -> r1 -> r2 -> ans) >This was called the J-Prime combinator by Joy, Rayward-Smith  and Burton (ref. Compling Functional Languages by Antoni  Diller). &Complementary combinator to static2. >This combinator raises a function two levels rather than one. * (ctx -> ans) -> (ctx -> r1 -> r2 -> ans) 9Supply the output from the first function to the second  function. >This is just monadic bind - specialized to the CF functional  type. 1 (ctx -> a) -> (a -> ctx -> ans) -> (ctx -> ans) 9Supply the output from the first function to the second  function, sharing% the drawing context and the static  argument r1. F (ctx -> r1 -> a) -> (a -> ctx -> -> r1 -> ans) -> (ctx -> r1 -> ans) 9Supply the output from the first function to the second  function, sharing( the DrawingContext and the two static  arguments r1 and r2. X (ctx -> r1 -> r2 -> a) -> (a -> ctx -> -> r1 -> r2 -> ans) -> (ctx -> r1 -> r2 -> ans) =Supply the arguments to an arity 1 Context functional so it  can be situated/. Typically this is supplying the start point  to a  LocGraphic or LocImage.  * (ctx -> r1 -> ans) -> r1 -> (ctx -> ans) This is equivalent to the id** combinator. ;Supply the arguments to an arity 2 Conterxt functional so  it can be situated). Typically this is supplying the start  point and angle to a LocThetaGraphic or  LocThetaImage. 6 (ctx -> r1 -> r2 -> ans) -> r1 -> r2 -> (ctx -> ans) ;Apply the the functional produced by the first argument to # the value produced by the second. 2 (ctx -> a -> ans) -> (ctx -> a) -> (ctx -> ans) ;Apply the the functional produced by the first argument to " the value produced by the second sharing the context of the  first functional argument r1 (usually a Point2) as well as  the DrawingContext. D (ctx -> r1 -> a -> ans) -> (ctx -> r1 -> a) -> (ctx -> r1 -> ans) ;Apply the the functional produced by the first argument to " the value produced by the second sharing the context of the  two functional arguments r1 and r2 as well as the  DrawingContext. V (ctx -> r1 -> r2 -> a -> ans) -> (ctx -> r1 -> r2 -> a) -> (ctx -> r1 -> r2 -> ans)  %Apply the static argument transfomer  (r1 -> a) to the  static argument before" applying the Context functional. 6 (r1 -> a) -> (ctx -> a -> ans) -> (ctx -> r1 -> ans)  :Apply the static argument transfomers to their respective  static arguments before" applying the Context functional. N (r1 -> a) -> (r2 -> b) -> (ctx -> a -> b -> ans) -> (ctx -> r1 -> r2 -> ans)  9Apply the static argument transfomer to the first static . argument of a two static argument functional before applying  the Context functional. B (r1 -> a) -> (ctx -> a -> r2 -> ans) -> (ctx -> r1 -> r2 -> ans)  :Apply the static argument transfomer to the second static . argument of a two static argument functional before applying  the Context functional. B (r2 -> a) -> (ctx -> r1 -> a -> ans) -> (ctx -> r1 -> r2 -> ans)  8Apply the post-transformer to the result of the Context  functional. + (a -> ans) -> (ctx -> a) -> (ctx -> ans) 8Apply the post-transformer to the result of the Context . functional. Version for one static argument. <Note - the DrawingContext is always present so it is never  counted as a static argument. 7 (a -> ans) -> (ctx -> r1 -> a) -> (ctx -> r1 -> ans) 8Apply the post-transformer to the result of the Context / functional. Version for two static arguments. <Note - the DrawingContext is always present so it is never  counted as a static argument. C (a -> ans) -> (ctx -> r1 -> r2 -> a) -> (ctx -> r1 -> r2 -> ans) ;Combine the results of the two Context Functions with the  supplied operator. = (a -> b -> ans) -> (ctx -> a) -> (ctx -> b) -> (ctx -> ans) <Combine the results of the two one-static-argument Context ' Functions with the supplied operator. O (a -> b -> ans) -> (ctx -> r1 -> a) -> (ctx -> r1 -> b) -> (ctx -> r1 -> ans) <Combine the results of the two two-static-argument Context ' Functions with the supplied operator. O (a -> b -> ans) -> (ctx -> r1 -> a) -> (ctx -> r1 -> b) -> (ctx -> r1 -> ans) ,Iteration combinator - the initial argument s1 is not  shared bewteen the drawings. >Evaluate the first Context Function with the drawing context  and the  initial state st0#. The result of the evaluation is  a new state st1 and and answer a1. ?Evaluate the second Context Function with the drawing context  and the new state st1, producing a new state s2 and an  answer a2. 1Return the result of combining the answers with  op :: (ans -> ans -> ans) and the second state s2. 0 (ans -> ans -> ans) -> (ctx -> s1 -> (s1,ans))   K -> (ctx -> s1 -> (s1,ans)) -> (ctx -> s1 -> (s1,ans))  ?This models chaining start points together, which is the model ? PostScript uses for text output when succesively calling the  show operator. >Arity two version of accumulate1 - this is not expected to be  useful! 9 (ans -> ans -> ans) -> (ctx -> s1 -> -> s2 (s1,s2,ans))   ) -> (ctx -> s1 -> s2 -> (s1,s2,ans))   ) -> (ctx -> s1 -> s2 -> (s1,s2,ans))  7     7     7      GHC highly unstablestephen.tetley@gmail.com/ LocGraphic with a bounding box. Graphic with a bounding box. Advance vector& graphic - this partially models the  PostScript show command which moves the  current point by the 4 width (advance) vector as each character is drawn. 8ConnectorImage is a connector drawn between two points  constructing an Image. >Usually the answer type of a ConnectorImage will be a Path so  the Points ar midway, atstart etc. can be taken on it.  !",Images return a value as well as drawing. A node is a ; typical example - nodes are drawing but the also support  taking anchor points. #$%&':ConnectorGraphic is a connector drawn between two points  contructing a Graphic. (A function from point * angle -> graphic );Commonly graphics take a start point as well as a drawing  context. ?Here they are called a LocGraphic - graphic with a (starting)  location. *@Simple drawing - produce a primitive, access the DrawingContext  if required. +9A query on the DrawingContext respective to the supplied  point and angle.  Alias for . ,9A query on the DrawingContext respective to the supplied  point.  Alias for . -A query on the DrawingContext.  Alias for . ./07Extract the horizontal component of an advance vector. ;For left-to-right latin text, the vertical component of an 8 advance vector is expected to be 0. Ingoring it seems 8 permissible, e.g. when calculating bounding boxes for  left-to-right text. 18Extract the verticaltal component of an advance vector. ;For left-to-right latin text, the vertical component of an % advance vector is expected to be 0. 234567898:;<=>?@AB9Construction is different to intoZZ functions hence the  different name. . !"#$%&'()*+,-./0123456789:;<=>?@AB./.-,+*)('&%$#"! 0123456789:;<=>?@AB. !"#$%&'()*+,-./0123456789:;<=>?@AB GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>#CDBecause textAttr* is so commonly used here is a functional  version that avoids tupling. EFGHIJKLMNO9Vertical distance between baselines of consecutive text  lines. PThe mark4 height is the height of a lowercase letter in the  current font. =Arrowheads, dots etc. should generally be drawn at the mark  height. Q9RSTUV:WXYZ[;\Height of a lower case 'x' in Courier. 'x'" has no ascenders or descenders. ]^_=Query the dimensions of the text using the current font size ) but using metrics derived from Courier. 8Note - the width will generally be a over-estimate for  non-monospaced fonts. `The heigth of n lines of text, which is  n lines + n-1 line spacers a#The default padding is half of the  char width. b$Vector from baseline left to center CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ab CDEFGHIJKMNLPQORSTUVWXYZ[\]^_`ab CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abGHC highly unstablestephen.tetley@gmail.com/cdefg<=hijAs h but the supplied point is the center. <Centered is inexact - it is calculated with monospaced font  metrics. klm8Point is the baseline left of the bottom line, text is  left-aligned. >?nopqrsSupplying a point to a  CFGraphic takes it to a regular  *. tuvwxyz{|}~@Supplied point is  bottom-left. ASupplied 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. B(cdefghijklmnopqrstuvwxyz{|}~(cdefghijklmnopqrs|tuvwxyz{}~(cdefghijklmnopqrstuvwxyz{|}~GHCunstablestephen.tetley@gmail.comCDEF Scaling... GHC unstablestephen.tetley@gmail.comGHIJ<Run the drawing returning only the output it produces, drop * any answer from the monadic computation. =Run the drawing ignoring the output it produces, return the & answer from the monadic computation. >Note - this useful for testing, generally one would want the : opposite behaviour (return the drawing, ignore than the  answer). Unsafe promotion of HPrim to Picture. 3If the HPrim is empty, a run-time error is thrown. Safe promotion of HPrim to (Maybe Picture). If the HPrim is empty, then Nothing is returned. Unsafe 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. 2Draw a Graphic taking the drawing style from the  drawing context.  This operation is analogeous to tell in a Writer monad. Hyperlink version of . 1Draw 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.  Forgetful . Hyperlink version of .  Forgetful . GHC unstablestephen.tetley@gmail.com KLMGHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>:Anchor on a border that can be identified with and angle. ;Note - in TikZ cardinal anchors are not necessarily at the @ equivalent radial position, for instance reactangle north-east = is the top-right corner whether or not this is incident at  45deg. NGHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>8GhostScript version that the aliases were derived from. Get the .afm metrics file. <Note this return only the file name and not the path to it. 0 The full path must be resolved in client code. %Get the GhostScript font name alias. 4Map from PostScript font name to the corresponding  GhostScript name and file. GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>>OPQRSTUVThis one is from Chris Okasaki's "Even Higher-Order  Functions for Parsing". ;Peek tries the supplied parse, but does not consume input  ** even when the parse succeeds **. WApplicative cons. " an alias for Control.Applicative X.   5  5  5  GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> ;Opaque type representing a parser that consumes arbitrary  space.  Unlike Parsec'1s lexeme parser, this can be customized so that 0 e.g. newlines are not consumed as white space. YZ #Build a lexeme parser that handles space. Space' is zero or more elements matching the isSpace  predicate from  Data.Char.  -Build a lexeme parser that handles arbitrary space. space5 is parametric, for instance this can manufacture a : lexeme parser that consumes space and tab chars but not  newline. ;Build a lexeme parser that handles start-and-end delimited  comments and arbitrary space. ;Build a lexeme parser that handles line spanning comments  an arbitrary space. ;Build a lexeme parser that handles start-and-end delimited ' comments, line comments and arbitrary space. [\]<Wrap a CharParser with a lexeme parser, the CharParser will : consume trailing space according to the strategy of the  LexemeParser.          GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>^_`aLine in equational form, i.e. Ax + By + C = 0. bcdefgh i!jkl"#$:Calculate the counter-clockwise angle between two points  and the x-axis.  !"#$  !"#$  !"#$GHCunstable)Stephen Tetley <stephen.tetley@gmail.com>8%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\8%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\8%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\8%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\GHCunstable)Stephen Tetley <stephen.tetley@gmail.com>]^_`abcdefghijklmnopqrstuvwxyz{|}~]^_`abcdefghijklmnopqrstuvwxyz{|}~]^_`abcdefghijklmnopqrstuvwxyz{|}~]^_`abcdefghijklmnopqrstuvwxyz{|}~.GHC highly unstablestephen.tetley@gmail.comF      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~GHC unstablestephen.tetley@gmail.commnopqr5IterAlg is a variant of AnaAlg that builds infinite  sequences (iterations). =When lifted to a Chain an iteration is bounded by a count so  it will terminate. 6Chains are built as unfolds - AnaAlg avoids the pair > constructor in the usual definition of unfoldr and makes the  state strict. AIt is expected that all Chains built on unfolds will terminate. stuvGHC unstablestephen.tetley@gmail.com wx    /GHC unstablestephen.tetley@gmail.com GHCunstablestephen.tetley@gmail.comyz{|   ,Draw multi-line text, aligned to the left. @The input string is split on newline with the Prelude function  lines0. The supplied point is the center of the text.  9Draw multi-line text, aligned on the horizontal center. @The input string is split on newline with the Prelude function  lines0. The supplied point is the center of the text. -Draw multi-line text, aligned to the right. @The input string is split on newline with the Prelude function  lines0. The supplied point is the center of the text. }~            GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> : ' num_points * radius * center -> [point]  Supplied point is the center. Note disk is filled.  ! ! ! !GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>*"#$%&$Note - dots now use font metrics... '()*+,-./0123456"#$%&'()*+,-./0123456$#"%&'()*+,-./0123456"#$%&'()*+,-./0123456GHCunstablestephen.tetley@gmail.com)The center of a picture. 'Extract the mid point of the top edge. *Extract the mid point of the bottom edge. (Extract the mid point of the left edge. )Extract the mid point of the right edge. Extract the top-left corner. Extract the top-right corner.  Extract the bottom-left corner. !Extract the bottom-right corner. 7  a `over` b Place 'drawing' a over b. The idea of over here is in = terms z-ordering, nither picture a or b are actually moved. 8  a `under` b  Similarly under! draws the first drawing behind  the second but move neither. *Move in both the horizontal and vertical. 9Draw a, move b) so its center is at the same center as  a, b) is drawn over underneath in the zorder.  a `centeric` b :  a `nextToH` b Horizontal composition - move b, placing it to the right  of a. ;  a `nextToV` b Vertical composition - move b, placing it below a. <)Place the picture at the supplied point. < was previous the 7 operator. =*Center the picture at the supplied point. >#Concatenate the list of drawings. No pictures are moved. ?Concatenate the list pictures xs horizontally. @!Concatenate the list of pictures xs vertically. A  hspace n a b Horizontal composition - move b, placing it to the right  of a with a horizontal gap of n separating the pictures. B  vspace n a b Vertical composition - move b, placing it below a with a  vertical gap of n separating the pictures. C  hsep n xs !Concatenate the list of pictures xs horizontally with  hspace starting at x&. The pictures are interspersed with  spaces of n units. D  vsep n xs !Concatenate the list of pictures xs vertically with  vspace starting at x&. The pictures are interspersed with  spaces of n units. E  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. F  alignV align a b Vertical composition - move b, placing it below a 0 and align it with the left, center or right of a. G  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. H  alignVSep align sep a b !Spacing version of alignV - move b below a  separated by sep units, align b according to align. I Variant of ?% that aligns the pictures as well as  concatenating them. J Variant of @% that aligns the pictures as well as  concatenating them. K Variant of hsep% that aligns the pictures as well as ! concatenating and spacing them. L Variant of vsep% that aligns the pictures as well as ! concatenating and spacing them. 789:;<=>?@ABCDEFGHIJKL789:;<=>?@ABCDEFGHIJKL789:;<=>?@ABCDEFGHIJKLGHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>%MNOPQRSTUVWXYZ[>Wumpus needs a very small subset of AFM files, common to both  version 2.0 and version 4.1. >Note - Bounding Box is mandatory for AFM versions 3.0 and 4.1 ?Cap Height is optional in AFM versions 3.0 and 4.1. As Wumpus ? uses cap height in calculations, glyph metrics must be build / with an arbitrary value if it is not present. *Encoding Scheme is optional in AFM files. \]^_`abcdeAfm files index glyphs by PostScript character code. This & is not the same as Unicode, ASCII... #It is expected to be determined by EncodingScheme in the " Global Font Information Section. fWrapped Double representing 1/1000 of the scale factor < (Point size) of a font. AFM files encode all measurements  as these units. g=Compute the size of a measurement in Afm units scaled by the  point size of the font. hijk MNOPQRSTUVWXYZ[\]^_`abcdefghijk fghedcba[\]^_`VWXYZUTMNOPQRSijkMNOPQRSNOPQRSTUVWXYZWXYZ[\]^_`\]^_`abcdefghijk GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>lmno;Strictly speaking a fontBBox is measured in integer units. pqrstuvwxyz{|}~lmnopqrstuvwxyz{|}~lmnopqrstuvwxz{|y}~lmnopqrstuvwxyz{|}~!GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>"GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>#MNOPQRSTUVWXYZ[\]^_`abcdefghijk#GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>$GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>#MNOPQRSTUVWXYZ[\]^_`abcdefghijk%GHC unstablestephen.tetley@gmail.com fghijklmnopqrs&GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> :  ( altitude * start_pt * end_pt -> mid_pt  Triangular midpoint. u9 is the altitude of the triangle - negative values of u # form the triangle below the line.  :  : altitude * start_pt * end_pt * (third_pt, two_thirds_pt)  ;Double triangular joint - one joint at a third of the line " length, the other at two thirds.  :  6 altitude * start_pt * end_pt * (top_left, top_right)  %Control points forming a rectangle. ;The two manufactured control points form the top corners,  so the supplied points map as start_point == bottom_left and  end_point == bottom_right.  :  - start_pt -> end_pt -> (top_left, top_right)  =Control points forming a square - side_len derived from the ( distance between start and end points. ;The two manufactured control points form the top corners,  so the supplied points map as start_point == bottom_left and  end_point == bottom_right.  :  3 start_pt -> end_pt -> (bottom_left, bottom_right)  =Control points forming a square - side_len derived from the ( distance between start and end points. As per  but the square is drawn   underneath3 the line formed between the start and end points. 2 (Underneath is modulo the direction, of course). -The two manufactured control points form the bottom corners,  so the supplied points map as start_point == top_left and  end_point == top_right.  :  G altitude * ratio_to_base * start_pt * end_pt -> (top_left, top_right)  ,Control points form an isosceles trapezoid. ;The two manufactured control points form the top corners,  so the supplied points map as start_point == bottom_left and  end_point == bottom_right.  :  9 altitude * start_pt * end_pt * (top_left, bottom_right)  ;Control points forming a square bisected by the line from  start_pt to end_pt. :The two manufactured control points form the top_left and 6 bottom_right corners, so the supplied points map as  start_point == bottom_left and end_point == top_right. 'GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>Connect with a straight line. :Right-angled connector - go vertical, then go horizontal. :Right-angled connector - go horizontal, then go vertical. 7Right-angled connector - go vertical for the supplied 5 distance, go horizontal, go vertical again for the  remaining distance. 9Right-angled connector - go horizontal for the supplied 4 distance, go verical, go horizontal again for the  remaining distance.  Triangular joint. u" is the altitude of the triangle. Double  triangular joint. u" is the altitude of the triangle. Lightning bolt' joint - a two joint connector with an axis + perpendicular to the connector direction. u( is the half length of the of the axis. ,Form a curve inside an isosceles triangle. 8The two Bezier control points take the same point - the ? altitude of the triangle. The curve tends to be quite shallow  relative to the altitude. u" is the altitude of the triangle. Form a curve inside a square. 'The two Bezier control points take the top corners. The  curve tends to be very deep. Form a curve inside a square. As per  but the curve is drawn  underneath 3 the line formed between the start and end points. 1(Underneath is modulo the direction, of course). altitude * ratio_to_base !Form a curve inside a trapeziod. =Make a curve within a square, following the corner points as  a Z. =Make a curve within a square, following the corner points as  a Z. =The order of tracing flips the control points, so this is an   underneath version of . 0GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>J?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde(GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com><The length of the control-point vector wants to be slighly  longer than half of d& (d - being the distance between the   truncated points and the corner). . throws a runtime error if the input list has  less than 3 eleemnts. %Two parts - line and corner curve... )GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> *GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> Coordinate  Note - the x is drawn  regardless of any scaling or rotation. +GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>- :  width * height -> shape   : ( round_length * width * height -> shape   :  radius -> shape   : # half_width * half_height -> shape  :Note - args might change to tull_width and full_height...  : 2 round_length * half_width * half_height -> shape  :Note - args might change to full_width and full_height... x_radius is the unit length.  :  x_radii * y_radii -> shape  1GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>$,GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>6*Encode an arrowhead as an image where the answer is the  retract distance. <The retract distance is context sensitive - usually just on ? the markHeight (or halfMarkHeight) so it has to be calculated  w.r.t. the DrawingCtx.  Tiplen is length of the tip *along the line it follows*.  |\  | \  | /  |/   | | -- tip len 3Tip width is the distance between upper and lower  arrow points.  __  |\  | \ tip  | / width  |/ __  ;This one is for triangular tips defined by their tip angle  e.g. 90deg, 60deg, 45deg. :The tip width will be variable (tip length should be the  markHeight).  <This one is for triangles when the tip height and tip width  are known.    Tripoints takes the * tip length* is the mark height. ?This means that the 90deg tip has a tip width greater-than the = mark height (but that is okay - seemingly this is how TikZ  does it). -GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com> !"#$connector with no arrow heads. Same tip both ends. %&'(2GHChighly unstable)Stephen Tetley <stephen.tetley@gmail.com>&)3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~L                                                ! " # $ % & ' ( ) * + , - . / 0 1 2 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 { | } ~                       5  !"#$%&'()*B+,-./012345I6789:;<=>?@ADGBCDEFGHIJKL^MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef>@gh?ijklmnopqrrstuvwxyzz{|}~~                      < q D C G!""#$$%%&&&&&&&''''''''''''''''((()))))))))))))))*******+++++++++++++++,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,-- - - - - - !"#$%&'()*+,-./0123456789:;<=>>?@A B C D E F G H I J K L   M  NOP Q R S TUVWXYZ[\]^_`abcdefghiOj6klmnopqrBstuCvwxyz{|}~ L   !!!##%%%%%%%((((()))))))))))))))))**********++++++++++++++++++++++++++++++,,,,, , , , , ,,,,,,,,,,,,,,------ -!-"-#$wumpus-basic-0.13.0Wumpus.Basic.VersionNumber$Wumpus.Basic.Utils.FormatCombinatorsWumpus.Basic.SafeFontsWumpus.Basic.Paths.BaseWumpus.Basic.Monads.TurtleClassWumpus.Basic.Utils.HListWumpus.Basic.Paths.Construction!Wumpus.Basic.Graphic.GlyphMetrics#Wumpus.Basic.Graphic.DrawingContextWumpus.Basic.Graphic.Base$Wumpus.Basic.Graphic.ContextFunction!Wumpus.Basic.Graphic.GraphicTypesWumpus.Basic.Graphic.Query&Wumpus.Basic.Graphic.GraphicOperations#Wumpus.Basic.Graphic.ScalingContext!Wumpus.Basic.Graphic.TraceDrawingWumpus.Basic.Graphic.DrawingWumpus.Basic.Graphic.Anchors!Wumpus.Basic.FontLoader.GSFontMap$Wumpus.Basic.Utils.ParserCombinatorsWumpus.Basic.Utils.TokenParsersWumpus.Basic.Utils.IntersectionWumpus.Basic.Colour.X11ColoursWumpus.Basic.Colour.SVGColoursWumpus.Basic.Chains.BaseWumpus.Basic.Chains.DerivedWumpus.Basic.Text.LRTextWumpus.Basic.Dots.MarksWumpus.Basic.Dots.AnchorDotsWumpus.Basic.DrawingCompositionWumpus.Basic.FontLoader.Base%Wumpus.Basic.FontLoader.AfmParserBase'Wumpus.Basic.FontLoader.AfmV4Dot1Parser!Wumpus.Basic.FontLoader.AfmLoader#Wumpus.Basic.FontLoader.AfmV2Parser Wumpus.Basic.FontLoader.GSLoaderWumpus.Basic.Monads.TurtleMonad Wumpus.Basic.Paths.ControlPointsWumpus.Basic.Paths.ConnectorsWumpus.Basic.Paths.RoundCornersWumpus.Basic.Shapes.BaseWumpus.Basic.Shapes.CoordinateWumpus.Basic.Shapes.DerivedWumpus.Basic.Arrows.TipsWumpus.Basic.Arrows.ConnectorsWumpus.Basic.GraphicWumpus.Basic.ChainsWumpus.Basic.PathsWumpus.Basic.ShapesWumpus.Basic.Arrowswumpus_basic_versionFormatformatDocSDocemptyshowsDoc<><+>vconcatseparatehcathsepvcattextcharintintegerintegralfloatdoublehex4spacecomma semicolonlinefill fillStringR fillStringL punctuateenclosesquotesdquotesparensbracketsbracesangleslparenrparenlbracketrbracketlbracerbracelangleranglelisttupled semiBracesindentwriteDoc times_roman times_italic times_boldtimes_bold_italic helveticahelvetica_obliquehelvetica_boldhelvetica_bold_obliquecouriercourier_oblique courier_boldcourier_bold_obliquesymbol DPathSegment PathSegmentCurve1Line1 DPathViewR PathViewR:>>PathOneR DPathViewL PathViewL:<<PathOneLDPathPathlengthappendpconcatcurvepivottraceLinePointstraceCurvePoints curveByAngles toPrimPathtipLtipR shortenBothshortenLshortenR directionL directionRmidwaymidway_atstartatstart_atendatend_ pathViewL pathViewRTurtleMgetLocsetLoc getOrigin setOriginCoordsetsLocsetsLoc_resetLoc moveRightmoveLeftmoveUpmoveDownnextLineHemptyHwrapHconsHsnocHappendHunfoldrHveloHconcatHtoListH fromListHPathMrunPathexecPathtiplinetorlinetohlinevlinebeziertocurvetoverticalHorizontalhorizontalVerticalBaseGlyphMetrics GlyphMetricsget_bounding_box get_av_lookupget_cap_heightGlyphMetricsTableglyph_bounding_boxglyph_default_adv_vecglyph_adv_vecsglyph_cap_height CodePointFontNamemonospace_metrics buildMetricsDrawingContextFDrawingContext glyph_tablesfallback_metrics stroke_props font_props stroke_colour fill_colourline_spacing_factorstandardContextmetricsContextdefault_drawing_contextthick ultrathickthincapButtcapRound capSquare joinMiter joinRound joinBevel dashPatternunit_dash_patternphasedphase doublegaps doubledashesfontfacefontsize doublesizehalfsize swapColoursbothStrokeColourbothFillColour strokeColour fillColourwithFontMetrics PrimGraphicgetPrimGraphicHPrim PointSupplyMposition DrawingCtxMaskDClocalizeTraceMtraceMonUnitVAlignVRightVCenterVLeftHAlignHBottomHCenterHTopOPlusoplusoconcatanteriorsuperiorasksDC hprimToListsingleH primGraphiccollectH DConnectorCF DLocThetaCFDLocCF ConnectorCF LocThetaCFLocCFCFrunCF drawingCtxqueryCtxlocCtxlocPoint locThetaCtx locThetaPoint locThetaAngconnCtx connStartconnEndunLocunTheta unLocTheta unConnectorunCF1unCF2wrapwrap1wrap2promote1promote2raiseraise1raise2static1static2 dblstaticbindbind1bind2situ1situ2applyapply1apply2prepro1prepro2prepro2aprepro2bpostpropostpro1postpro2postcomb postcomb1 postcomb2 accumulate1 accumulate2DBoundedLocGraphicBoundedLocGraphicDBoundedGraphicBoundedGraphic DAdvGraphic AdvGraphicDConnectorImageDLocThetaImage DLocImageDImageConnectorImage LocThetaImageLocImageImageDConnectorGraphicDLocThetaGraphic DLocGraphicDGraphicConnectorGraphicLocThetaGraphic LocGraphicGraphicLocThetaDrawingInfoLocDrawingInfo DrawingInfo AdvanceVec PointDisplaceadvanceHadvanceV runGraphic runLocGraphicrunImage runLocImagemoveLocat extrGraphicextrLocGraphicfontDeltaGraphicfontDeltaImage xlinkGraphic xlinkImage intoImage intoLocImageintoConnectorImageintoLocThetaImagemakeAdvGraphictextAttr withTextAttr strokeAttrwithStrokeAttrfillAttr withFillAttr borderedAttrwithBorderedAttr lineWidthfontAttrfontSizefontFacebaselineSpacing markHeightmarkHalfHeightglyphBoundingBoxglyphHeightRange glyphHeightglyphCapHeight avLookupTablemonoFontPointSize monoCharWidth monoTextWidthmonoTextLength monoCapHeightmonoLowerxHeightmonoDescenderDepthmonoAscenderHeightmonoTextDimensionsmonoMultiLineHeightmonoDefaultPaddingmonoVecToCenter drawGraphic openStroke closedStroke filledPath borderedPathtextline rtextlinecentermonoTextline escapedline rescapedline textlineMulti hkernline vkernlinestrokedEllipse filledEllipseborderedEllipsesupplyPt vecdisplacedisplace hdisplace vdisplace parallelvecperpendicularvecdisplaceParalleldisplacePerpendicular localPoint straightLinestraightLineBetween curveBetweenstrokedRectanglefilledRectangleborderedRectangle strokedCircle filledCircleborderedCircle strokedDisk filledDisk borderedDiskillustrateBoundedGraphicillustrateBoundedLocGraphicScalingTScalingScalingContext scale_in_x scale_in_yScalingMXDimYDimscaleXscaleYscalePtscaleVec runScaling runScalingTregularScalingContextcoordinateScalingContextunitXunitY TraceDrawingT TraceDrawingrunTraceDrawingexecTraceDrawingevalTraceDrawingrunTraceDrawingTexecTraceDrawingTevalTraceDrawingTliftToPictureUliftToPictureMb mbPictureUquerydrawxdrawdrawidrawi_xdrawixdrawi_nodenodeiDDrawingDrawing runDrawing runDrawingU drawTracing clipDrawing modifyDrawing drawingConcat RadialAnchor radialAnchorCardinalAnchor2 northeast southeast southwest northwestCardinalAnchornorthsoutheastwest CenterAnchorcenter northwards southwards eastwards westwardsnortheastwardssoutheastwardssouthwestwardsnorthwestwardsradialConnectorPoints GSFontMapghostscript_version gsMetricsFile gsFontAliascore14_alias_table ParseError CharResult CharParserParserResultOkayFail runParserrunParserEitherfailure throwError lookaheadpeekeofequalssatisfyoneOfnoneOfchainl1chainr1chainlchainrchoicecountbetweenoption optionMaybe optionUnitskipOneskipMany skipMany1many1sepBysepBy1sepEndBy sepEndBy1manyTill manyTill1stringanyCharupperlowerletteralphaNumdigithexDigitoctDigitnewlinetab LexemeParserspaceLexemeParserspaceCharLexemeParsercommentLexemeParsercommentLineLexemeParsercommentMultiLexemeParserlexeme whiteSpaceoctBaseoctHaskhexBasenaturalLineEqn PointSlope LineSegmentLS pointSlopelineEqn toLineEqn findIntersect intersectionrectangleLines polygonLinesantique_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_green SequenceAlg BivariateAlgIterAlgIterStepAnaAlgStepDoneLocChainChainchain chainFromunchain bivariate iterationboundedpairOnXspairOnYs univariateX univariateY tableDown tableRight horizontalvertical horizontals verticalsrescale singleLineBL singleLineCCmultiAlignLeftmultiAlignCentermultiAlignRightmarkCharmarkText markHLine markVLinemarkXmarkPlus markCross markDiamond markFDiamond markBDiamondmarkDisk markSquare markCircle markPentagonmarkStar markAsterisk markOPlus markOCross markFOCross DDotLocImage DotLocImage DotAnchordotChardotTextdotHLinedotVLinedotXdotPlusdotCross dotDiamond dotFDiamonddotDisk dotSquare dotCircle dotPentagondotStar dotAsteriskdotOPlus dotOCross dotFOCrossoverundercentricnextToHnextToVatPoint centeredAtzconcathspacevspacevsepalignHalignV alignHSep alignVSephcatAvcatAhsepAvsepA FontLoaderunit_scale_funpath_to_font_dirfile_name_locator font_parser post_processFontLoadResult FontLoadErrAfmGlyphMetrics afm_char_codeafm_width_vector afm_char_nameAfmFile afm_encoding afm_font_bboxafm_cap_heightafm_glyph_metrics GlobalInfoAfmKeyAfmBoundingBoxPSEncodingScheme PSCharCodeAfmUnitafmValue afmUnitScaleloadFontloadBaseGlyphMetricsbuildGlyphMetricsTable afmFileParserrunQuery textQuery getFontBBoxgetEncodingScheme getCapHeightcharBBoxmetric keyStringPair versionNumberstartCharMetricskeyName newlineOrEOF uptoNewlinenamename1seminumbercinthexIntoctIntparseAfmV4Dot1FileloadAfmMetricsafmV4Dot1LoaderparseAfmV2File loadGSMetrics gsFontLoaderTurtleT runTurtleTmidpointIsoscelesdblpointIsoscelesrectangleFromBasePointssquareFromBasePointsusquareFromBasePointstrapezoidFromBasePointssquareFromCornerPointsDConnectorPath ConnectorPathconnLine connRightVH connRightHV connRightVHV connRightHVH connIsoscelesconnIsosceles2connLightningBoltconnIsoscelesCurveconnSquareCurveconnUSquareCurveconnTrapezoidCurveconnZSquareCurveconnUZSquareCurve cornerCurve roundEveryillustratePath ShapeGeomShapeCTMShapeConstructorLocShapeShape makeShape borderedShape filledShape strokedShape makeShapeCTM runShapeGeomaskCTM shapeCenter shapeAngle projectPoint DCoordinate CoordinateDCoordinateAnchorCoordinateAnchor coordinate coordinateDot coordinateXDEllipseEllipseDDiamondDiamondDCircleCircle DRectangle Rectangle rectangle rrectangle mkRectanglecirclediamondrdiamondellipse Arrowhead getArrowheadtri90tri60tri45otri90otri60otri45revtri90revtri60revtri45 orevtri90 orevtri60 orevtri45barb90barb60barb45 revbarb90 revbarb60 revbarb45perpbracketdiskTipodiskTip squareTip osquareTip diamondTip odiamondTipcurveTip revcurveTip Connector connector leftArrow rightArrowdblArrowleftrightArrowstrokeConnectorIndentLineJoinDoc1unDocindentSrunDocbaseGHC.Real fromIntegralpadr StrictCurveCurvePathSegCurveSeg _curve_length _curve_start _ctrl_pt_one _ctrl_pt_two _curve_endLineSeg _line_length _line_start _line_end _path_length _path_start_path_elements _path_end segmentLength segmentStart segmentEnd lineSegment curveLengthgravesenLengthctrlPolyLength cordLength pointMidpoint subdivide subdividetaffineCombination makeLeftPath shortenSegL shortenLineL makeRightPath shortenSegR shortenLineRgetPathMSt current_pointpath_accsnocline wumpus_blackwumpus_light_graywumpus_courierupdateStrokePropsupdateFontProps thick_lineultra_thick_line thin_line setLineWidth setLineCap setLineJoingetHPrimgetCFControl.Applicativepure metamorphPrim glyphQuery withFontSizemonoTotalCharHeightlocPrimGraphicthetaLocPrimGraphictmStepfeedPtdrawWith bbrectangle getScalingT getScalinggetTraceDrawingTgetTraceDrawing getDrawing mbpostcomb extendPtDist getParserFKSKyieldalt eagerMany eagerSome<:>somegetLexemeParser lineComment spanCommentendLineIntersectionResult NoIntersect Contained Intersects _line_eqn_A _line_eqn_B _line_eqn_C_point_slope_point_point_slope_slope quadrantCheck intersect1lineF affineComb initial_st iter_stepst_zerogen_stepgetChainscaledBivariatePtscaledBivariateVecdownstep rightstep InterimText1 text1_escaped text1_advance multiAligned mergeLines singleLRTextdrawLeftAligned1drawCenterAligned1drawRightAligned1linesToInterims avMaxWidth interimText1 textVector charVectorannotateStartPoints polygonPoints shiftOrigin axialLine pathDiamond markBCircleCardinalNWWWSWSSSEEENENN center_anchor radial_anchorcardinal_anchorradialCardinal rectCardinalrectangleAnchorbboxRectAnchor rectangleLDO circleAnchor circleLDO locImageMapL boundaryExtrboundaryCenter boundaryN boundaryS boundaryE boundaryW boundaryNW boundaryNE boundarySW boundarySEboundaryLeftEdgeboundaryRightEdgeboundaryBottomEdgeboundaryTopEdge empty_drawing megaCombRmove alignMove alignMove2 getAfmUnit locateStep parseStepreportBaseError makeAdvVecs globalInfofontBBoxlpcharMetricsV4Dot1 widthVector characterCode charMetricsV2 getTurtleTTurtleScalingT TurtleState_turtle_origin_current_coordtwoParts drawPathBoth drawPath1 bezierCtrl pathPoint getShapeGeom ctm_center ctm_scale_x ctm_scale_y ctm_rotation shape_ctmpath_funcons_funShapeR getShapeR runShapeR shapeImage updateCTM LocCoordinate getCoordinategetCoordAnchor runCoordinatecMapquarterMarkHeightdrawDotdrawXell_ctmell_rxell_rydia_ctmdia_hwdia_hhcirc_ctm circ_radiusrect_ctmrect_hwrect_hh runRectanglerectangleIntersectrectanglePoints runCirclemkCircle circlePoints runDiamonddiamondIntersectmidpoint mkDiamond diamondPoints runEllipsescaleEll mkEllipse ellipsePointstriVecsByAngle triVecsByDistmarkHeightLessLineWidth noRetracttripointsByAnglerevtripointsByAngletripointsByDistrevtripointsByDist bindLocTipbindLocThetaTiptriTLG revtriTLGbarbTLG revbarbTLGperpTLGperpPath bracketTLG bracketPathdiskTLG squareTLG diamondTLGcurveTLG revcurveTLG ArrowMarkconnector_pathopt_left_arrowopt_right_arrow shortenPathtipEvalunmarkedmakeMark