Cleanup combining code, flatten modules

2024-10-01 10:01:21 +01:00
parent f69d150e00
commit 87cbaf911f
17 changed files with 143 additions and 173 deletions
@@ -103,8 +103,8 @@ drawCreature cr = case _crType cr of

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

 picAtCrPos1 :: Picture -> Creature -> SPic
 --{-# INLINE picAtCrPos #-}