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
@@ -49,7 +49,7 @@ Shockwave picture.
 drawShockwave :: Particle -> Picture
 drawShockwave pt = pic 
  where
-    pic = onLayer PtLayer $ uncurry translate p 
+    pic = setDepth 20 . uncurry translate p 
                          $ color (_btColor' pt) $ thickCircle rad thickness
    p    = _btPos' pt
    r    = _btRad' pt