Almost working shadows

2021-06-30 00:35:41 +02:00
parent 3056e6384b
commit 357206f060
6 changed files with 46 additions and 20 deletions
@@ -23,8 +23,10 @@ startRoom = do
    w <- state $ randomR (100,400)
    h <- state $ randomR (200,400)
    let fground = sPS (0,0) 0 $ PutForeground $ 
-            highPipe 80 (0,h/3) (w, 2*h/3)
-            ++ highPipe 20 (0,2*h/3) (w, h/3)
+            highPipe 80 (0,h/3) (w, h/2)
+            ++ highPipe 40 (0,h/2) (w, h/3)
+            ++ highPipe 60 (w/3,0) (w/3, h)
+            -- ++ highPipe 20 (0,2*h/3) (w, h/3)
 --            , girderV cola 10 (0,3*h/4) (w, 3*h/4)
 --            , girder colb 5 (0,5*h/8) (w, 5*h/8)
    treeFromPost [Left rezBox, Left door] . Right <$> randomiseOutLinks (shiftRoomBy ((-20,-20),0) $ roomRectAutoLinks w h & rmPS %~ (fground :))