X-Git-Url: https://git.danieliu.xyz/?a=blobdiff_plain;f=Render.hs;h=16fda2b77eb65f69c6a9da2636c39d87138545e2;hb=0320d5e4f8a290f56c382f81d5443508aea30761;hp=fc321f6c46967eeaef1ebde9880a326dcc534956;hpb=c68579ccc2b03996eec6ac5c1526d6e5d20c3c78;p=ekitaihs.git

diff --git a/Render.hs b/Render.hs
index fc321f6..16fda2b 100644
--- a/Render.hs
+++ b/Render.hs
@@ -6,10 +6,14 @@ import Brick.Types
 import Brick.Widgets.Core
 import Graphics.Vty.Input.Events
 
+import qualified Data.Vector as V
+import Sim
+
 type ResourceName = String
 
-data EkitaiState =
-    EkitaiState deriving (Show)
+data EkitaiState = EkitaiState
+    { ekitaiStateSim           :: Simulation
+    } deriving (Show)
 
 ekitaiApp :: App EkitaiState e ResourceName
 ekitaiApp = App
@@ -21,10 +25,14 @@ ekitaiApp = App
     }
 
 buildInitialState :: IO EkitaiState
-buildInitialState = pure EkitaiState
+buildInitialState =
+    pure EkitaiState
+    { ekitaiStateSim = testSim
+    }
 
 drawEkitai :: EkitaiState -> [Widget ResourceName]
-drawEkitai state = []
+-- drawEkitai state = [ vBox $ drawSim $ ekitaiStateSim state ]
+drawEkitai state = [ vBox [str $ simToString $ ekitaiStateSim state] ]
 
 handleEkitaiEvent :: EkitaiState -> BrickEvent n e -> EventM n (Next EkitaiState)
 handleEkitaiEvent s e =
@@ -32,6 +40,7 @@ handleEkitaiEvent s e =
         VtyEvent vtye ->
             case vtye of
                 EvKey (KChar 'q') [] -> halt s
+                EvKey (KChar 's') [] -> continue s { ekitaiStateSim = physStep $ ekitaiStateSim s }
                 _ -> continue s
         _ -> continue s