Restruction room code

src/Dodge/Room/Door.hs

@@ -0,0 +1,24 @@
+{-
+Rooms that connect other rooms, blocking sight.
+-}
+module Dodge.Room.Door
+    where
+import Geometry
+import Dodge.Room.Data
+import Dodge.LevelGen.Data
+
+--import Control.Monad.State
+--import System.Random
+
+door :: Room
+door = Room
+    { _rmPolys = [rectNSWE 40 0 0 40]
+    , _rmLinks = lnks
+    , _rmPath  = [((20,35),(20,5))]
+-- door extends into side walls (for shadows as rendered 12/03)
+    , _rmPS    = [PS (0,20) 0 $ PutAutoDoor (0,0) (40,0)]
+    , _rmBound = [] 
+    }
+    where lnks = [((20,35),0)
+                 ,((20, 5),pi)
+                 ]