Tweak

2025-11-14 10:53:53 +00:00
parent 16eb356e31
commit db62de75d8
3 changed files with 7 additions and 4 deletions
@@ -97,7 +97,8 @@ scalp cr = overPosSH (translateToES cr OnHead) fhead
 --    | oneH cr = rotateSH 0.5 $ translateSHxy 2.5 0 fhead
 --    | otherwise = translateSHxy 2.5 0 fhead
  where
-    fhead = colorSH (greyN 0.9) . upperPrismPolyHalfST 5 $ polyCirc 3 5
+    fhead = (colorSH (greyN 0.9) . upperPrismPolyHalfST 5 $ polyCirc 3 5)
+        & each . sfShadowImportance .~ Unimportant

 torso :: Creature -> Shape
 {-# INLINE torso #-}