Pass projectile object to draw function

2021-05-24 14:21:13 +02:00
parent a15d592951
commit 38682049c4
10 changed files with 36 additions and 34 deletions
@@ -384,7 +384,7 @@ data Projectile
        { _pjPos :: Point2
        , _pjStartPos :: Point2
        , _pjVel :: Point2
-        , _pjPict :: Picture
+        , _pjDraw :: Projectile -> Picture
        , _pjID :: Int
        , _pjUpdate :: World -> World
        }
@@ -392,7 +392,7 @@ data Projectile
        { _pjPos :: Point2
        , _pjStartPos :: Point2
        , _pjVel :: Point2
-        , _pjPict :: Picture
+        , _pjDraw :: Projectile -> Picture
        , _pjID :: Int
        , _pjUpdate :: World -> World
        , _pjPayload :: Point2-> World -> World