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

Instances

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

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

Num u => Scale (Shape u sh)

Num u => Translate (Shape u sh)

type LocShape u t = Point2 u -> Shape u t

makeShape :: Num u => (ShapeCTM u -> Path u) -> (ShapeCTM u -> t u) -> LocShape u t

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

Instances

Eq u => Eq (ShapeCTM u)

Ord u => Ord (ShapeCTM u)

Show u => Show (ShapeCTM u)

Rotate (ShapeCTM u)

(Real u, Floating u) => RotateAbout (ShapeCTM u)

Num u => Scale (ShapeCTM u)

Num u => Translate (ShapeCTM u)

makeShapeCTM :: Num u => Point2 u -> ShapeCTM u

data ShapeGeom u a

Instances

Monad (ShapeGeom u)

Functor (ShapeGeom u)

Applicative (ShapeGeom u)

runShapeGeom :: ShapeCTM u -> ShapeGeom u a -> a

askCTM :: ShapeGeom u (ShapeCTM u)

projectPoint :: (Real u, Floating u) => Point2 u -> ShapeGeom u (Point2 u)

shapeCenter :: (Real u, Floating u) => ShapeGeom u (Point2 u)