toki/conways-game-of-life
1
0
Fork 0
Code Issues Pull requests Activity

Update Graphics.Display

Browse source
This commit is contained in:
Kiana Sheibani 2021-12-28 11:21:26 -05:00
parent 3a15c34743
commit 37ac2e0aef
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Graphics/Display.hs
View file

@ -8,21 +8,26 @@ import Data.Maybe (mapMaybe)
import GOL.Space import GOL.Space
import Graphics.Gloss import Graphics.Gloss
-- * Drawing the display grid
square :: Float -> Point -> Picture square :: Float -> Point -> Picture
square size (x, y) = translate (x + size / 2) y (rectangleUpperSolid size size) square size (x, y) = translate (x + size / 2) y (rectangleUpperSolid size size)
squareAtIndex :: (Int, Int) -> Float -> Picture squareAtIndex :: (Int, Int) -> Float -> Picture
squareAtIndex (x, y) size = square size (fromIntegral x * size, fromIntegral y * size) squareAtIndex (x, y) size = square size (fromIntegral x * size, fromIntegral y * size)
-- * Calculating the display grid
drawCell :: DisplayableSpace f => f Bool -> (Int, Int) -> Float -> Maybe Picture drawCell :: DisplayableSpace f => f Bool -> (Int, Int) -> Float -> Maybe Picture
drawCell xs pos size = drawCell xs pos size =
if index xs pos if index xs pos
then Just $ squareAtIndex pos size then Just $ squareAtIndex pos size
else Nothing else Nothing
drawGrid :: forall f. DisplayableSpace f => f Bool -> Float -> [Picture] drawCells :: forall f. DisplayableSpace f => f Bool -> Float -> [Picture]
drawGrid xs size = drawCells xs size =
let poss = (,) <$> [0 .. sizex @f -1] <*> [0 .. sizey @f -1] let poss = (,) <$> [0 .. sizex @f -1] <*> [0 .. sizey @f -1]
in mapMaybe (\pos -> drawCell xs pos size) poss in mapMaybe (\pos -> drawCell xs pos size) poss
drawGrid :: forall f. DisplayableSpace f => f Bool -> (Int, Int) -> Picture
drawGrid xs (w, h) =
let size = fromIntegral $ if w > h then h `div` sizey @f else w `div` sizex @f
in color white $ pictures $ drawCells xs size