Add slightly more informative comment
This commit is contained in:
parent
adb081fd22
commit
a3e2ea6e86
1 changed files with 2 additions and 1 deletions
1
Main.hs
1
Main.hs
|
|
@ -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)
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue