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

Add slightly more informative comment

Browse source
This commit is contained in:
Kiana Sheibani 2022-04-08 00:54:06 -04:00 committed by GitHub
parent adb081fd22
commit a3e2ea6e86
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Main.hs
View file

@ -6,6 +6,7 @@ import Graphics.Engine (initialSpace, run)
import Graphics.Gloss import Graphics.Gloss
import Graphics.GlossUtils (playYampa) import Graphics.GlossUtils (playYampa)
-- random space just to test things
space :: ToroidalSpace Bool space :: ToroidalSpace Bool
space = tabulate (\(x, y) -> (x + y `mod` 5) * 10 + x - y > 30) space = tabulate (\(x, y) -> (x + y `mod` 5) * 10 + x - y > 30)
@ -15,4 +16,4 @@ main =
(InWindow "Conway's Game of Life" (200, 200) (10, 10)) (InWindow "Conway's Game of Life" (200, 200) (10, 10))
black black
30 30
(run (200, 200) space) (run (200, 200) space)