module Terminal.Game.Animation (module Terminal.Game.Animation,
module T
) where
import Terminal.Game.Plane
import Control.Timer.Tick as T
type Animation = T.Timed Plane
creaAnimation :: [(Integer, Plane)] -> Animation
creaAnimation :: [(Integer, Plane)] -> Animation
creaAnimation [(Integer, Plane)]
ips = Loop -> [(Integer, Plane)] -> Animation
forall a. Loop -> [(Integer, a)] -> Timed a
creaTimedRes (Integer -> ExpBehaviour -> Loop
Times Integer
1 ExpBehaviour
Elapse) [(Integer, Plane)]
ips
creaLoopAnimation :: [(Integer, Plane)] -> Animation
creaLoopAnimation :: [(Integer, Plane)] -> Animation
creaLoopAnimation [(Integer, Plane)]
ips = Loop -> [(Integer, Plane)] -> Animation
forall a. Loop -> [(Integer, a)] -> Timed a
creaTimedRes Loop
AlwaysLoop [(Integer, Plane)]
ips
creaStaticAnimation :: Plane -> Animation
creaStaticAnimation :: Plane -> Animation
creaStaticAnimation Plane
p = Loop -> [(Integer, Plane)] -> Animation
forall a. Loop -> [(Integer, a)] -> Timed a
creaTimedRes (Integer -> ExpBehaviour -> Loop
Times Integer
1 ExpBehaviour
Elapse) [(Integer
1, Plane
p)]