Separate Clouds and Dust

2025-06-25 14:51:15 +01:00
parent d61ea304ad
commit d4b2f23c9d
19 changed files with 341 additions and 213 deletions
@@ -12,7 +12,7 @@ muchWlDustAt wl p = flip (foldl' f) [10, 20 .. 100]
  where
    f w h =
        w
-            & makeCloudAt (Dust (_wlMaterial wl)) 200 (addZ h (p +.+ off))
+            & makeDustAt (_wlMaterial wl) 200 (addZ h (p +.+ off))
            & randGen .~ g
      where
        (off, g) = runState (randInCirc 1) (_randGen w)