module Life.Scenes where

import Life.Types

-- Pre-plotted Scenes

glider :: [Pos]
glider = [(2,3),(3,4),(4,2),(4,3),(4,4)]

gliderGun :: [Pos]
gliderGun = [(2,6), (2,7), (3,6), (3,7), (12,6), 
	(12,7), (12,8), (13,5), (13,9), (14,4), 
	(14,10), (15,4), (15,10), (16,7), (17,5), 
	(17,9), (18,6), (18,7), (18,8), (19,7),
	(22,4), (22,5), (22,6), (23,4), (23,5), 
	(23,6), (24,3), (24,7), (26,2), (26,3), 
	(26,7), (26,8), (36,4), (36,5), (37,4), (37,5)]


acorn :: [Pos]
acorn = [(20,15), (21,13), (22, 10), (22, 11), (22, 12), (22, 15), (22,16)]
