BaseShape
Fields primitive :: Primitive strokeLineThickness :: StrokeLineThickness strokeColor :: StrokeColor rotationM :: Maybe Rotation
CompositeShape	Should contain atleast 1 shape
Fields shapes :: [Shape] translationM :: Maybe Translation rotationM :: Maybe Rotation

Instances

Eq Shape
Show Shape
Translate Shape
ToCanvasOperations Shape
ToBoundingBox Shape
ToCenter Shape

data Primitive Source

Constructors

Rectangle	Translation is upperleftcorner
Fields translation :: Translation \| Translation is the corner closes to origin. Visually in canvas, this is top left. In a Cartesian coördinate system, this is bottom left. dimensions :: Dimensions fillColor :: FillColor
Circle	Translation is center
Fields translation :: Translation \| Translation is the corner closes to origin. Visually in canvas, this is top left. In a Cartesian coördinate system, this is bottom left. radius :: Radius fillColor :: FillColor
Polygon	The first point of the polygon, always starts in the direction from the x-axis.(Towards x-infinity)
Fields amountOfPoints :: AmountOfPoints translation :: Translation \| Translation is the corner closes to origin. Visually in canvas, this is top left. In a Cartesian coördinate system, this is bottom left. radius :: Radius fillColor :: FillColor
Text	Translation is center, does not have a boundingbox due to technical limitations
Fields text :: [Char] fontFamily :: FontFamily fontSize :: FontSize translation :: Translation \| Translation is the corner closes to origin. Visually in canvas, this is top left. In a Cartesian coördinate system, this is bottom left. fillColor :: FillColor
Line
Fields point1 :: Point point2 :: Point
MultiLine
Fields point1 :: Point point2 :: Point otherPoints :: [Point]

Instances

Eq Primitive
Show Primitive
Translate Primitive
ToScreenPathPart Primitive
ToBoundingBox Primitive
ToCenter Primitive

data Rotation Source

Constructors

Rotation RotatePoint Angle

| Rotation is around a point on the canvas. May be the centre of the boundingbox (enclosing rectangle) or an arbitrary point. Angle is in degrees and counter-clockwise in the coördinate system(from the x-axis to the y-axis) and visually on canvas clock-wise.

Instances

Eq Rotation
Show Rotation

data RotatePoint Source

Constructors

AroundCenter
AroundPoint Point

Instances

Eq RotatePoint
Show RotatePoint

data BoundingBox Source

Constructors

BoundingBox LowerLeft UpperLeft UpperRight LowerRight

| The point indications are from the perspective of a regular Cartesian coördinate system.

Instances

Eq BoundingBox
Show BoundingBox
RotateLeftAround BoundingBox
Translate BoundingBox
ToBoundingBox BoundingBox
ToCenter BoundingBox

type CanvasId = NumericId Source

addBoundingBox :: BoundingBox -> BoundingBox -> BoundingBox Source

foldBoundingBoxes :: (BoundingBox -> BoundingBox -> BoundingBox) -> [BoundingBox] -> BoundingBox Source

opOnBoundingBox :: (Point -> Point) -> BoundingBox -> BoundingBox Source

allPolygonPoints :: AmountOfPoints -> Point -> Radius -> [Point] Source

roundPoint :: Point -> ScreenPoint Source

roundColor :: Color -> ScreenColor Source

class ToBoundingBox a => ToCenter a where Source

Methods

toCenter :: a -> Point Source

Instances

ToCenter BoundingBox
ToCenter Primitive
ToCenter Shape

class ToBoundingBox a where Source

Methods

toBoundingBox :: a -> BoundingBox Source

Instances

ToBoundingBox BoundingBox
ToBoundingBox Primitive
ToBoundingBox Shape

findRotationPoint :: ToCenter a => a -> Rotation -> Point Source

class ToCanvasOut a where Source

Methods

toCanvasOut :: a -> CanvasOut Source

Instances

ToCanvasOut BasicShapesOut

class ToCanvasOperations a where Source

Methods

toCanvasOperations :: a -> [CanvasOperation] Source

Instances

ToCanvasOperations Shape

class ToScreenPathPart a where Source

Methods

toScreenPathParts :: a -> ([ScreenPathPart], ScreenStartingPoint, Maybe FillColor) Source

Instances

ToScreenPathPart Primitive