{-# 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 Int
resolution
= State :: Integer -> Int -> Float -> State
State
{ stateIteration :: Integer
stateIteration = Integer
0
, stateResolution :: Int
stateResolution = Int
resolution
, stateSimTime :: Float
stateSimTime = Float
0 }