Work on autodoor pathing

src/Dodge/Room/LongDoor.hs

@@ -58,7 +58,7 @@ twinSlowDoorRoom w h x =
         }
   where
     --thewall = switchWallCol red
-    thewall = defaultSwitchWall
+    thewall = defaultDoorWall
     wlSpeed = 0.5
     addColorChange lsid drid =
         over prUpdate $
@@ -131,7 +131,7 @@ addButtonSlowDoor x h rm = do
     -- TODO make the height of this light source and of other mounted lights
     -- be taken from a single consistent source
     --thewall = switchWallCol red
-    thewall = defaultSwitchWall
+    thewall = defaultDoorWall
     butDoor = putLitButOnPos
         col
         (rprBool (isUnusedLnkType InLink))