Wumpus.Basic.Shapes.Base

Common core for shapes

Documentation

data Shape u sh

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

out_fun :: ShapeCTM u -> Image u sh

Instances

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

Num u => Scale (Shape u sh)

Num u => Translate (Shape u sh)

drawShape :: Shape u sh -> Image u sh

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)

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

data ShapeLabel u

runShapeLabel :: ShapeCTM u -> ShapeLabel u -> Graphic u

nolabel :: ShapeLabel u

shapelabel :: (Real u, Floating u, FromPtSize u) => String -> ShapeLabel u

No scaling - change font size if needed.