Allow shadow fidelity option, fix bug in rendering box shadows

2023-03-25 17:22:58 +00:00
parent cdc4a84d4b
commit d989acd6f2
26 changed files with 410 additions and 258 deletions
@@ -112,7 +112,7 @@ drawCreature cr = case _crType cr of

 lampCrSPic :: Float -> SPic
 lampCrSPic h =
-    ( colorSH blue . upperBox h $ rectWH 5 5
+    ( colorSH blue . upperBox Small Typical h $ rectWH 5 5
    , setLayer BloomLayer (setDepth h . color white $ circleSolid 3)
    )