wumpus-core-0.30.0: Pure Haskell PostScript and SVG generation.

PortabilityGHC
Stabilityunstable
MaintainerStephen Tetley <stephen.tetley@gmail.com>

Wumpus.Core.WumpusTypes

Contents

Description

This module re-exports types and functions from Wumpus.Core.PictureInternal but makes them opaque.

Synopsis

Picture types

data Picture u Source

Picture is a leaf attributed tree - where attributes are colour, line-width etc. It is parametric on the unit type of points (typically Double).

Wumpus's leaf attributed tree, is not directly matched to PostScript's picture representation, which might be considered a node attributed tree (if you consider graphics state changes less imperatively - setting attributes rather than global state change).

Considered as a node-attributed tree PostScript precolates graphics state updates downwards in the tree (vis-a-vis inherited attributes in an attibute grammar), where a graphics state change deeper in the tree overrides a higher one.

Wumpus on the other hand, simply labels each leaf with its drawing attributes - there is no attribute inheritance. When it draws the PostScript picture it does some optimization to avoid generating excessive graphics state changes in the PostScript code.

Omitting some details, Picture is a simple non-empty leaf-labelled rose tree via:

 Leaf primitives | Picture [tree]

Where OneList is a variant of the standard list type that disallows empty lists.

The additional constructors are convenience:

Clip nests a picture (tree) inside a clipping path.

The Group constructor allows local shared graphics state updates for the SVG renderer - in some instances this can improve the code size of the generated SVG.

Instances

Show u => Show (Picture u) 
(Num u, PSUnit u) => Format (Picture u) 
(Num u, Ord u) => Translate (Picture u) 
(Num u, Ord u) => Scale (Picture u) 
(Real u, Floating u) => RotateAbout (Picture u) 
(Real u, Floating u) => Rotate (Picture u) 
(Num u, Ord u) => Transform (Picture u) 
Boundary (Picture u) 

data GSUpdate Source

Update the graphics state for SVG rendering.

Note - this does not change how any of the Primitives are drawn, nor does it change the default colour or font style. It is solely a backdoor into the SVG renderer to potential allow some code size reductions.

Instances

data Primitive u Source

Wumpus's drawings are built from two fundamental primitives: paths (line segments and Bezier curves) and labels (single lines of text).

Ellipses are a included as a primitive only for optimization - drawing a reasonable circle with Bezier curves needs at least eight curves. This is inconvenient for drawing dots which can otherwise be drawn with a single arc command.

Wumpus does not follow PostScript employing arc as a general path primitive - arcs are used only to draw ellipses. This is because arcs do not enjoy the nice properties of Bezier curves, whereby the affine transformation of a Bezier curve can simply be achieved by the affine transformation of it's control points.

Ellipses are represented by their center, half-width and half-height. Half-width and half-height are used so the bounding box can be calculated using only multiplication, and thus initially only obliging a Num constraint on the unit. Though typically for affine transformations a Fractional constraint is also obliged.

Instances

Eq u => Eq (Primitive u) 
Show u => Show (Primitive u) 
PSUnit u => Format (Primitive u) 
(Real u, Floating u, FromPtSize u) => Boundary (Primitive u) 

data PrimPath u Source

PrimPath - start point and a list of path segments.

Instances

Eq u => Eq (PrimPath u) 
Show u => Show (PrimPath u) 
PSUnit u => Format (PrimPath u) 

data PrimPathSegment u Source

PrimPathSegment - either a cubic Bezier curve or a line.

Instances

Eq u => Eq (PrimPathSegment u) 
Show u => Show (PrimPathSegment u) 
PSUnit u => Format (PrimPathSegment u) 

data PrimLabel u Source

Label - represented by baseline left point and text.

Instances

Eq u => Eq (PrimLabel u) 
Show u => Show (PrimLabel u) 
PSUnit u => Format (PrimLabel u) 

Drawing styles

data PathProps Source

Note when drawn filled and drawn stroked the same polygon will have (slightly) different size:

  • A filled shape fills within the boundary of the shape
  • A stroked shape draws a pen line around the boundary of the shape. The actual size depends on the thickness of the line (stroke width).

Instances

data EllipseProps Source

Ellipses and circles are always closed.

Transformations on Primitives

rotatePrimitive :: (Real u, Floating u) => Radian -> Primitive u -> Primitive uSource

Rotate a Primitive.

Note - this is not an affine transformation as Primitives are not regarded as being in an affine frame.

  • Paths are rotated about their start point.
  • Labels are rotated about the bottom-left corner.
  • Ellipses are rotated about the center.

For Primitives and Ellipses applying a rotation and or a scale will generate an additional matrix transformation in the generated PostScript. For Paths all transformations are "cost-free".

scalePrimitive :: Num u => u -> u -> Primitive u -> Primitive uSource

Scale a Primitive.

Note - this is not an affine transformation as Primitives are not regarded as being in an affine frame.

An affine scaling uniformly scales all the elements in a Picture. It is just a change of the Picture's basis vectors. The elements within the Picture are unchanged - though obviously rendering changes according to the transformation.

By contrast, the scaling operation on Primitives changes the properties of the object as it is applied - e.g. for a path the vector between the start point and all subsequent points is changed with respect to the x,y scaling factors; for an ellipse the half-width and half-height of the ellipse is scaled.

For Primitives and Ellipses applying a rotation and or a scale will generate an additional matrix transformation in the generated PostScript. For Paths all transformations are "cost-free".

uniformScalePrimitive :: Num u => u -> Primitive u -> Primitive uSource

Apply a uniform scale to a Primitive.

translatePrimitive :: Num u => u -> u -> Primitive u -> Primitive uSource

Translate a primitive.

Translation is essentially "cost-free" for the generated PostScript or SVG. Paths are translated before the PostScript is generated. For Ellipses and Labels, translation will either move the bottom-left origin (Label) or center (Ellipse); or if they are also scaled or rotated the translation will be concatenated into the matrix operation in the generated output.

Printable unit for PostScript

class Num a => PSUnit a whereSource