Add slightly more informative comment
This commit is contained in:
parent
adb081fd22
commit
a3e2ea6e86
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…
Reference in a new issue