Remove separate wall color, should be handled by material type

src/Dodge/Room/LongDoor.hs

@@ -57,7 +57,8 @@ twinSlowDoorRoom w h x =
         , _rmViewpoints = [V2 0 h]
         }
   where
-    thewall = switchWallCol red
+    --thewall = switchWallCol red
+    thewall = defaultSwitchWall
     wlSpeed = 0.5
     addColorChange lsid drid =
         over prUpdate $
@@ -129,7 +130,8 @@ addButtonSlowDoor x h rm = do
             .++~ [MountedLS (fromJust $ _plMID plls), MountedProp (fromJust $ _plMID plpr)]
     -- TODO make the height of this light source and of other mounted lights
     -- be taken from a single consistent source
-    thewall = switchWallCol red
+    --thewall = switchWallCol red
+    thewall = defaultSwitchWall
     butDoor = putLitButOnPos
         col
         (rprBool (isUnusedLnkType InLink))