Broken implementation of window colours, move towards stencil ceilings

src/Dodge/Prop/Draw.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 module Dodge.Prop.Draw (
     propSPic,
     debrisSPic,
@@ -15,17 +13,14 @@ import qualified Quaternion as Q
 import Shape
 import ShapePicture
 
-propSPic :: Prop -> SPic
-propSPic pr = drawProp pr
-
 debrisSPic :: Debris -> SPic
 debrisSPic db = translateSP (_dbPos db) . overPosSP (Q.rotate (_dbRot db)) $
     case db ^. dbType of
         Gib x col -> noPic $ drawGib x col
         BlockDebris m -> noPic . colorSH m $ cubeShape 4
 
-drawProp :: Prop -> SPic
-drawProp pr =
+propSPic :: Prop -> SPic
+propSPic pr =
         uncurryV translateSPxy (_prPos pr) $ rotateSP (_prRot pr) $ pr ^. prDraw
 
 drawGib :: Float -> Color -> Shape