eventloop-0.4.1.2: A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.

Safe HaskellNone
LanguageHaskell2010

Eventloop.Module.BasicShapes

Documentation

defaultBasicShapesModuleConfiguration :: EventloopModuleConfiguration Source

defaultBasicShapesModuleIOState :: IOState Source

basicShapesModuleIdentifier :: EventloopModuleIdentifier Source

basicShapesPostProcessor :: PostProcessor Source

type GraphicalNumeric = Float Source

type Translation = Point Source

type Width = GraphicalNumeric Source

type Height = GraphicalNumeric Source

type Dimensions = (Width, Height) Source

type Radius = GraphicalNumeric Source

type Red = GraphicalNumeric Source

type Green = GraphicalNumeric Source

type Blue = GraphicalNumeric Source

type Alpha = GraphicalNumeric Source

type Color = (Red, Green, Blue, Alpha) Source

type FillColor = Color Source

type StrokeColor = Color Source

type StrokeLineThickness = GraphicalNumeric Source

type UpperLeft = Point Source

type UpperRight = Point Source

type LowerLeft = Point Source

type LowerRight = Point Source

type AmountOfPoints = Int Source

type FontFamily = [Char] Source

type FontSize = GraphicalNumeric Source

data BasicShapesOut Source

Constructors

DrawShapes CanvasId [Shape] 

Instances

data Shape Source

Constructors

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

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 horizontally the center and vertically the top of the text, 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

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

data RotatePoint Source

Constructors

AroundCenter 
AroundPoint Point 

Instances

data BoundingBox Source

Constructors

BoundingBox LowerLeft UpperLeft UpperRight LowerRight

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

Instances

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

class ToBoundingBox a where Source

Methods

toBoundingBox :: a -> BoundingBox Source

Instances

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

class ToCanvasOut a where Source

Methods

toCanvasOut :: a -> CanvasOut Source

Instances

class ToCanvasOperations a where Source

Methods

toCanvasOperations :: a -> [CanvasOperation] Source

Instances

class ToScreenPathPart a where Source

Methods

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

Instances