Lseed.Geometry

Documentation

type Point = (Double, Double)

type Line = (Point, Point)

crossPoint :: Line -> Line -> Maybe Point

from http:www.pdas.com/lineint.htm

plantedToLines :: Planted a -> [(Line, a)]

plantToGeometry :: Plant a -> GeometryGenerator a ()

gardenToLines :: Garden a -> [(Line, a)]

Lines are annotated with its plant, identified by the extra data

lightenLines :: Double -> [(Line, a)] -> [(Line, a, Double)]

Add lightning from a given angle

lightPolygons :: Double -> [(Line, a)] -> [(Point, Point, Point, Point, Double)]

allKindsOfStuffWithAngle :: forall a. Double -> [(Line, a)] -> ([(Line, a, Double)], [(Point, Point, Point, Point, Double)])

lightenGarden :: Angle -> Garden a -> Garden (a, Double)

Annotates each piece of the garden with the amount of line it attacts

mapLine :: (forall b. [(Line, b)] -> [(Line, b, c)]) -> c -> (c -> c -> c) -> Garden a -> Garden (a, c)

Helper to apply a function that works on lines to a garden

gardenOffset :: AnnotatedGarden -> (Double, Double, Double)

Slightly shifts angles

For a Garden, calculates the maximum size to the left, to the right, and maximum height