Wumpus.Basic.Kernel.Objects.Trail

Trails - prototype paths. Less resource heavy than the Path object in Wumpus-Drawing.

Documentation

data TrailSegment u

Constructors

TLine (Vec2 u)

TCurve (Vec2 u) (Vec2 u) (Vec2 u)

Instances

Functor TrailSegment

(Ord u, Tolerance u) => Eq (TrailSegment u)

(Ord u, Tolerance u) => Ord (TrailSegment u)

Show u => Show (TrailSegment u)

data CatTrail u

Instances

Monoid (CatTrail u)

data PlacedTrail u

Instances

(Ord u, Tolerance u) => Eq (PlacedTrail u)

(Ord u, Tolerance u) => Ord (PlacedTrail u)

Show u => Show (PlacedTrail u)

drawPlacedTrail :: InterpretUnit u => PathMode -> PlacedTrail u -> LocGraphic u

drawCatTrail :: InterpretUnit u => PathMode -> CatTrail u -> LocGraphic u

destrPlacedTrail :: PlacedTrail u -> (Vec2 u, [TrailSegment u])

Destructor for the opaque PlacedTrail type.

destrCatTrail :: CatTrail u -> [TrailSegment u]

Destructor for the opaque CatTrail type.

placeCatTrail :: Vec2 u -> CatTrail u -> PlacedTrail u

Turn a CatTrail into a PlacedTrail.

trailIterateLocus :: Num u => [Vec2 u] -> PlacedTrail u

Create a PlacedTrail from the vector list - each vector in the input list iterates to the start point rather then the cumulative tip.

When the PlacedTrail is run, the supplied point is the locus of the path and it does not form part of the path proper.

Like trailStartIsLocus, this constructor is typically used to make shape paths. Some shapes are easier to express as iterated displacements of the center rather than turtle drawing.

placedTrailPoints :: InterpretUnit u => PlacedTrail u -> LocQuery u [Point2 u]

rectangleTrail :: Fractional u => u -> u -> PlacedTrail u

rectangleTrail : width * height -> PlacedTrail

diamondTrail :: Num u => u -> u -> PlacedTrail u

diamondTrail : half_width * half_height -> PlacedTrail

polygonTrail :: Floating u => Int -> u -> PlacedTrail u

polygonTrail : num_points * radius -> PlacedTrail

catline :: Vec2 u -> CatTrail u

catcurve :: Vec2 u -> Vec2 u -> Vec2 u -> CatTrail u

trail_up :: Num u => u -> CatTrail u

trail_down :: Num u => u -> CatTrail u

trail_left :: Num u => u -> CatTrail u

trail_right :: Num u => u -> CatTrail u

trail_north :: Num u => u -> CatTrail u

trail_south :: Num u => u -> CatTrail u

trail_east :: Num u => u -> CatTrail u

trail_west :: Num u => u -> CatTrail u

trail_north_east :: Floating u => u -> CatTrail u

trail_north_west :: Floating u => u -> CatTrail u

trail_south_east :: Floating u => u -> CatTrail u

trail_south_west :: Floating u => u -> CatTrail u

trail_up_left :: Num u => u -> CatTrail u

trail_up_right :: Num u => u -> CatTrail u

trail_down_left :: Num u => u -> CatTrail u

trail_down_right :: Num u => u -> CatTrail u

orthoCatline :: Floating u => u -> u -> Radian -> CatTrail u

Alternative to catline, specifying the vector components rather the vector itself.

trail_theta_up :: Floating u => u -> Radian -> CatTrail u

trail_theta_down :: Floating u => u -> Radian -> CatTrail u

trail_theta_left :: Floating u => u -> Radian -> CatTrail u

trail_theta_right :: Floating u => u -> Radian -> CatTrail u

trail_theta_north :: Floating u => u -> Radian -> CatTrail u

trail_theta_south :: Floating u => u -> Radian -> CatTrail u

trail_theta_east :: Floating u => u -> Radian -> CatTrail u

trail_theta_west :: Floating u => u -> Radian -> CatTrail u

trail_theta_north_east :: Floating u => u -> Radian -> CatTrail u

trail_theta_north_west :: Floating u => u -> Radian -> CatTrail u

