Wumpus.Core.GraphicsState

Data types modelling the Graphics state

Data types

Stroke attributes

data StrokeAttr

Constructors

LineWidth Double

MiterLimit Double

LineCap LineCap

LineJoin LineJoin

DashPattern DashPattern

Instances

Eq StrokeAttr

Show StrokeAttr

Ellipse StrokeAttr

Stroke StrokeAttr

Ellipse [StrokeAttr]

Stroke [StrokeAttr]

Ellipse (Gray Double, [StrokeAttr])

Ellipse (Gray Double, StrokeAttr)

Ellipse (HSB3 Double, [StrokeAttr])

Ellipse (HSB3 Double, StrokeAttr)

Ellipse (RGB3 Double, [StrokeAttr])

Ellipse (RGB3 Double, StrokeAttr)

Stroke (Gray Double, [StrokeAttr])

Stroke (Gray Double, StrokeAttr)

Stroke (HSB3 Double, [StrokeAttr])

Stroke (HSB3 Double, StrokeAttr)

Stroke (RGB3 Double, [StrokeAttr])

Stroke (RGB3 Double, StrokeAttr)

data LineCap

Constructors

CapButt

CapRound

CapSquare

Instances

Enum LineCap

Eq LineCap

Show LineCap

data LineJoin

Constructors

JoinMiter

JoinRound

JoinBevel

Instances

Enum LineJoin

Eq LineJoin

Show LineJoin

data DashPattern

Constructors

Solid

Dash Int [Int]

Instances

Eq DashPattern

Show DashPattern

Font

data FontAttr

Constructors

FontAttr

Fields

font_name :: String

svg_font_family :: String

svg_font_style :: SVGFontStyle

font_size :: Int

Instances

Eq FontAttr

Show FontAttr

TextLabel FontAttr

TextLabel (Gray Double, FontAttr)

TextLabel (HSB3 Double, FontAttr)

TextLabel (RGB3 Double, FontAttr)

data SVGFontStyle

Constructors

SVG_REGULAR

SVG_BOLD

SVG_ITALIC

SVG_BOLD_ITALIC

SVG_OBLIQUE

SVG_BOLD_OBLIQUE

Instances

Eq SVGFontStyle

Show SVGFontStyle

Colour

type PSRgb = RGB3 Double

Current Translation Matrix

data CTM u

PostScript's current transformation matrix.

PostScript and its documentation considers the matrix to be in this form:

 | a  b  0 |
 | c  d  0 | 
 | tx ty 1 |

i.e it considers the homogeneous coordinates of an affine frame as rows rather than columns (Wumpus uses rows, as they were the usual representation in the geometry presentations that inspired it).

Using the component names that we have used in the description of Frame2, the CTM is:

 | e0x  e0y  0 |
 | e1x  e1y  0 | 
 | ox   oy   1 |

The CTM is represented in PostScript as an array, using our names its layout is

 [ e0x e0y e1x e1y ox oy ] 

Some examples, the scaling matrix:

 | sx 0  0 |
 | 0  sy 0 |  = [ sx 0 0 sy 0 0 ]
 | 0  0  1 |

Translation (displacement) :

 | 1  0  0 |
 | 0  1  0 |  = [ 1 0 0 1 tx ty ]
 | tx ty 1 |

Rotation:

 |  cos(a)  sin(a)  0 |
 | -sin(a)  cos(a)  0 |  = [ cos(a) sin(a) -sin(a) cos(a) 0 0 ]
 |    0       0     1 |

Constructors

CTM !u !u !u !u !u !u

Instances

Eq u => Eq (CTM u)

Show u => Show (CTM u)

Convert to CTM

class ToCTM a where

Methods

toCTM :: u ~ DUnit a => a -> CTM u

Instances

ToCTM (Matrix3'3 a)

ToCTM (Frame2 a)

Convert to PSColour

class PSColour a where

Methods

psColour :: a -> RGB3 Double

Instances

PSColour (Gray Double)

PSColour (HSB3 Double)

PSColour (RGB3 Double)