Refactor tractor beam

2021-09-26 02:58:38 +01:00
parent 32367b5b2d
commit a823d4c6df
7 changed files with 126 additions and 116 deletions
@@ -24,7 +24,7 @@ startRoom = do
    w <- state $ randomR (100,400)
    h <- state $ randomR (200,400)
    let fground = sPS (V2 0 0) 0 $ PutForeground $ 
-               highPipe 80 (V2  0    (h/3)) (V2  w    (h/2))
+               girderV 50 20 10 (V2  0    (h/5)) (V2  w    (h/5))
            <> highPipe 40 (V2  0    (h/2)) (V2  w    (h/3))
            <> highPipe 60 (V2 (w/3)    0 ) (V2 (w/3)  h   )
        theLamp = sPS (V2 (w/2) (h/2)) 0 $ putColorLamp (V3 0.75 0.75 0.75)