Add lights to buttons, cleanup

2021-11-02 19:38:22 +00:00
parent 9eda8c81a9
commit 59f43a3602
25 changed files with 356 additions and 349 deletions
@@ -5,7 +5,7 @@ import Dodge.Room.Data
 import Dodge.Default.Room
 --import Dodge.LevelGen.Data
 --import Dodge.LightSources.Lamp
-import Dodge.LightSources.Fitting
+import Dodge.Placements
 import Geometry
 import Tile

@@ -17,7 +17,7 @@ corridor = defaultRoom
    { _rmPolys = [poly]
    , _rmLinks = lnks
    , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
-    , _rmPS    = [ mountedLightI 50 (V2 0 40) (V2 40 40) ]
+    , _rmPS    = [ mountLightI 50 (V2 0 40) (V2 40 40) ]
    , _rmBound = [ rectNSWE 50 30 0 40 ]
    , _rmFloor = [makeTileFromPoly poly 2]  
    }