diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-02-13 21:58:24 +0000 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-13 21:58:24 +0000 |
| commit | 2d182c1f9c80a1e1ffb232bc6e17980cb3a64cf5 (patch) | |
| tree | 3e6a2b49a5fddd3d421a83f155de255b71560159 /src/Game/Sprites.hs | |
| parent | cfc5b71c86a4927fa8d2294fce5e8b8264b4a3ca (diff) | |
| download | space-plat-hs-2d182c1f9c80a1e1ffb232bc6e17980cb3a64cf5.tar.gz space-plat-hs-2d182c1f9c80a1e1ffb232bc6e17980cb3a64cf5.zip | |
Pickups WIP
TODO: collision
Diffstat (limited to 'src/Game/Sprites.hs')
| -rw-r--r-- | src/Game/Sprites.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Game/Sprites.hs b/src/Game/Sprites.hs index de949b5..3e8c195 100644 --- a/src/Game/Sprites.hs +++ b/src/Game/Sprites.hs @@ -1,6 +1,7 @@ module Game.Sprites ( SpriteSheet, Sprite, + frameCount, load, get, render, @@ -26,6 +27,9 @@ data SpriteSheet = SpriteSheet Sprites SDL.Texture -- Can be rendered with `render`. data Sprite = Sprite [[SDL.Rectangle CInt]] SDL.Texture +frameCount :: Sprite -> Int -> Int +frameCount (Sprite frames _) set = length $ frames !! set + newtype SpriteData = SpriteData [[SDL.Rectangle CInt]] deriving (Show) newtype Sprites = Sprites [(String, SpriteData)] deriving (Show) |