pinosaur
/
ekitaihs.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
drain and pump
[ekitaihs.git]
/
Render.hs
diff --git
a/Render.hs
b/Render.hs
index
bc4a15a
..
d6d967e
100644
(file)
--- a/
Render.hs
+++ b/
Render.hs
@@
-32,12
+32,12
@@
ekitaiApp = App
, appAttrMap = const $ attrMap mempty []
}
, appAttrMap = const $ attrMap mempty []
}
-ekitaiMain sim = do
+ekitaiMain sim
timestep
= do
chan <- newBChan 10
-- tick game
forkIO $ forever $ do
writeBChan chan Tick
chan <- newBChan 10
-- tick game
forkIO $ forever $ do
writeBChan chan Tick
- threadDelay
50000
+ threadDelay
timestep
let buildVty = Graphics.Vty.mkVty Graphics.Vty.defaultConfig
initialVty <- buildVty
initialState <- buildInitialState sim
let buildVty = Graphics.Vty.mkVty Graphics.Vty.defaultConfig
initialVty <- buildVty
initialState <- buildInitialState sim