Tweak clouds

src/Dodge/Wall/Dust.hs

@@ -1,4 +1,4 @@
-module Dodge.Wall.Dust where
+module Dodge.Wall.Dust (muchWlDustAt) where
 
 import Data.Foldable
 import Control.Lens
@@ -7,11 +7,6 @@ import Dodge.WorldEvent.Cloud
 import Geometry
 import RandomHelp
 
-wlDustAt :: Wall -> Point2 -> World -> World
-wlDustAt wl = makeCloudAt (Dust (_wlMaterial wl)) 200 . addZ 20
---  where
---    dustcol = _wlColor wl & _4 .~ 1
-
 muchWlDustAt :: Wall -> Point2 -> World -> World
 muchWlDustAt wl p = flip (foldl' f) [10, 20 .. 100]
   where
@@ -21,4 +16,3 @@ muchWlDustAt wl p = flip (foldl' f) [10, 20 .. 100]
             & randGen .~ g
       where
         (off, g) = runState (randInCirc 1) (_randGen w)
---    dustcol = _wlColor wl & _4 .~ 1