Allow debris to do damage

src/Dodge/Block/Debris.hs

@@ -36,9 +36,9 @@ someDebris = PropZ
     {_prPos = 0
     ,_pjStartPos = 0
     ,_pjVel = 0
-    ,_prDraw = \pr -> drawMovingShape pr (debrisShape pr)
+    ,_prDraw = \pr -> drawMovingShape pr (debrisShape 4 pr)
     ,_pjID = 0
-    ,_pjUpdate = fallSmallBounce
+    ,_pjUpdate = fallSmallBounceDamage
     ,_pjPosZ = 10
     ,_pjVelZ = 5
     ,_pjTimer = 20
@@ -46,5 +46,5 @@ someDebris = PropZ
     ,_pjQuatSpin = Q.axisAngle (V3 1 1 0) 0.1
     ,_pjColor = white
     }
-debrisShape :: Prop -> Shape
-debrisShape pr = colorSH (_pjColor pr) . translateSHz (-5) $ upperPrismPoly 10 $ square 5
+debrisShape :: Float -> Prop -> Shape
+debrisShape size pr = colorSH (_pjColor pr) . translateSHz (-size) $ upperPrismPoly 8 $ square size