Implement foreground correctly, not with shadows though

2021-06-10 13:53:03 +02:00
parent 21a4393ad9
commit aa30f6b969
7 changed files with 34 additions and 74 deletions
@@ -89,14 +89,12 @@ defaultWorld = World
    , _inventoryMode = TopInventory
    , _lClickHammer = HammerUp
    , _foregroundDecorations = 
-        [setDepth (-0.2) $ rotate 0.75 $ pictures
-            $ map f [5,25,45,65]
-        ]
-    , _midgroundDecorations = 
-        [setDepth (-0.1) $ color orange $ pictures
+        [ setDepth (-0.1) $ color orange $ pictures
            [ polygon $ rectNSEW 50 40 140 (-20)
            , translate 60 45 $ scale 0.5 1 $  thickArc 0 pi 75 10
            ]
+        , setDepth (-0.2) $ rotate 0.75 $ pictures
+            $ map f [5,25,45,65]
        ]
    }
  where