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
@@ -26,7 +26,7 @@ makeCloudAt rad t drawFunc p w = w & clouds %~ IM.insert i theCloud
 drawCloudWith :: Float -> Float -> Color -> Cloud -> Picture
 drawCloudWith radMult fadet col cl 
    = setLayer 2 
-    . setDepth (-0.02)
+    . setDepth 25
    $ circleSolidCol (withAlpha 0 col) (withAlpha a col) (radMult * _clRad cl)
  where 
    a = min 1 $ fromIntegral (_clTimer cl) / fadet