Lower walls and performance improvement for shadows

2021-03-20 12:28:19 +01:00
parent ec46eec8e8
commit a2183151be
3 changed files with 19 additions and 15 deletions
@@ -122,8 +122,8 @@ worldPictures w
                where tst x y sc t = translate x y $ scale sc sc $ color white $ text t

 testPic :: World -> [Picture]
-testPic w = --[blank]
-     [setLayer 1 $ onLayerL [99] $ bezierQuad white red 5 5 (00,00) (300,305) (50,000) ]
+testPic w = [blank]
+    -- [setLayer 1 $ onLayerL [99] $ bezierQuad white red 5 5 (00,00) (300,305) (50,000) ]
    -- $ uncurry translate (mouseWorldPos w)