Add support for group placements

2021-05-14 19:46:52 +02:00
parent 0b26761be5
commit 2b09bf2072
18 changed files with 307 additions and 266 deletions
@@ -16,7 +16,7 @@ door = Room
    , _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)]
+    , _rmPS    = [sPS (0,20) 0 $ PutAutoDoor (0,0) (40,0)]
    , _rmBound = [] 
    }
    where lnks = [((20,35),0)