Working room generation with less shifting, should be more sensible

2021-11-15 01:55:35 +00:00
parent 8356496a7f
commit e93fa10a97
7 changed files with 15 additions and 64 deletions
@@ -28,7 +28,7 @@ startRoom = do
    h <- state $ randomR (200,400)
    let plmnts = 
            [ sPS (V2 0 0) 0 $ PutForeground $ girderV 40 20 10 (V2 0 (h/2)) (V2 w (h/2))
-            , mntLS jShape (V2 0 (h/3)) (V3 40 (h/3) 70)
+            --, mntLS jShape (V2 0 (h/3)) (V3 40 (h/3) 70)
            , tankSquareEmboss4 (dim orange) 50 (h-60)
            , tankSquare (dim orange) 50 50
            , tankSquare (dim orange) 50 120