World.hs

module World where

import Brillo
import Brillo.Interface.Pure.Simulate
import Cell
import Community
import System.Random


stepsMax :: Int
stepsMax = 20


-- 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) 50 5] (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) 50 5] gen 0


-- Consume some random numbers to advance the simulation
evolve :: ViewPort -> Float -> World -> World
evolve _ _ world@(World comm gen step)
  | step > stepsMax = world
  | otherwise =
      World (generation comm angles scales) genNext (step + 1)
  where
    (genThis, genNext) = split gen
    (genA, genS) = split genThis
    angles = randomRs (0.0, 2 * pi) genA
    scales = randomRs (0.7, 0.9) genS


-- Converting the world to a picture is just converting the community component
render :: World -> Picture
render (World comm _gen _) =
  Color (makeColor 0.3 0.3 0.6 1.0) $
    Community.render comm