Wumpus.Basic.Shapes.Derived

Simple shapes - rectangle, circle diamond, ellipse.

Documentation

data Rectangle u

Instances

Eq u => Eq (Rectangle u)

Ord u => Ord (Rectangle u)

Show u => Show (Rectangle u)

(Real u, Floating u) => RadialAnchor (Rectangle u)

(Real u, Floating u) => CardinalAnchor2 (Rectangle u)

(Real u, Floating u) => CardinalAnchor (Rectangle u)

(Real u, Floating u) => CenterAnchor (Rectangle u)

type DRectangle = Rectangle Double

rectangle :: (Real u, Floating u) => u -> u -> LocShape u Rectangle

rectangle : width * height -> shape

rrectangle :: (Real u, Floating u) => u -> u -> u -> LocShape u Rectangle

rectangle : round_length * width * height -> shape

mkRectangle :: u -> u -> ShapeConstructor u Rectangle

data Circle u

Instances

Eq u => Eq (Circle u)

Show u => Show (Circle u)

(Real u, Floating u) => RadialAnchor (Circle u)

(Real u, Floating u) => CardinalAnchor2 (Circle u)

(Real u, Floating u) => CardinalAnchor (Circle u)

(Real u, Floating u) => CenterAnchor (Circle u)

type DCircle = Circle Double

circle :: (Real u, Floating u) => u -> LocShape u Circle

circle : radius -> shape

data Diamond u

Instances

(Real u, Floating u) => RadialAnchor (Diamond u)

(Real u, Floating u, Fractional u) => CardinalAnchor2 (Diamond u)

(Real u, Floating u) => CardinalAnchor (Diamond u)

(Real u, Floating u) => CenterAnchor (Diamond u)

type DDiamond = Diamond Double

diamond :: (Real u, Floating u) => u -> u -> LocShape u Diamond

diamond : half_width * half_height -> shape

Note - args might change to tull_width and full_height...

rdiamond :: (Real u, Floating u) => u -> u -> u -> LocShape u Diamond

rdiamond : round_length * half_width * half_height -> shape

Note - args might change to full_width and full_height...

data Ellipse u

Instances

(Real u, Floating u) => RadialAnchor (Ellipse u)

(Real u, Floating u) => CardinalAnchor2 (Ellipse u)

(Real u, Floating u) => CardinalAnchor (Ellipse u)

(Real u, Floating u) => CenterAnchor (Ellipse u)

type DEllipse = Ellipse Double

ellipse :: (Real u, Floating u) => u -> u -> LocShape u Ellipse

ellipse : x_radii * y_radii -> shape