Wumpus.Basic.Kernel.Objects.Displacement

Displacing points - often start points.

Documentation

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 -> Point2 u -> Point2 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 -> LocQuery u a -> LocQuery u a

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

moveStartTheta :: ThetaPointDisplace u -> LocThetaQuery u a -> LocThetaQuery u a

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

moveStartThetaPoint :: PointDisplace u -> LocThetaQuery u a -> LocThetaQuery u a

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

moveStartThetaIncl :: ThetaDisplace -> LocThetaQuery u a -> LocThetaQuery 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.

disp_up :: Num u => u -> PointDisplace u

disp_down :: Num u => u -> PointDisplace u

disp_left :: Num u => u -> PointDisplace u

disp_right :: Num u => u -> PointDisplace u

disp_up_left :: Num u => u -> PointDisplace u

disp_up_right :: Num u => u -> PointDisplace u

disp_down_left :: Num u => u -> PointDisplace u

disp_down_right :: Num u => u -> PointDisplace u

disp_north :: Num u => u -> PointDisplace u

disp_south :: Num u => u -> PointDisplace u

disp_east :: Num u => u -> PointDisplace u

disp_west :: Num u => u -> PointDisplace u

disp_northeast :: Floating u => u -> PointDisplace u

disp_northwest :: Floating u => u -> PointDisplace u

disp_southeast :: Floating u => u -> PointDisplace u

disp_southwest :: 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.

adisp_north :: Floating u => u -> ThetaPointDisplace u

adisp_south :: Floating u => u -> ThetaPointDisplace u

adisp_east :: Floating u => u -> ThetaPointDisplace u

adisp_west :: Floating u => u -> ThetaPointDisplace u

adisp_northeast :: Floating u => u -> ThetaPointDisplace u

adisp_northwest :: Floating u => u -> ThetaPointDisplace u

adisp_southeast :: Floating u => u -> ThetaPointDisplace u

adisp_southwest :: Floating u => u -> ThetaPointDisplace u

centerRelative :: (CenterAnchor a, Fractional u, InterpretUnit u, u ~ DUnit a) => (Int, Int) -> a -> Query (Anchor u)

Absolute units.

left_of :: (CenterAnchor a, Fractional u, InterpretUnit u, u ~ DUnit a) => a -> Query (Anchor u)

Value is 1 snap move left.

This function should be considered obsolete, pending a re-think.

right_of :: (CenterAnchor a, Fractional u, InterpretUnit u, u ~ DUnit a) => a -> Query (Anchor u)

Value is 1 snap unit right.

This function should be considered obsolete, pending a re-think.

above_left_of :: (CenterAnchor a, Fractional u, InterpretUnit u, u ~ DUnit a) => a -> Query (Anchor u)

Value is 1 snap move up, 1 snap move left.

This function should be considered obsolete, pending a re-think.

above_right_of :: (CenterAnchor a, Fractional u, InterpretUnit u, u ~ DUnit a) => a -> Query (Anchor u)

Value is 1 snap move up, 1 snap move right.

This function should be considered obsolete, pending a re-think.

below_left_of :: (CenterAnchor a, Fractional u, InterpretUnit u, u ~ DUnit a) => a -> Query (Anchor u)

Value is 1 snap move down, 1 snap move left.

This function should be considered obsolete, pending a re-think.

below_right_of :: (CenterAnchor a, Fractional u, InterpretUnit u, u ~ DUnit a) => a -> Query (Anchor u)

Value is 1 snap move below, 1 snap move right.

This function should be considered obsolete, pending a re-think.