Move towards more usable placements

src/Dodge/Room/Door.hs

@@ -5,9 +5,9 @@ import Geometry
 import Dodge.Room.Data
 import Dodge.Default.Room
 import Dodge.Placements
-import Color
+--import Color
 
-import qualified Data.IntMap.Strict as IM
+--import qualified Data.IntMap.Strict as IM
 
 door :: Room
 door = defaultRoom
@@ -30,8 +30,6 @@ switchDoor = defaultRoom
     , _rmLinks = lnks
     , _rmPath  = [(V2 20 35,V2 20 5)]
 -- door extends into side walls (for shadows as rendered 12/03)
-    , _rmTriggerPmnts = IM.fromList 
-        [(0,\cond -> putDoubleDoor False red cond (V2 0 20) (V2 40 20) 2)]
 -- note no bounds
     }
   where