Add (ugly) support for fractional volumes

2022-04-05 09:26:57 +01:00
parent 31d5bcd0bb
commit bca1236a85
12 changed files with 228 additions and 38 deletions
@@ -503,6 +503,14 @@ data Particle
        { _ptDraw :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
        }
+    | LaserParticle
+        { _ptDraw   :: Particle -> Picture
+        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
+        , _ptRange  :: Float
+        , _ptDamage :: Int
+        , _ptColor  :: Color
+        , _ptPhaseV :: Float
+        }
    | LinearParticle 
        { _ptDraw :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
@@ -626,7 +634,12 @@ data ItemParams
        , _shellSpinAmount  :: Int
        , _shellThrustDelay :: Int
        }
-    | Refracting    {_phaseV :: Float}
+    | Refracting    
+        { _phaseV :: Float
+        , _lasColor :: Color
+        , _lasCycle :: Int
+        , _lasDamage :: Int
+        }
    | Attracting    {_attractionPower :: Point2}
    | BulletShooter -- this should possibly be moved into ammo type
        { _muzVel   :: Float