Tweak posture

2026-04-01 11:02:24 +01:00
parent ff4fa52206
commit 09fc2bb48e
3 changed files with 43 additions and 39 deletions
@@ -376,9 +376,11 @@ miniGunXPict :: Int -> Float -> SPic
 miniGunXPict i spin =
    noPic .
        colorSH red $ rotateSHx a barrels
-            <> xCylinderST 3 40
+--            <> xCylinderST 3 40
+            <> xCylinderST 3 16
  where
-    aBarrel = translateSH (V3 15 4 2.5) $ xCylinderST 2 25
+    --aBarrel = translateSH (V3 15 4 2.5) $ xCylinderST 2 25
+    aBarrel = translateSH (V3 15 0 2) $ xCylinderST 2 25
    barrels = foldMap (\an -> aBarrel & rotateSHx (2 * pi * fromIntegral an / fromIntegral i)) [1 .. i]
    a = 2 * pi * spin / 25