Refactor item drawing

2021-10-01 23:01:36 +01:00
parent 5f17841811
commit 8c1496e140
28 changed files with 248 additions and 185 deletions
@@ -1,10 +1,11 @@
 module Dodge.Room.Corridor
    where
 import Dodge.Room.Data
-import Dodge.Room.Foreground
+--import Dodge.Room.Foreground
 import Dodge.Default.Room
-import Dodge.LevelGen.Data
-import Dodge.LightSources.Lamp
+--import Dodge.LevelGen.Data
+--import Dodge.LightSources.Lamp
+import Dodge.LightSources.Fitting
 import Geometry
 import Tile

@@ -16,10 +17,7 @@ corridor = defaultRoom
    { _rmPolys = [poly]
    , _rmLinks = lnks
    , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
-    , _rmPS    = 
-        [sPS (V2 20 40) 0 $ PutLS (lightAt (V3 0 0 50) 0)
-        ,sPS (V2 0 0)   0 $ PutForeground $ highPipe 55 (V2 0 40) (V2 40 40)
-        ]
+    , _rmPS    = [ mountedLightI 50 (V2 0 40) (V2 40 40) ]
    , _rmBound = [ rectNSWE 50 30 0 40 ]
    , _rmFloor = [makeTileFromPoly poly 2]  
    }