Separate placement spot from placement type

2021-11-02 21:12:11 +00:00
parent 59f43a3602
commit 0b058674ea
16 changed files with 77 additions and 85 deletions
@@ -66,7 +66,7 @@ roomPadCut ps p = defaultRoom
 roomPillars :: Room
 roomPillars = over rmLinks init $ set rmPS plmnts $ roomRect 240 240 2 2
  where 
-    plmnts = mountLightI 70 (V2 120 24) (V2 120 216) 
+    plmnts = spanLightI 70 (V2 120 24) (V2 120 216) 
        : mountLightV (V2 12 12) (V3 25 25 70)
        : mountLightV (V2 228 228) (V3 215 215 70)
        : sps0 (PutForeground $ thinHighBar 75 (V2 26 25) (V2 120 25))