Improve weapon handle offsets

src/Shape.hs

@@ -35,7 +35,6 @@ module Shape (
     overPosSH,
     upperCylinder,
     upperRounded,
-    xCylinder',
 ) where
 
 import Color
@@ -130,10 +129,10 @@ upperPrismPoly ::
 upperPrismPoly size shad h ps = prismPoly size shad (map (addZ h) ps) (map (addZ 0) ps)
 
 xCylinderST :: Float -> Float -> Shape
-xCylinderST = xCylinder' Small Typical
+xCylinderST = xCylinder Small Typical
 
-xCylinder' :: Size -> Importance -> Float -> Float -> Shape
-xCylinder' size shad r x =
+xCylinder :: Size -> Importance -> Float -> Float -> Shape
+xCylinder size shad r x =
     translateSHz r . rotateSHq (V3 0 1 0) (pi / 2) . upperCylinder size shad x $
         [ V2 r r
         , V2 (- r / 2) (r / 2)