Tweak clouds

src/Dodge/Wall/Dust.hs

@@ -8,7 +8,7 @@ import Geometry
 import RandomHelp
 
 wlDustAt :: Wall -> Point2 -> World -> World
-wlDustAt _ = makeCloudAt StoneDust 200 . addZ 20
+wlDustAt wl = makeCloudAt (Dust (_wlMaterial wl)) 200 . 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
-            & makeCloudAt StoneDust 200 (addZ h (p +.+ off))
+            & makeCloudAt (Dust (_wlMaterial wl)) 200 (addZ h (p +.+ off))
             & randGen .~ g
       where
         (off, g) = runState (randInCirc 1) (_randGen w)