Cleanup particles slightly

2021-09-03 17:26:21 +01:00
parent 111b86d2df
commit fd85093833
10 changed files with 64 additions and 95 deletions
@@ -33,7 +33,7 @@ createBarrelSpark :: Point2 -> Float -> Maybe Int -> Int -> Int -> World -> Worl
 createBarrelSpark pos dir maycid time colid w 
    = over worldEvents (( over particles (spark :) . sparkFlashAt pos') . ) w
  where 
-    spark = Bul'  
+    spark = BulletPt  
        { _ptDraw = drawBul
        , _ptUpdate' = mvGenBullet
        , _btVel' = rotateV dir (V2 5 0)