Move toward shell storing update as list

2022-07-20 11:49:10 +01:00
parent 6eb09a991e
commit 577cf0c44e
8 changed files with 162 additions and 34 deletions
@@ -742,16 +742,9 @@ data Proj
        , _prjPayload :: Payload
        , _prjTimer :: Int
        , _prjZ :: Float
+        , _prjUpdates :: [ProjectileUpdate]
        }
 data Prop 
--    = Projectile    
--        { _prPos :: Point2
--        , _pjStartPos :: Point2
--        , _pjVel :: Point2
--        , _prDraw :: Prop -> SPic
--        , _pjID :: Int
--        , _pjUpdate :: Prop -> World -> World
--        }
    = PropZ
        { _prPos :: Point2
        , _pjStartPos :: Point2