Use rounded shapes instead of TopPrism

2023-03-17 01:05:41 +00:00
parent 539cbe8b18
commit 6425ef3f0a
7 changed files with 73 additions and 65 deletions
@@ -126,7 +126,7 @@ scalp cr
    | oneH cr = rotateSH 0.5 $ translateSHxy 2.5 0 fhead
    | otherwise = translateSHxy 2.5 0 fhead
  where
-    fhead = colorSH (greyN 0.9) . upperPrismPolyHalf 5 $ polyCirc 4 5
+    fhead = colorSH (greyN 0.9) . upperPrismPolyHalf 5 $ polyCirc 3 5

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