Wumpus.Basic.Graphic.Anchors

Anchor points on shapes.

Anchors

class CenterAnchor t where

Methods

center :: DUnit t ~ u => t -> Point2 u

Instances

Fractional u => CenterAnchor (BoundingBox u)

CenterAnchor (DotAnchor u)

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

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

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

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

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

class CardinalAnchor t where

Note - in TikZ cardinal anchors are not necessarily at the equivalent radial position, for instance reactangle north-east is the top-right corner whether or not this is incident at 45deg.

Methods

north :: DUnit t ~ u => t -> Point2 u

south :: DUnit t ~ u => t -> Point2 u

east :: DUnit t ~ u => t -> Point2 u

west :: DUnit t ~ u => t -> Point2 u

Instances

Fractional u => CardinalAnchor (BoundingBox u)

CardinalAnchor (DotAnchor u)

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

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

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

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

class CardinalAnchor2 t where

Methods

northeast :: DUnit t ~ u => t -> Point2 u

southeast :: DUnit t ~ u => t -> Point2 u

southwest :: DUnit t ~ u => t -> Point2 u

northwest :: DUnit t ~ u => t -> Point2 u

Instances

Fractional u => CardinalAnchor2 (BoundingBox u)

CardinalAnchor2 (DotAnchor u)

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

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

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

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

class RadialAnchor t where

Anchor on a border that can be identified with and angle.

Methods

radialAnchor :: DUnit t ~ u => Radian -> t -> Point2 u

Instances

RadialAnchor (DotAnchor u)

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

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

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

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

Extended anchor points

northwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor t, u ~ DUnit t) => u -> t -> Point2 u

southwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor t, u ~ DUnit t) => u -> t -> Point2 u

eastwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor t, u ~ DUnit t) => u -> t -> Point2 u

westwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor t, u ~ DUnit t) => u -> t -> Point2 u

northeastwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor2 t, u ~ DUnit t) => u -> t -> Point2 u

southeastwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor2 t, u ~ DUnit t) => u -> t -> Point2 u

southwestwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor2 t, u ~ DUnit t) => u -> t -> Point2 u

northwestwards :: (Real u, Floating u, CenterAnchor t, CardinalAnchor2 t, u ~ DUnit t) => u -> t -> Point2 u

radialConnectorPoints :: (Real u, Floating u, CenterAnchor t1, RadialAnchor t1, CenterAnchor t2, RadialAnchor t2, u ~ DUnit t1, DUnit t1 ~ DUnit t2) => t1 -> t2 -> (Point2 u, Point2 u)