Replace particle pictures with draw functions

2021-03-24 13:42:31 +01:00
parent 27fc9d19d2
commit 3cce959d00
8 changed files with 70 additions and 80 deletions
@@ -223,7 +223,7 @@ bulletParticleSideEffect pt = destroyOnImpact mkPt mkPt noEff

 aGenBulAt' :: Maybe Int -> Color -> Point2 -> Point2 -> HitEffect -> Float -> Particle'
 aGenBulAt' maycid col pos vel hiteff width = Bul'
-    { _ptPict' = blank
+    { _ptDraw = drawBul
    , _ptUpdate' = mvGenBullet'
    , _btVel' = vel
    , _btColor' = col
@@ -236,7 +236,7 @@ aGenBulAt' maycid col pos vel hiteff width = Bul'

 aCurveBulAt :: Maybe Int -> Color -> Point2 -> Point2 -> Point2 -> HitEffect -> Float -> Particle'
 aCurveBulAt maycid col pos control targ hiteff width = Bul'
-    { _ptPict' = blank
+    { _ptDraw = drawBul
    , _ptUpdate' = mvBulletTrajectory f
    , _btVel' = (0,0)
    , _btColor' = col