Tweak clouds

src/Shader/Poke/Cloud.hs

@@ -2,6 +2,7 @@
 
 module Shader.Poke.Cloud (pokeCloud) where
 
+import Dodge.Data.Material
 import Color
 import Control.Lens
 import qualified Data.Vector.Unboxed as UV
@@ -33,14 +34,23 @@ pokeCloudVerx ptr cl nv i (dx, dy) =
 
 clColor :: CloudType -> Color
 clColor = \case
-    SmokeCloud -> white
     FlamerSmokeCloud -> greyN 0.7
     RocketCloud -> greyN 0.5
-    CryoReleaseCloud -> mixColorsFrac blue cyan 0.5
+    CryoReleaseCloud -> white
     GasCloud -> green
-    StoneDust -> white
-    DirtDust -> dark orange
-    BloodCloud -> red
+    Dust mt -> materialColor mt
+
+materialColor :: Material -> Color
+materialColor = \case
+    Wood -> dark yellow
+    Dirt -> dark $ dark orange
+    Stone -> greyN 0.5
+    Glass -> white
+    Metal -> orange
+    Crystal -> green
+    Flesh -> red
+    Electronics-> greyN 0.2
+
 
 pokeCloudFloat :: Ptr Float -> Int -> Int -> Float -> IO ()
 {-# INLINE pokeCloudFloat #-}