Add some girders

2021-06-21 17:49:18 +02:00
parent c2297cd114
commit 52eaeead5d
3 changed files with 55 additions and 2 deletions
@@ -26,5 +26,6 @@ startRoom = do
            ----    ]
            --, highDiagonalMesh (w,0) (0,0) h 50
            [ highPipe (0,h/2) (w, h/2)
+            , girderV 10 (0,3*h/4) (w, 3*h/4)
            ]
    pure . Right <$> randomiseOutLinks (shiftRoomBy ((-20,-20),0) $ roomRectAutoLinks w h & rmPS %~ (fground :))