module Graphics.Gloss.Internals.Interface.Animate.State
( State (..)
, stateInit )
where
data State
= State
{
stateAnimate :: !Bool
, stateAnimateCount :: !Integer
, stateAnimateStart :: !Bool
, stateAnimateTime :: !Double
, stateDisplayTime :: !Double
, stateDisplayTimeLast :: !Double
, stateDisplayTimeClamp :: !Double
, stateGateTimeStart :: !Double
, stateGateTimeEnd :: !Double
, stateGateTimeElapsed :: !Double }
stateInit :: State
stateInit
= State
{ stateAnimate = True
, stateAnimateCount = 0
, stateAnimateStart = True
, stateAnimateTime = 0
, stateDisplayTime = 0
, stateDisplayTimeLast = 0
, stateDisplayTimeClamp = 0.01
, stateGateTimeStart = 0
, stateGateTimeEnd = 0
, stateGateTimeElapsed = 0 }