animate-sdl2 0.0.0 → 0.1.0

raw patch · 3 files changed

+31/−9 lines, 3 files

Files

• animate-sdl2.cabal +2/−2
• library/Animate/SDL.hs +28/−6
• package.yaml +1/−1

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 448a6b0a9ac1bc24221e667d9613ddae1ca51be2436c5b31f763e2d2f4de9326+-- hash: ec90b96f8c9ae72feb94f68a945b73e401d2cd29f68e333fb5936bfcdd68e4af  name:           animate-sdl2-version:        0.0.0+version:        0.1.0 synopsis:       sdl2 + animate auxiliary library description:    sdl2 is a commonly used media library. animate is a general animation library. Combining animate and sdl2, animate-sdl2 provides accessible glue-code to load and draw sprites. category:       Game

@@ -1,7 +1,9 @@ module Animate.SDL   ( loadTexture-  , loadSpriteSheetJSON-  , loadSpriteSheetYAML+  , loadSpriteSheetJson+  , loadSpriteSheetYaml+  , loadSpriteSheetJsonWithPathFilter+  , loadSpriteSheetYamlWithPathFilter   , unloadSpriteSheet   , drawSprite   , drawSpriteWithScalar@@ -44,19 +46,39 @@   SDL.freeSurface s   return t -loadSpriteSheetJSON+loadSpriteSheetJson   :: (KeyName key, Ord key, Bounded key, Enum key, FromJSON delay)   => SDL.Renderer   -> FilePath -- ^ Path of the sprite sheet info JSON file   -> IO (SpriteSheet key SDL.Texture delay)-loadSpriteSheetJSON ren = readSpriteSheetJSON (loadTexture ren)+loadSpriteSheetJson ren = readSpriteSheetJSON (loadTexture ren) -loadSpriteSheetYAML+loadSpriteSheetJsonWithPathFilter   :: (KeyName key, Ord key, Bounded key, Enum key, FromJSON delay)   => SDL.Renderer+  -> (FilePath -> IO FilePath) -- ^ Lookup image location with `getDataFileName` from Paths+  -> FilePath -- ^ Path of the sprite sheet info JSON file+  -> IO (SpriteSheet key SDL.Texture delay)+loadSpriteSheetJsonWithPathFilter ren getDataFileName = readSpriteSheetJSON $ \fp c -> do+  fp' <- getDataFileName fp+  loadTexture ren fp' c++loadSpriteSheetYaml+  :: (KeyName key, Ord key, Bounded key, Enum key, FromJSON delay)+  => SDL.Renderer   -> FilePath -- ^ Path of the sprite sheet info YAML file   -> IO (SpriteSheet key SDL.Texture delay)-loadSpriteSheetYAML ren = readSpriteSheetYAML (loadTexture ren)+loadSpriteSheetYaml ren = readSpriteSheetYAML (loadTexture ren)++loadSpriteSheetYamlWithPathFilter+  :: (KeyName key, Ord key, Bounded key, Enum key, FromJSON delay)+  => SDL.Renderer+  -> (FilePath -> IO FilePath) -- ^ Lookup image location with `getDataFileName` from Paths+  -> FilePath -- ^ Path of the sprite sheet info YAML file+  -> IO (SpriteSheet key SDL.Texture delay)+loadSpriteSheetYamlWithPathFilter ren getDataFileName = readSpriteSheetYAML $ \fp c -> do+  fp' <- getDataFileName fp+  loadTexture ren fp' c  unloadSpriteSheet :: SpriteSheet key SDL.Texture delay -> IO () unloadSpriteSheet ss = SDL.destroyTexture $ ssImage ss

@@ -1,5 +1,5 @@ name: animate-sdl2-version: '0.0.0'+version: '0.1.0' github: jxv/animate-sdl2 license: BSD3 category: Game