Implement simple sweep light

2021-09-26 23:38:32 +01:00
parent c0480f0ad6
commit d9ad55ec50
6 changed files with 66 additions and 5 deletions
@@ -17,8 +17,8 @@ corridor = defaultRoom
    , _rmLinks = lnks
    , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
    , _rmPS    = 
-        [ sPS (V2 20 40) 0 $ PutLS (lightAt (V3 0 0 50) 0) (lampPic 50)
-        , sPS (V2 0 0)   0 $ PutForeground $ highPipe 55 (V2 0 40) (V2 40 40)
+        [-- sPS (V2 20 40) 0 $ PutLS (lightAt (V3 0 0 50) 0) (lampPic 50)
+         sPS (V2 0 0)   0 $ PutForeground $ highPipe 55 (V2 0 40) (V2 40 40)
        ]
    , _rmBound = [ rectNSWE 50 30 0 40 ]
    , _rmFloor = [makeTileFromPoly poly 2]