Abstract out block placement

2022-06-27 13:38:46 +01:00
parent c8710fe92a
commit fec72cdf48
14 changed files with 105 additions and 55 deletions
@@ -31,7 +31,7 @@ airlock0 = defaultRoom
                $ \_ _ -> Just $ putDoubleDoor thewall (cond' btid) (V2 0 80) (V2 40 80) 2
        , invisibleWall $ rectNSWE 60 40 (-40) (-30)
        ,spanLightI (V2 (-2) 30) (V2 (-2) 70)
-        ,sps0 $ PutShape $ thinHighBar 75 (V2 40 50) (V2 (-1) 50)
+        ,sps0 $ putShape $ thinHighBar 75 (V2 40 50) (V2 (-1) 50)
        ]
    , _rmBound = [rectNSWE 75 15 0 40,switchcut]
    }