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

Fix window size bug

Browse source
This commit is contained in:
Kiana Sheibani 2021-12-29 22:54:49 -05:00
parent c39357a93b
commit c096923f39
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Graphics/Engine.hs
View file

@ -44,15 +44,15 @@ processEvent = event noEvent $ \case
EventMotion {} -> noEvent EventMotion {} -> noEvent
EventResize size -> Event $ Resize size EventResize size -> Event $ Resize size
run :: forall f. DisplayableSpace f => f Bool -> SF InputEvent Picture run :: DisplayableSpace f => (Int, Int) -> f Bool -> SF InputEvent Picture
run st = run size st =
let initSpace = gol' standardRule st let initSpace = gol' standardRule st
in proc inp -> do in proc inp -> do
let cmdev = processEvent inp let cmdev = processEvent inp
playing <- accumHoldBy (const . not) True -< filterE isPlayPause cmdev playing <- accumHoldBy (const . not) True -< filterE isPlayPause cmdev
time <- accum 0.2 -< mapFilterE getChangeSpeed cmdev time <- accum 0.2 -< mapFilterE getChangeSpeed cmdev
windowSize <- hold (100, 100) -< mapFilterE getResize cmdev windowSize <- hold size -< mapFilterE getResize cmdev
tick <- tickSignal -< time tick <- tickSignal -< time
space <- engine initSpace -< gate tick playing space <- engine initSpace -< gate tick playing

2
Main.hs
View file

@ -15,4 +15,4 @@ main =
(InWindow "Conway's Game of Life" (200, 200) (10, 10)) (InWindow "Conway's Game of Life" (200, 200) (10, 10))
black black
30 30
(run space) (run (200, 200) space)