Work on bouncing debris

src/Dodge/Data/Object.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
+--{-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.Object where
 

src/Dodge/Data/Prop.hs

@@ -44,6 +44,7 @@ data DebrisType =
     Gib {_gibSize :: Float
         ,_gibColor :: Color
         }
+    | BlockDebris {_bdMaterial :: Material}
 
 data Debris = DebrisChunk
         { _dbPos :: Point3
@@ -64,7 +65,7 @@ data PropDraw
     | PropVerticalLampCover Float
     | PropLampCover Float
     | PropDrawToggle PropDraw
-    | PropDrawGib Float
+--    | PropDrawGib Float
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data PropUpdate