Tweak clouds

2021-03-27 15:53:30 +01:00
parent eb2a1a0edb
commit 2956fb6379
3 changed files with 6 additions and 20 deletions
@@ -25,10 +25,12 @@ makeCloudAt rad t drawFunc p w
                           }

 drawCloudWith :: Float -> Float -> Color -> Cloud -> Picture
-drawCloudWith radMult fadet col cl = setLayer 2 
-                            . setDepth (-0.5)
-                            . color (withAlpha a col) 
-                            $ circleSolid (radMult * _clRad cl)
+drawCloudWith radMult fadet col cl 
+    = setLayer 2 
+        . setDepth (-0.5)
+        $ circleSolidCol (withAlpha 0 col) (withAlpha a col) (radMult * _clRad cl)
+--        . color (withAlpha a col) 
+--        $ circleSolid (radMult * _clRad cl)
    where a = min 1 $ fromIntegral (_clTimer cl) / fadet

 makeThickSmokeAt :: Point2 -> World -> World