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

Fix various display issues

Browse source
This commit is contained in:
Kiana Sheibani 2021-12-28 18:17:19 -05:00
parent ed1deaef5f
commit d323ca2988
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Graphics/Display.hs
View file

@ -32,4 +32,5 @@ drawGrid :: forall f. DisplayableSpace f => Config -> f Bool -> Picture
drawGrid config xs =
let (w, h) = windowSize config
size = fromIntegral $ if w > h then h `div` sizey @f else w `div` sizex @f
in color (cellColor config) $ pictures $ drawCells xs size
in translate (fromIntegral $ -w `div` 2) (fromIntegral $ -h `div` 2) $
color (cellColor config) $ pictures $ drawCells xs size