toki/conways-game-of-life
1
0
Fork 0
Code Issues Pull requests Activity

Created basic graphical engine

Browse source
This commit is contained in:
Kiana Sheibani 2021-12-27 18:08:04 -05:00
parent 33ff8cd8a9
commit d8c1579147
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
Graphics/Engine.hs Normal file
View file

@ -0,0 +1,17 @@
module Graphics.Engine where
import Control.Arrow
import Control.Monad.Representable.Reader
import FRP.Yampa
import GOL.Engine
import GOL.Space
import Graphics.GlossUtils (InputEvent)
tickEvent :: SF a (Event ())
tickEvent = repeatedly 1.0 ()
initialSpace :: Space f => f Bool
initialSpace = tabulate $ const False
engine :: Space f => GOL f Bool -> SF a (GOL f Bool)
engine start = tickEvent >>> accumHoldBy (\s _ -> tick s) start