Working commit with booster

This commit is contained in:
2021-05-24 14:00:53 +02:00
parent 968273bf25
commit a15d592951
+1 -7
View File
@@ -384,7 +384,7 @@ data Projectile
{ _pjPos :: Point2 { _pjPos :: Point2
, _pjStartPos :: Point2 , _pjStartPos :: Point2
, _pjVel :: Point2 , _pjVel :: Point2
, _pjDraw :: Picture , _pjPict :: Picture
, _pjID :: Int , _pjID :: Int
, _pjUpdate :: World -> World , _pjUpdate :: World -> World
} }
@@ -397,12 +397,6 @@ data Projectile
, _pjUpdate :: World -> World , _pjUpdate :: World -> World
, _pjPayload :: Point2-> World -> World , _pjPayload :: Point2-> World -> World
} }
| BoostShockwave
{ _pjID :: Int
, _pjPict :: Picture
, _pjUpdate :: World -> World
, _pjPoints :: [Point2]
}
data Either3 a b c = E3x1 a | E3x2 b | E3x3 c data Either3 a b c = E3x1 a | E3x2 b | E3x3 c
data Wall data Wall
= Wall = Wall