Refactor

2021-03-24 02:11:33 +01:00
parent 26ac0142b1
commit 03587a7906
7 changed files with 21 additions and 116 deletions
@@ -18,13 +18,13 @@ makeSmokeCloud pos w = w & clouds %~ IM.insert i theCloud
                           , _clPos = pos
                           , _clVel = (0,0)
                           , _clPict = fadeOutPict (-0.5)
-                           , _clRad = 10
+                           , _clRad = 5
                           , _clTimer = 200
                           , _clEffect = const id
                           }

 fadeOutPict :: Float -> Cloud -> Picture
-fadeOutPict dpth cl = setLayer 2 . setDepth dpth . color (withAlpha a $ greyN 0.5) $ circleSolid (2 * _clRad cl)
+fadeOutPict dpth cl = setLayer 2 . setDepth dpth . color (withAlpha a $ greyN 0.5) $ circleSolid (4 * _clRad cl)
    where a = fromIntegral (_clTimer cl) / 200

 makeFlamerSmoke :: Point2 -> World -> World