Implement moving wall push and crush

2021-03-29 16:22:25 +02:00
parent a4afe05478
commit b709aad2a6
4 changed files with 62 additions and 39 deletions
@@ -128,6 +128,7 @@ data TempLightSource = TLS
 data Creature = Creature
    { _crPos        :: Point2
    , _crOldPos     :: Point2
+    , _crVel        :: Point2
    , _crDir        :: Float
    , _crID         :: Int
    , _crPict       :: Creature -> Picture