Work on bouncing debris

src/Shader/Poke/Cloud.hs

@@ -2,7 +2,7 @@
 
 module Shader.Poke.Cloud (pokeCloud,pokeDust) where
 
-import Dodge.Data.Material
+import Dodge.Material.Color
 import Color
 import Control.Lens
 import qualified Data.Vector.Unboxed as UV
@@ -71,18 +71,6 @@ pokeDustVerx ptr cl nv i (dx, dy) =
 dustColor :: Dust -> Color
 dustColor = materialColor . _dsType
 
-materialColor :: Material -> Color
-materialColor = withAlpha 0.5 . \case
-    Wood -> dark yellow
-    Dirt -> dark $ dark orange
-    Stone -> greyN 0.5
-    Glass -> white
-    Metal -> orange
-    Crystal -> green
-    Flesh -> red
-    Electronics-> greyN 0.2
-
-
 pokeDustFloat :: Ptr Float -> Int -> Int -> Float -> IO ()
 {-# INLINE pokeDustFloat #-}
 pokeDustFloat ptr nv i = pokeElemOff ptr (nv * 16 + i)