Cleanup

src/Dodge/WorldEvent/Cloud.hs

@@ -1,11 +1,16 @@
 module Dodge.WorldEvent.Cloud
-    where
-
+    ( makeFlamerSmokeAt
+    , smokeCloudAt
+    , makeThinSmokeAt
+    , makeThickSmokeAt
+    , shellTrailCloud
+    , spawnSmokeAtCursor
+    , makeStartCloudAt
+    ) where
 import Dodge.Data
 import Dodge.Base
 import Geometry.Data
 import Picture
---import qualified IntMapHelp as IM
 
 import Control.Lens
 
@@ -17,7 +22,7 @@ makeCloudAt
     -> Point3   -- start position
     -> World 
     -> World
-makeCloudAt drawFunc rad t alt p w = w & clouds %~ (theCloud :)
+makeCloudAt drawFunc rad t alt p = clouds %~ (theCloud :)
   where 
     theCloud = Cloud 
         { _clPos = p
@@ -41,8 +46,7 @@ smokeCloudAt
 smokeCloudAt col = makeCloudAt (drawCloudWith (4/3) 800 col)
 
 drawCloudWith :: Float -> Float -> Color -> Cloud -> Picture
-drawCloudWith radMult fadet col cl 
-    = setLayer 2 
+drawCloudWith radMult fadet col cl = setLayer 2 
     . setDepth 25
     $ circleSolidCol (withAlpha 0 col) (withAlpha a col) (radMult * _clRad cl)
   where 
@@ -55,11 +59,9 @@ makeThinSmokeAt :: Point3 -> World -> World
 makeThinSmokeAt = makeCloudAt (drawCloudWith 4 400 (withAlpha 0.05 black)) 5 400 50
 
 makeStartCloudAt :: Point3 -> World -> World
---makeSmokeCloudAt = makeCloudAt 10 200 (drawCloudWith 2 200 (greyN 0.5))
 makeStartCloudAt = makeCloudAt (drawCloudWith 2 800 white) 10 400 5
 
 shellTrailCloud :: Point3 -> World -> World
-----makeSmokeCloudAt = makeCloudAt 10 200 (drawCloudWith 2 200 (greyN 0.5))
 shellTrailCloud = makeCloudAt (drawCloudWith (4/3) 800 (greyN 0.5)) 15 400 40
 
 makeFlamerSmokeAt :: Float -> Point3 -> World -> World