X-Git-Url: https://git.danieliu.xyz/?a=blobdiff_plain;f=Render.hs;h=bc4a15a076ece598d94b657a225a498c7d07dbf9;hb=76d05eb2de39a69e93c2c342073cde2627c9f50c;hp=fc321f6c46967eeaef1ebde9880a326dcc534956;hpb=c68579ccc2b03996eec6ac5c1526d6e5d20c3c78;p=ekitaihs.git

diff --git a/Render.hs b/Render.hs
index fc321f6..bc4a15a 100644
--- a/Render.hs
+++ b/Render.hs
@@ -1,17 +1,29 @@
-module Render ( buildInitialState, ekitaiApp ) where
+module Render ( ekitaiMain ) where
 
 import Brick.AttrMap
 import Brick.Main
 import Brick.Types
 import Brick.Widgets.Core
-import Graphics.Vty.Input.Events
+import Brick.BChan (newBChan, writeBChan)
+import Graphics.Vty
+
+import Control.Monad (forever, void)
+import Control.Monad.IO.Class (liftIO)
+import Control.Concurrent (threadDelay, forkIO)
+
+import qualified Data.Vector as V
+import Sim
 
 type ResourceName = String
 
-data EkitaiState =
-    EkitaiState deriving (Show)
+data EkitaiState = EkitaiState
+    { ekitaiStateSim           :: Simulation
+    } deriving (Show)
+
+-- custom event
+data Tick = Tick
 
-ekitaiApp :: App EkitaiState e ResourceName
+ekitaiApp :: App EkitaiState Tick ResourceName
 ekitaiApp = App
     { appDraw = drawEkitai
     , appChooseCursor = showFirstCursor
@@ -20,18 +32,29 @@ ekitaiApp = App
     , appAttrMap = const $ attrMap mempty []
     }
 
-buildInitialState :: IO EkitaiState
-buildInitialState = pure EkitaiState
+ekitaiMain sim = do
+    chan <- newBChan 10
+    -- tick game
+    forkIO $ forever $ do
+        writeBChan chan Tick
+        threadDelay 50000
+    let buildVty = Graphics.Vty.mkVty Graphics.Vty.defaultConfig
+    initialVty <- buildVty
+    initialState <- buildInitialState sim
+    endState <- customMain initialVty buildVty (Just chan) ekitaiApp initialState
+    return 0
+
+buildInitialState :: Simulation -> IO EkitaiState
+buildInitialState sim =
+    pure EkitaiState
+    { ekitaiStateSim = sim
+    }
 
 drawEkitai :: EkitaiState -> [Widget ResourceName]
-drawEkitai state = []
-
-handleEkitaiEvent :: EkitaiState -> BrickEvent n e -> EventM n (Next EkitaiState)
-handleEkitaiEvent s e =
-    case e of
-        VtyEvent vtye ->
-            case vtye of
-                EvKey (KChar 'q') [] -> halt s
-                _ -> continue s
-        _ -> continue s 
+drawEkitai state = [ vBox [str $ simToString $ ekitaiStateSim state] ]
+
+handleEkitaiEvent :: EkitaiState -> BrickEvent n Tick -> EventM n (Next EkitaiState)
+handleEkitaiEvent s (VtyEvent (EvKey (KChar 'q') [])) = halt s
+handleEkitaiEvent s (AppEvent Tick) = continue s { ekitaiStateSim = physStep $ ekitaiStateSim s }
+handleEkitaiEvent s _ = continue s