Refactor bullet particles

src/Dodge/Particle/Bullet/Spawn.hs

@@ -0,0 +1,53 @@
+module Dodge.Particle.Bullet.Spawn
+    where
+import Dodge.Data
+import Dodge.Particle.Bullet.Draw
+import Dodge.Particle.Bullet.Update
+import Geometry
+import Picture
+
+import Control.Lens
+
+aGenBulAt
+    :: Maybe Int -- ^ Pass-through creature id
+    -> Color    
+    -> Point2   -- ^ Start position
+     -> Point2  -- ^ Velocity
+    -> HitEffect 
+    -> Float    -- ^ Bullet width
+    -> Particle
+aGenBulAt maycid _ pos vel hiteff width = Bul'
+    { _ptDraw = drawBul
+    , _ptUpdate' = mvGenBullet'
+    , _btVel' = vel
+    , _btColor' = white
+    , _btTrail' = [pos]
+    , _btPassThrough' = maycid
+    , _btWidth' = width
+    , _btTimer' = 100
+    , _btHitEffect' = hiteff
+    }
+
+aCurveBulAt 
+    :: Maybe Int -- ^ Pass-through creature id
+    -> Color 
+    -> Point2   -- ^ Start position
+    -> Point2   -- ^ Control position
+    -> Point2   -- ^ Target position
+    -> HitEffect 
+    -> Float    -- ^ Bullet width
+    -> Particle
+aCurveBulAt maycid col pos control targ hiteff width = Bul'
+    { _ptDraw = drawBul
+    , _ptUpdate' = \w -> mvGenBullet' w . setVel
+    , _btVel' = (0,0)
+    , _btColor' = col
+    , _btTrail' = [pos]
+    , _btPassThrough' = maycid
+    , _btWidth' = width
+    , _btTimer' = 100
+    , _btHitEffect' = hiteff
+    }
+  where 
+    setVel pt = pt & btVel' .~ bf (fromIntegral $ _btTimer' pt - 1) -.- bf (fromIntegral $ _btTimer' pt)
+    bf t = bQuadToF (pos,control,targ) $ (100 - t) * 0.05