Add line shadow shader

2021-06-26 22:20:41 +02:00
parent 726cd425f2
commit 06f22a3ea5
21 changed files with 128 additions and 74 deletions
@@ -23,7 +23,7 @@ startRoom = do
    w <- state $ randomR (100,400)
    h <- state $ randomR (200,400)
    let fground = sPS (0,0) 0 $ PutForeground $ pictures
-            [ highPipe (0,h/2) (w, h/2)
+            [ highPipe (0,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)
            ]