module YampaSDL2.Geometry
(
Shape(..)
, ShapeColour(..)
) where
import Linear.V2
import Data.Colour
data Shape =
Rectangle
{ rectSize :: V2 Double
, colour :: ShapeColour
}
| Circle
{ radius :: Double
, colour :: ShapeColour
}
| Triangle
{ pointA :: V2 Double
, pointB :: V2 Double
, pointC :: V2 Double
, colour :: ShapeColour
}
| Image
{ size :: V2 Double
, sourceRect :: Maybe (V2 Double, V2 Double)
, imgPath :: String
} deriving (Eq, Show)
data ShapeColour
= Filled (Colour Double)
| Unfilled (Colour Double) deriving (Show,Eq)