Wumpus.Basic.Geometry.Paths

Paths for elementary shapes - rectangles...

** - WARNING ** - half baked.

Documentation

data PathAlg u

A vector chain building a path.

The vectors are relative to the predecessor, so the rendering of a PathAlg iterates the start point.

A polygon PathAlg should have steps for all sides of the polygon with the end point generated by the last vector coinciding with thet start point.

runPathAlgPoint :: Num u => Point2 u -> PathAlg u -> [Point2 u]

runPathAlgVec :: PathAlg u -> (Maybe (Vec2 u), [Vec2 u])

pathStartIsStart :: [Vec2 u] -> PathAlg u

pathStartIsLocus :: [Vec2 u] -> PathAlg u

pathIterateLocus :: Num u => [Vec2 u] -> PathAlg u

Note this creates a path very the first vector represents a moveto, then the subsequence vectors represent linetos.

rectanglePathAlg :: Fractional u => u -> u -> PathAlg u

Supplied point is center, the genearated points are counter-clockwise so [ bl, br, tr, tl ] .

blRectanglePathAlg :: Num u => u -> u -> PathAlg u

Supplied point is bottom-left, subsequent points are counter-clockwise so [ bl, br, tr, tl ] .

diamondPathAlg :: Num u => u -> u -> PathAlg u

diamondPathAlg : half_width * half_height -> PathAlg

polygonPathAlg :: Floating u => Int -> u -> PathAlg u

polygonPathAlg : num_points * radius -> PathAlg

arcPathAlg :: Floating u => u -> Radian -> Radian -> PathAlg u

circlePathAlg :: (Fractional u, Floating u) => u -> PathAlg u

type LocCoordPath u = Point2 u -> [Point2 u]

A functional type from initial point to point list.

coordinatePrimPath :: InterpretUnit u => LocCoordPath u -> Point2 u -> Query PrimPath

Relative unit version of coordinatePrimPathAU.

rectangleCoordPath :: Num u => u -> u -> LocCoordPath u

Supplied point is bottom-left, subsequenct points are counter-clockwise so [ bl, br, tr, tl ] .

diamondCoordPath :: Num u => u -> u -> LocCoordPath u

diamondPath : half_width * half_height * center_point -> PrimPath

polygonCoordPath :: Floating u => Int -> u -> LocCoordPath u

polygonCoordPath : num_points * radius * center -> [point]

isoscelesTriangleCoordPath :: Floating u => u -> u -> LocCoordPath u

isocelesTriangle bw h pt

Supplied point is the centriod of the triangle. This has a nicer visual balance than using half-height.

isoscelesTrianglePoints :: Floating u => u -> u -> Point2 u -> (Point2 u, Point2 u, Point2 u)

isocelesTriangle bw h pt

Supplied point is the centriod of the triangle. This has a nicer visual balance than using half-height.

equilateralTriangleCoordPath :: Floating u => u -> LocCoordPath u

 side_length * ctr -> [Points]

equilateralTrianglePoints :: Floating u => u -> Point2 u -> (Point2 u, Point2 u, Point2 u)