Tweak minigun muzzle pos

src/Dodge/HeldUse.hs

@@ -38,7 +38,7 @@ import Dodge.Tesla
 import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
-import Linear (_xy,_xyz)
+import Linear (_xy,_xyz,(*^))
 import ListHelp
 import NewInt
 import Picture.Base
@@ -228,7 +228,7 @@ heldItemMuzzles loc = \case
     BURSTRIFLE -> dbwMuzzles & ix 0 . mzPos .~ V2 25 0 & ix 0 . mzInaccuracy .~ 0.05
     MINIGUNX i ->
         [ Muzzle
-            (V2 (40 * fromIntegral j / fromIntegral i) 0)
+            (V2 (15 + 25 * fromIntegral j / fromIntegral i) 0)
             0
             0.05
             maguse1
@@ -1005,7 +1005,7 @@ makeBullet thebullet itm (p, q) w =
             .:~ ( thebullet
                     & buPos .~ bulpos
                     & buOldPos .~ bulpos
-                    & buVel %~ (rotateV dir . (muzvel *.*))
+                    & buVel %~ (rotateV dir . (muzvel *^))
                     & buDrag *~ drag
                 )
   where