Wumpus.Drawing.Basis.DrawingPrimitives

Alternative to the DrawingPrimitives module in Wumpus-Basic.

The drawing primitives here are either slightly higher level or less general (more quirky).

This module is expected to be imported qualified - other modules (e.g. shapes and paths) are likely to export conflicting names.

** WARNING ** - much of this module is probably obsolete (except wedge).

Monoid mappend

(<>) :: Monoid a => a -> a -> a

Alias for mappend in Monoid.

  <> (infixr 6)

Lines

horizontalLine :: InterpretUnit u => u -> LocGraphic u

Draw a horizontal line.

verticalLine :: InterpretUnit u => u -> LocGraphic u

Draw a vertical line.

pivotLine :: (Floating u, InterpretUnit u) => u -> u -> Radian -> LocGraphic u

pivotLine : left_length * right_length * incline -> LocGraphic

Draw a pivot line. The start point is a pivot along the line, not the end. The left and right distances are the extension of the line from the pivot.

oStraightLines :: InterpretUnit u => [Point2 u] -> Graphic u

Draw an open path formed from straight line segments.

cStraightLines :: InterpretUnit u => DrawMode -> [Point2 u] -> Graphic u

Draw an closed path formed from straight line segments.

Rectangles

blRectangle :: InterpretUnit u => DrawMode -> u -> u -> LocGraphic u

Draw a rectangle, start point is bottom left.

ctrRectangle :: (Fractional u, InterpretUnit u) => DrawMode -> u -> u -> LocGraphic u

Draw a rectangle, start point is bottom left.

Arc and wedge

arc :: (Floating u, InterpretUnit u) => u -> Radian -> LocThetaGraphic u

arc : radius * apex_angle

wedge :: (Real u, Floating u, InterpretUnit u) => DrawMode -> u -> Radian -> LocThetaGraphic u

wedge : mode * radius * apex_angle

Wedge is drawn at the apex.