Add automatic girder light placement for rectangular rooms

2022-03-19 08:34:31 +00:00
parent c4a8912441
commit ce660309c5
6 changed files with 60 additions and 33 deletions
@@ -63,6 +63,14 @@ roomRect x y xn yn = defaultRoom
            , _tileZ    = 16
            } ]
    , _rmRandPSs = [psRandRanges (10,x-10) (10,y-10) (0,2*pi)]
+    , _rmType = RectRoomType
+        { _numLinkEW = xn
+        , _numLinkNS = yn
+        , _linkGapEW = xd
+        , _linkGapNS = yd
+        , _rmWidth = x
+        , _rmHeight = y
+        }
    }
  where 
    roomposat onoffpath p = RoomPos p 0 (S.singleton onoffpath) NotLink 0