gloss-examples-1.2.0.0: Eden/Main.hs

-- Adapted from ANUPlot version by Clem Baker-Finch
module Main where
import World
import Graphics.Gloss
import Graphics.Gloss.Interface.Simulate
import System.Random

-- varying prng sequence
main 
 = do 	gen <- getStdGen
	simulateInWindow
		"Eden"          -- window name
		(800, 600)      -- window size
		(10, 10)	-- window position
		(greyN 0.1)	-- background color
		2               -- number of steps per second
		(genesis' gen)  -- initial world
		render          -- function to convert world to a Picture
		evolve          -- function to step the world one iteration