module Graphics.Gloss.Data.Picture
( Point
, Vector
, Path
, Picture(..)
, blank, polygon, line, circle, thickCircle, text, bitmap
, color, translate, rotate, scale
, pictures
, lineLoop
, rectanglePath, rectangleWire, rectangleSolid
, rectangleUpperPath, rectangleUpperWire, rectangleUpperSolid)
where
import Graphics.Gloss.Data.Color
import Graphics.Gloss.Data.Point
import Graphics.Gloss.Data.Vector
import Data.Monoid
import Data.ByteString
type Path = [Point]
data Picture
= Blank
| Polygon Path
| Line Path
| Circle Float
| ThickCircle Float Float
| Text String
| Bitmap Int Int ByteString
| Color Color Picture
| Translate Float Float Picture
| Rotate Float Picture
| Scale Float Float Picture
| Pictures [Picture]
deriving (Show, Eq)
instance Monoid Picture where
mempty = blank
mappend a b = Pictures [a, b]
mconcat = Pictures
blank :: Picture
blank = Blank
polygon :: Path -> Picture
polygon = Polygon
line :: Path -> Picture
line = Line
circle :: Float -> Picture
circle = Circle
thickCircle :: Float -> Float -> Picture
thickCircle = ThickCircle
text :: String -> Picture
text = Text
bitmap :: Int -> Int -> ByteString -> Picture
bitmap = Bitmap
color :: Color -> Picture -> Picture
color = Color
translate :: Float -> Float -> Picture -> Picture
translate = Translate
rotate :: Float -> Picture -> Picture
rotate = Rotate
scale :: Float -> Float -> Picture -> Picture
scale = Scale
pictures :: [Picture] -> Picture
pictures = Pictures
lineLoop :: Path -> Picture
lineLoop [] = Line []
lineLoop (x:xs) = Line ((x:xs) ++ [x])
rectanglePath :: Float -> Float -> Path
rectanglePath sizeX sizeY
= let sx = sizeX / 2
sy = sizeY / 2
in [(sx, sy), (sx, sy), (sx, sy), (sx, sy)]
rectangleWire :: Float -> Float -> Picture
rectangleWire sizeX sizeY
= lineLoop $ rectanglePath sizeX sizeY
rectangleUpperWire :: Float -> Float -> Picture
rectangleUpperWire sizeX sizeY
= lineLoop $ rectangleUpperPath sizeX sizeY
rectangleUpperPath :: Float -> Float -> Path
rectangleUpperPath sizeX sy
= let sx = sizeX / 2
in [(sx, 0), (sx, sy), (sx, sy), (sx, 0)]
rectangleSolid :: Float -> Float -> Picture
rectangleSolid sizeX sizeY
= Polygon $ rectanglePath sizeX sizeY
rectangleUpperSolid :: Float -> Float -> Picture
rectangleUpperSolid sizeX sizeY
= Polygon $ rectangleUpperPath sizeX sizeY