-- Adapted from ANUPlot version by Clem Baker-Finch
module Main where
import qualified World as W
import Graphics.Gloss
import System.Random

-- varying prng sequence
main :: IO ()
main
 = do   gen <- getStdGen
        simulate (InWindow "Lifespan" (800, 600) (10, 10))
                 (greyN 0.1)        -- background color
                 2                  -- number of steps per second
                 (W.genesis' gen)   -- initial world
                 W.render           -- function to convert world to a Picture
                 W.evolve           -- function to step the world one iteration