Restore gib colours

src/Dodge/Block/Debris.hs

@@ -77,14 +77,14 @@ baseDebris mt = case mt of
     Metal   -> do
         sh <- jaggedShape
         return $ metalDebris
-            & prDraw .~ (`drawMovingShape` sh)
+            & prDraw .~ (`drawMovingShapeCol` sh)
 
 stoneDebris :: Prop
 stoneDebris = PropZ
     {_prPos = 0
     ,_pjStartPos = 0
     ,_pjVel = 0
-    ,_prDraw = \pr -> drawMovingShape pr (cubeShape 4)
+    ,_prDraw = \pr -> drawMovingShapeCol pr (cubeShape 4)
     ,_pjID = 0
     ,_pjUpdate = fallSmallBounceDamage
     ,_pjPosZ = 10
@@ -103,12 +103,12 @@ dirtColor = V4 (150/256) ( 75/256)  0 ( 250/256)
 
 metalDebris :: Prop
 metalDebris = stoneDebris
-    & prDraw    .~ (\pr -> drawMovingShape pr (shardShape 4))
+    & prDraw    .~ (\pr -> drawMovingShapeCol pr (shardShape 4))
     & pjUpdate  .~ fallSmallBounce
 
 glassDebris :: Prop
 glassDebris = stoneDebris
-    & prDraw    .~ (\pr -> drawMovingShape pr (shardShape 4))
+    & prDraw    .~ (\pr -> drawMovingShapeCol pr (shardShape 4))
     & pjUpdate  .~ fallSmallBounce
     & pjColor   .~ withAlpha 0.5 cyan
 crystalDebris :: Prop

src/Dodge/Floor.hs

@@ -42,7 +42,7 @@ initialAnoTree = OnwardList
         $ intersperse (AnTree corDoor)
     [ IntAnno $ AnTree . startRoom
     , AnRoom $ return airlock0
-    , AnRoom $ roomCCrits 1
+    , AnRoom $ roomCCrits 10
     , AnRoom slowDoorRoom
     , AnTree firstBreather
     , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward

src/Dodge/Prop/Moving.hs

@@ -1,5 +1,6 @@
 module Dodge.Prop.Moving 
     ( drawMovingShape
+    , drawMovingShapeCol
     , fallSmallBounceDamage
     , fallSmallBounce
     ) where
@@ -67,4 +68,10 @@ drawMovingShape pr = noPic
     . translateSHz (_pjPosZ pr)
     . uncurryV translateSHf (_prPos pr) 
     . overPosSH (Q.rotate (_pjQuat pr))
+
+drawMovingShapeCol :: Prop -> Shape -> SPic
+drawMovingShapeCol pr = noPic
+    . translateSHz (_pjPosZ pr)
+    . uncurryV translateSHf (_prPos pr) 
+    . overPosSH (Q.rotate (_pjQuat pr))
     . colorSH (_pjColor pr)

src/Dodge/Render/ShapePicture.hs

@@ -81,7 +81,7 @@ extraPics cfig w = pictures (_decorations w)
     <> concatMapPic clDraw (_clouds w      )
     <> concatMapPic ppDraw (_pressPlates w )
     <> viewClipBounds cfig w
-    <> debugDraw cfig w
+--    <> debugDraw cfig w
 
 debugDraw :: Configuration -> World -> Picture
 {-# INLINE debugDraw #-}