diff options
| author | Mikkel Thestrup <mithe24@student.sdu.dk> | 2025-12-25 16:06:54 +0100 |
|---|---|---|
| committer | Mikkel Thestrup <mithe24@student.sdu.dk> | 2025-12-25 16:06:54 +0100 |
| commit | cc9a36d19dfc9cd11002e725b8dc6e03b7729779 (patch) | |
| tree | 1848c4949f30c93fa11f54d93c2b8e7fd3ce032a /app/Scratchy.hs | |
| parent | 202dac1dad3d86960af49d38eff0c690bf932a2c (diff) | |
| download | scratchy-cc9a36d19dfc9cd11002e725b8dc6e03b7729779.tar.gz scratchy-cc9a36d19dfc9cd11002e725b8dc6e03b7729779.zip | |
Feat(Snakey): Added implementation for Snakey game
Diffstat (limited to '')
| -rw-r--r-- | app/Scratchy.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/app/Scratchy.hs b/app/Scratchy.hs index cea910d..f2ac9a2 100644 --- a/app/Scratchy.hs +++ b/app/Scratchy.hs @@ -5,7 +5,7 @@ import Graphics.Gloss.Interface.Pure.Game import Scratchy.World import Scratchy.Syntax -import Example.CircleThatMoves +import Snakey.TwoSnakes -- Main ------------------------------------------------------------ @@ -19,7 +19,7 @@ main = play white [] [] - circSprite + twoSnakes [] [] [] @@ -32,7 +32,6 @@ main = play >> moveSprites tick >> handleKeyEvents >> tickTimers - >> runProg ) ) @@ -72,5 +71,3 @@ toScreen (gx, gy) = let fx = gx - (fromIntegral gridW - 1) / 2 fy = gy - (fromIntegral gridH - 1) / 2 in (fx * cellSize, fy * cellSize) - - |