Cleanup light mounts

2021-11-13 12:31:11 +00:00
parent 3624f22f2b
commit 96c72ef578
10 changed files with 80 additions and 110 deletions
@@ -32,7 +32,7 @@ triLootRoom w h = pure $ defaultRoom
        [sPS (V2 (15-w)    15 )  0 $ PutID 0
        ,sPS (V2 (w-15)    15 ) pi $ PutID 0
        ,sPS (V2     0  (h-35))  0 $ PutID 2
-        ,mountLightV (V2 0 (h-20)) (V3 0 (h-80) 70)
+        ,mntLS vShape (V2 0 (h-20)) (V3 0 (h-80) 70)
        ,sPS (V2     0  ( -60))  0 putLamp
        ]
    , _rmBound  = [tri , base]