module World where
import Brillo
import Brillo.Interface.Pure.Simulate
import Cell
import Community
import System.Random
maxSteps :: Int
maxSteps = 30
-- The World consists of a Community and a random number generator.
-- (The RNG is a model of chaos or hand-of-god.)
data World
= World Community StdGen Int
deriving (Show)
-- The initial world
genesis :: World
genesis =
World [Cell (0, 0) 30 0] (mkStdGen 1023) 0
-- Seeding the prng means every run is identical.
-- To get different runs, need to use gen <- getStdGen in main :: IO()
-- and pass gen in as an argument. Edit Main.hs accordingly.
genesis' :: StdGen -> World
genesis' gen =
World [Cell (0, 0) 30 0] gen 0
-- Consume some random numbers to advance the simulation
evolve :: ViewPort -> Float -> World -> World
evolve _vp _step world@(World comm gen steps)
| steps < maxSteps =
let (genThis, genNext) = split gen
(genA, genS) = split genThis
angles = randomRs (0.0, 2 * pi) genA
scales = randomRs (0.7, 0.9) genS
in World (generation comm angles scales) genNext (steps + 1)
| otherwise =
world
-- Converting the world to a picture is just converting the community component
render :: World -> Picture
render (World comm _gen _steps) =
Color (makeColor 0.3 0.3 0.6 1.0) $
Community.render comm