Wumpus.Basic.Shapes.Base

Common core for shapes

** WARNING ** - the types of Shapes and Plaintext are not ideal and are pending revision.

Documentation

data Shape u t

Note - this formulation prevents rounded corner shapes...

Currently shapes that aren't paths:

 Coordinate
 FreeLabel

Alternative

 out_fun :: ShapeCTM u -> (Path u,sh)

All shapes expect FreeLabel are oblivious to the DrawingContext for the shape

Constructors

Shape

Fields

src_ctm :: ShapeCTM u

path_fun :: ShapeCTM u -> Path u

cons_fun :: ShapeCTM u -> t u

Instances

(Real u, Floating u) => Rotate (Shape u sh)

Num u => Scale (Shape u sh)

Num u => Translate (Shape u sh)

type ShapeConstructor u t = ShapeCTM u -> t u

borderedShape :: Num u => Shape u t -> Image u (t u)

filledShape :: Num u => Shape u t -> Image u (t u)

strokedShape :: Num u => Shape u t -> Image u (t u)

ShapeCTM

data ShapeCTM u

Constructors

ShapeCTM

Fields

ctm_trans_x :: !u

ctm_trans_y :: !u

ctm_scale_x :: !u

ctm_scale_y :: !u

ctm_rotation :: Radian

Instances

Eq u => Eq (ShapeCTM u)

Ord u => Ord (ShapeCTM u)

Show u => Show (ShapeCTM u)

identityCTM :: Num u => ShapeCTM u

ctmDisplace :: (Real u, Floating u) => Point2 u -> ShapeCTM u -> Point2 u

ctmCenter :: (Real u, Floating u) => ShapeCTM u -> Point2 u