Continue shape rendering improvements

2021-09-21 02:04:41 +01:00
parent 464b0b16db
commit 2804d58a5a
12 changed files with 20 additions and 73 deletions
@@ -25,8 +25,8 @@ startRoom = do
    h <- state $ randomR (200,400)
    let fground = sPS (V2 0 0) 0 $ PutForeground $ 
               highPipe 80 (V2  0    (h/3)) (V2  w    (h/2))
-            ++ highPipe 40 (V2  0    (h/2)) (V2  w    (h/3))
-            ++ highPipe 60 (V2 (w/3)    0 ) (V2 (w/3)  h   )
+            <> 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)
    treeFromPost [Left rezBox, Left door] . Right 
        <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0)