Make buttons have shape, expose multiple bugs

2021-09-27 12:28:53 +01:00
parent d9ad55ec50
commit 743c1c878d
19 changed files with 157 additions and 71 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]