trail_theta_south_east :: Floating u => u -> Radian -> CatTrail u

trail_theta_south_west :: Floating u => u -> Radian -> CatTrail u

trail_theta_up_left :: Floating u => u -> Radian -> CatTrail u

trail_theta_up_right :: Floating u => u -> Radian -> CatTrail u

trail_theta_down_left :: Floating u => u -> Radian -> CatTrail u

trail_theta_down_right :: Floating u => u -> Radian -> CatTrail u

semicircleCW :: (Real u, Floating u) => Vec2 u -> CatTrail u

semicircleCW : base_vector -> CatTrail

Make a clockwise semicircle from two Bezier curves. Although this function produces an approximation of a semicircle, the approximation seems fine in practice.

semicircleCCW :: (Real u, Floating u) => Vec2 u -> CatTrail u

semicircleCCW : base_vector_vector -> CatTrail

Make a counter-clockwise semicircle from two Bezier curves. Although this function produces an approximation of a semicircle, the approximation seems fine in practice.

minorCircleSweepCW :: (Real u, Floating u) => Radian -> u -> Radian -> CatTrail u

minorCircleSweepCW : angle * radius * inclination -> CatTrail

 ang should be in the range 0 < ang <= 90deg.

minorCircleSweepCCW :: (Real u, Floating u) => Radian -> u -> Radian -> CatTrail u

minorCircleSweepCCW : angle * radius * inclination -> CatTrail

 ang should be in the range 0 < ang <= 90deg.

circleSweepCW :: (Real u, Floating u) => Radian -> u -> Radian -> CatTrail u

circleSweepCW : apex_angle * radius * inclination -> CatTrail

 ang should be in the range 0 < ang < 360deg.

 if   0 < ang <=  90 returns 1 segment
 if  90 < ang <= 180 returns 2 segments
 if 180 < ang <= 270 returns 3 segments
 if 270 < ang <  360 returns 4 segmenets

circleSweepCCW :: (Real u, Floating u) => Radian -> u -> Radian -> CatTrail u

circleSweepCCW : apex_angle * radius * inclination -> CatTrail

 ang should be in the range 0 < ang < 360deg.

 if   0 < ang <=  90 returns 1 segment
 if  90 < ang <= 180 returns 2 segments
 if 180 < ang <= 270 returns 3 segments
 if 270 < ang <  360 returns 4 segmenets

circularArcCW :: (Real u, Floating u) => Radian -> u -> Radian -> CatTrail u

inclination is the inclination of the chord.

circularArcCCW :: (Real u, Floating u) => Radian -> u -> Radian -> CatTrail u

inclination is the inclination of the chord.

sineWave :: (Real u, Floating u) => Int -> u -> Radian -> CatTrail u

sineWave1 :: (Real u, Floating u) => u -> u -> Radian -> CatTrail u

One-phase sine wave. Height is parametric.

squareWave :: Floating u => Int -> u -> Radian -> CatTrail u

sawtoothWave :: (Real u, Floating u) => Int -> u -> Radian -> CatTrail u

squiggleWave :: (Real u, Floating u) => Int -> u -> Radian -> CatTrail u

Proper semicircles do not make a good squiggle (it needs a bit of pinch).

semicircleWave :: (Real u, Floating u) => ClockDirection -> Int -> u -> Radian -> CatTrail u

tricurve :: Floating u => u -> u -> Radian -> CatTrail u

Curve in a triangle.

rectcurve :: Floating u => u -> u -> Radian -> CatTrail u

Curve in a rectangle.

trapcurveCW :: Floating u => u -> u -> Radian -> Radian -> CatTrail u

Curve in a trapezium (CW).

trapcurveCCW :: Floating u => u -> u -> Radian -> Radian -> CatTrail u

Curve in a trapezium (CCW).

bowcurve :: Floating u => u -> u -> Radian -> CatTrail u

Curve in half a bowtie.

wedgecurve :: Floating u => u -> u -> Radian -> CatTrail u

Wedge curve formed inside a bowtie rotated by 90deg.

loopcurve :: Floating u => u -> u -> Radian -> CatTrail u

Variation of wedge curve that draws a loop.