Improve minigun spinning shape

2026-01-02 20:03:25 +00:00
parent 030a021aa1
commit 736d0494c4
2 changed files with 11 additions and 6 deletions
@@ -134,12 +134,12 @@ xCylinder :: Size -> Importance -> Float -> Float -> Shape
 xCylinder size shad d x =
    translateSHz r . rotateSHq (V3 0 1 0) (pi / 2) . upperCylinder size shad x $
        [ V2 r r
-        , V2 (-r) (r)
-        , V2 (-r) (-r)
+        , V2 (-r*0.5) (r*0.5)
+        , V2 (-r*0.5) (-r*0.5)
        , V2 r (- r)
        ]
  where
-    r = 0.5 * d
+    r = d

 upperBoxMT :: Float -> [Point2] -> Shape
 upperBoxMT = upperBox Medium Typical