{-# OPTIONS_HADDOCK hide #-}
module Graphics.Gloss.Internals.Interface.Simulate.State
( State (..)
, stateInit )
where
data State
= State
{
State -> Integer
stateIteration :: !Integer
, State -> Int
stateResolution :: !Int
, State -> Float
stateSimTime :: !Float }
stateInit :: Int -> State
stateInit :: Int -> State
stateInit resolution :: Int
resolution
= $WState :: Integer -> Int -> Float -> State
State
{ stateIteration :: Integer
stateIteration = 0
, stateResolution :: Int
stateResolution = Int
resolution
, stateSimTime :: Float
stateSimTime = 0 }