Add dimensions to all items

2021-11-20 00:01:54 +00:00
parent 9f4ff3a75a
commit 20cf2ce26d
8 changed files with 26 additions and 11 deletions
@@ -6,6 +6,7 @@ import Dodge.Default.Room
 --import Dodge.LevelGen.Data
 --import Dodge.LightSources.Lamp
 import Dodge.Placement.Instance
+import Dodge.PlacementSpot
 import Geometry
 import Tile

@@ -20,6 +21,7 @@ corridor = defaultRoom
    , _rmPmnts    = [ spanLightI (V2 0 40) (V2 40 40) ]
    , _rmBound = [ rectNSWE 50 30 0 40 ]
    , _rmFloor = [makeTileFromPoly poly 2]  
+    , _rmRandPSs = [psRandRanges (10,30) (30,60) (0,2*pi)]
    }
  where 
    poly = rectNSWE 80 0 0 40