Simplify clouds

src/Dodge/Wall/Dust.hs

@@ -8,7 +8,7 @@ import Geometry
 import RandomHelp
 
 wlDustAt :: Wall -> Point2 -> World -> World
-wlDustAt wl = smokeCloudAt dustcol 20 200 1 . addZ 20
+wlDustAt wl = smokeCloudAt dustcol 200 1 . addZ 20
   where
     dustcol = _wlColor wl & _4 .~ 1
 
@@ -17,7 +17,7 @@ muchWlDustAt wl p = flip (foldl' f) [10, 20 .. 100]
   where
     f w h =
         w
-            & smokeCloudAt dustcol 20 200 1 (addZ h (p +.+ off))
+            & smokeCloudAt dustcol 200 1 (addZ h (p +.+ off))
             & randGen .~ g
       where
         (off, g) = runState (randInCirc 1) (_randGen w)