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