Wumpus.Basic.Kernel.Objects.Displacement

Displacing points - often start points.

Moving points and angles

type PointDisplace u = Point2 u -> Point2 u

PointDisplace is a type representing functions from Point to Point.

It is especially useful for building composite graphics where one part of the graphic is drawn from a different start point to the other part.

type ThetaDisplace = Radian -> Radian

ThetaDisplace is a type representing functions from Radian to Radian.

It is especially useful for building composite graphics where one part of the graphic is drawn from a different start point to the other part.

type ThetaPointDisplace u = Radian -> PointDisplace u

ThetaPointDisplace is a type representing functions from Radian * Point to Point.

It is useful for building arrowheads which are constructed with an implicit angle representing the direction of the line at the arrow tip.

moveStart :: PointDisplace u -> LocCF u a -> LocCF u a

Move the start-point of a LocCF with the supplied displacement function.

moveStartTheta :: ThetaPointDisplace u -> LocThetaCF u a -> LocThetaCF u a

Move the start-point of a LocThetaCF with the supplied displacement function.

moveStartThetaPoint :: PointDisplace u -> LocThetaCF u a -> LocThetaCF u a

Move the start-point of a LocThetaCF with the supplied displacement function.

moveStartThetaAngle :: ThetaDisplace -> LocThetaCF u a -> LocThetaCF u a

Change the inclination of a LocThetaCF with the supplied displacement function.

displace :: Num u => u -> u -> PointDisplace u

displace : x -> y -> PointDisplace

Build a combinator to move Points by the supplied x and y distances.

displaceVec :: Num u => Vec2 u -> PointDisplace u

displaceV : (V2 x y) -> PointDisplace

Version of displace where the displacement is supplied as a vector rather than two parameters.

displaceH :: Num u => u -> PointDisplace u

displaceH : x -> PointDisplace

Build a combinator to move Points by horizontally the supplied x distance.

displaceV :: Num u => u -> PointDisplace u

displaceV : y -> PointDisplace

Build a combinator to move Points vertically by the supplied y distance.

northwards :: Num u => u -> PointDisplace u

southwards :: Num u => u -> PointDisplace u

eastwards :: Num u => u -> PointDisplace u

westwards :: Num u => u -> PointDisplace u

northeastwards :: Floating u => u -> PointDisplace u

northwestwards :: Floating u => u -> PointDisplace u

southeastwards :: Floating u => u -> PointDisplace u

southwestwards :: Floating u => u -> PointDisplace u

displaceParallel :: Floating u => u -> ThetaPointDisplace u

displaceParallel : dist -> ThetaPointDisplace

Build a combinator to move Points in parallel to the direction of the implicit angle by the supplied distance dist.

displacePerpendicular :: Floating u => u -> ThetaPointDisplace u

displaceParallel : dist -> ThetaPointDisplace

Build a combinator to move Points perpendicular to the inclnation of the implicit angle by the supplied distance dist.

displaceOrtho :: Floating u => Vec2 u -> ThetaPointDisplace u

displaceOrtho : vec -> ThetaPointDisplace

This is a combination of displaceParallel and displacePerpendicular, with the x component of the vector displaced in parallel and the y component displaced perpendicular.

thetaNorthwards :: Floating u => u -> ThetaPointDisplace u

thetaSouthwards :: Floating u => u -> ThetaPointDisplace u

thetaEastwards :: Floating u => u -> ThetaPointDisplace u

thetaWestwards :: Floating u => u -> ThetaPointDisplace u

thetaNortheastwards :: Floating u => u -> ThetaPointDisplace u

thetaNorthwestwards :: Floating u => u -> ThetaPointDisplace u

thetaSoutheastwards :: Floating u => u -> ThetaPointDisplace u

thetaSouthwestwards :: Floating u => u -> ThetaPointDisplace u