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.

Lines

hline :: InterpretUnit u => u -> LocGraphic u

Draw a horizontal line.

vline :: 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.

Rectangles

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

Draw a rectangle, start point is bottom left.

ctrRectangle :: (Fractional u, InterpretUnit u) => DrawStyle -> 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 :: (Floating u, InterpretUnit u) => DrawStyle -> u -> Radian -> LocThetaGraphic u

wedge : radius * apex_angle