Work on sensor machines, remove some datatypes associated with placements

src/Dodge/Room/Door.hs

@@ -5,11 +5,8 @@ module Dodge.Room.Door
     where
 import Geometry
 import Dodge.Room.Data
-import Dodge.LevelGen.Data
 import Dodge.Default.Room
-
---import Control.Monad.State
---import System.Random
+import Dodge.Placements
 
 door :: Room
 door = defaultRoom
@@ -17,7 +14,7 @@ door = defaultRoom
     , _rmLinks = lnks
     , _rmPath  = [(V2 20 35,V2 20 5)]
 -- door extends into side walls (for shadows as rendered 12/03)
-    , _rmPS    = [sPS (V2 0 20) 0 $ PutAutoDoor (V2 0 0) (V2 40 0)]
+    , _rmPS    = [putAutoDoor (V2 0 20) (V2 40 20)]
     , _rmBound = [] 
     }
     where lnks = [(V2 20 35,0)