Commit before pushing more input events into update

2022-10-29 22:33:10 +01:00
parent afaef480db
commit e3155752ba
36 changed files with 121 additions and 147 deletions
@@ -6,6 +6,7 @@
 module Dodge.Data.CWorld (
    module Dodge.Data.CWorld,
    module Dodge.Data.LWorld,
+    module Dodge.Data.CamPos
 ) where

 import Dodge.Data.LWorld
@@ -15,11 +16,13 @@ import Data.Aeson.TH
 --import Dodge.Data.GenParams
 import Dodge.GameRoom
 import Geometry.ConvexPoly
+import Dodge.Data.CamPos

 data CWorld = CWorld
    { _lWorld :: LWorld
+    , _camPos :: CamPos
    , _cwGen :: CWGen
-    , _cwClock :: Int
+    , _cClock :: Int
    , _pastWorlds :: [LWorld]
    , _timeFlow :: TimeFlowStatus
    }