trying to prepare animations

src/Init.hs

@@ -78,7 +78,7 @@ load = do
     logIO Error "Failed to load image assets"
     exitFailure
   playerImgs <- loadPlayerSprite "assets/intruder.png" 64 74 nvg
-    (zipWith (\a b -> (a, [b])) [0..] [ImgIntrE .. ImgIntrNE])
+    (zipWith (\a b -> (a, [b])) [0..] $ [ImgIntrE .. ImgIntrN] ++ [ImgIntrNE])
   let imgs = zipWith (\a b -> (a, fromJust b)) [ImgWallAsc ..] mimgs
   return UserData
     { state       = Menu

src/Test.hs

@@ -56,14 +56,20 @@ loadMap = do
   (inter, rps) <- liftIO $ placeInteriorIO mat imgmat exits gr
   liftIO $ logIO A.Debug ("number of reachpoints: " ++ show (length rps))
   let nnex = Prelude.filter (\p -> pointType p /= RoomExit) rps
+      playerAnim = Animations
+        { animStand = Map.fromList
+          (zip [NE .. N] [ImgIntrNE .. ImgIntrN])
+        }
   npcposs <- placeNPCs inter mat rps gr 50 -- (length nnex)
   liftIO $ A.logIO A.Debug $ "number of placed NPCs: " ++ show (length npcposs)
   (nws, _) <- liftIO $ yieldSystemT (worldState ud) $ do
-    void $ createEntity $ newEntity
+    createEntity $ newEntity
       { pos           = Just (V2 20.5 20.5)
       , vel           = Just (V2 0 0)
       , player        = Just ()
       , rot           = Just SE
+      , anim          = Just playerAnim
+      , animCurrFrame = Just (0, 0)
       }
     void $ mapM_ (\npcpos@(V2 nr nc) -> do
       -- ttl <- liftIO $ randomRIO (5, 30)
@@ -76,6 +82,8 @@ loadMap = do
         , velFact       = Just fact
         , rot           = Just SE
         , npcState      = Just (NPCStanding 0 future)
+        , anim          = Just playerAnim
+        , animCurrFrame = Just (0, 0)
         }
       ) npcposs
   uu <- partSubscribe m movePlayer

src/Types/UserData.hs

@@ -24,6 +24,7 @@ data UserData = UserData
   , subsystems      :: Subsystems
   , assetImages     :: M.Map ImgId Image
   , assetFonts      :: M.Map FontId T.Text
+  , assetAnimations :: M.Map AnimId Animation
   , nano            :: Context
   , uuid            :: [UUID]
   , worldState      :: SystemState Entity IO
@@ -62,6 +63,7 @@ data ImgId
   | ImgMiscTable3
   | ImgMiscTable4
   | ImgMiscTableCorner
+  | ImgIntrNE
   | ImgIntrE
   | ImgIntrSE
   | ImgIntrS
@@ -69,7 +71,6 @@ data ImgId
   | ImgIntrW
   | ImgIntrNW
   | ImgIntrN
-  | ImgIntrNE
   deriving (Show, Eq, Ord, Enum)
 
 isWall :: ImgId -> Bool
@@ -173,6 +174,7 @@ data Entity f = Entity
   , obstacle      :: Component f 'Field (Boundaries Double)
   , player        :: Component f 'Unique ()
   , npcState      :: Component f 'Field NPCState
+  , anim          :: Component f 'Field AnimState
   }
   deriving (Generic)
 
@@ -241,3 +243,26 @@ generalUnSubscribe t uu =
   liftIO $ atomically $ modifyTVar' t (filter (`filterMsg` uu))
   where
     filterMsg (u, _) p = u /= p
+
+-- ANIMATIONS
+
+data AnimId = AnimId
+  { aiVariation :: Int
+  , aiDirection :: Direction
+  }
+
+data AnimState = AnimState
+  { asId           :: AnimId
+  , asCurrentFrame :: Int
+  , asElapsedTime  :: Double
+  }
+
+data AnimPlayback
+  = APLoop
+  | APOnce
+
+data Animation = Animation
+  { animDuration :: Double
+  , animSprites  :: [Image]
+  , animPLay     :: AnimPlayback
+  }