Allow tweaking z buffer when rendering polygon, improve explosion render

2021-07-03 23:56:01 +02:00
parent 532f491327
commit 9df19a9e85
33 changed files with 339 additions and 82 deletions
@@ -355,6 +355,18 @@ data Particle
        , _btTimer' :: Int
        , _btHitEffect' :: HitEffect
        }
+    | PtZ  
+        { _ptDraw :: Particle -> Picture
+        , _ptUpdate' :: World -> Particle -> (World, Maybe Particle)
+        , _btVel' :: Point2
+        , _btColor' :: Color
+        , _btPos' :: Point2
+        , _btPassThrough' :: Maybe Int
+        , _btWidth' :: Float 
+        , _btTimer' :: Int
+        , _btHitEffect' :: HitEffect
+        , _ptZ :: Float
+        }
    | Pt'  
        { _ptDraw :: Particle -> Picture
        , _ptUpdate' :: World -> Particle -> (World, Maybe Particle)