Commit before attempt to unify picture rendering

2021-06-09 21:32:26 +02:00
parent 71d9a24eed
commit 822db37a58
7 changed files with 47 additions and 11 deletions
@@ -88,7 +88,20 @@ defaultWorld = World
    , _debugFlags = defaultDebugFlags
    , _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
+            [ polygon $ rectNSEW 50 40 140 (-20)
+            , translate 60 45 $ thickArc 0 pi 75 10
+            ]
+        ]
    }
+  where 
+    f x = polygon $ rectNSEW (x - 20) (x-22) 500 0
+
 defaultCreature :: Creature
 defaultCreature = Creature
    { _crPos    = (0,0)