Broken commit, just to restore deleted function

2021-09-21 01:28:11 +01:00
parent 7f1a365cac
commit 464b0b16db
6 changed files with 44 additions and 82 deletions
@@ -174,22 +174,9 @@ scalp cr
    | oneH   cr = rotateSH 0.5 $ translateSHf (0.25 * crad) 0 fhead
    | otherwise = translateSHf (0.25 * crad) 0 fhead
  where
-    --fhead = colorSH (greyN 0.9) . upperPrismPoly 5 . polyCirc 3 $ crad * 0.5
-    fhead = ([ShapeObj TopHexahedron $ map (flip ShapeV (greyN 0.9)) aBox] , mempty)
+    fhead = colorSH (greyN 0.9) . upperPrismPoly 5 . polyCirc 3 $ crad * 0.5
    crad = _crRad cr

-aBox :: [Point3]
-aBox =
-    [ V3 0 0 5
-    , V3 5 0 5
-    , V3 5 5 5
-    , V3 0 5 5
-    , V3 0 0 0
-    , V3 5 0 0
-    , V3 5 5 0
-    , V3 0 5 0
-    ]
-
 oneH :: Creature -> Bool
 oneH cr = crIsAiming' cr && crIt ^? itAimStance == Just OneHand
  where