2021-12-28 14:26:32 -05:00
|
|
|
module Graphics.Config where
|
|
|
|
|
|
|
|
|
|
import FRP.Yampa (Time)
|
2021-12-28 16:40:48 -05:00
|
|
|
import GOL.Rule
|
|
|
|
|
import Graphics.Gloss (Color, white)
|
2021-12-28 14:26:32 -05:00
|
|
|
|
|
|
|
|
data Config = Config
|
2021-12-28 16:40:48 -05:00
|
|
|
{ rule :: Rule,
|
|
|
|
|
tickPeriod :: Time,
|
|
|
|
|
cellColor :: Color,
|
2021-12-28 14:26:32 -05:00
|
|
|
windowSize :: (Int, Int)
|
2021-12-28 16:40:48 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
defaultConfig :: Config
|
|
|
|
|
defaultConfig = Config standardRule 1.0 white (500, 500)
|
