justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak minigun muzzle pos

Browse Source
This commit is contained in:
justin
2026-04-16 13:01:07 +01:00
parent 5745541e13
commit 033991ad3f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/HeldUse.hs
+3 -3
View File
@@ -38,7 +38,7 @@ import Dodge.Tesla
import Geometry import Geometry
import qualified IntMapHelp as IM import qualified IntMapHelp as IM
import LensHelp import LensHelp
import Linear (_xy,_xyz) import Linear (_xy,_xyz,(*^))
import ListHelp import ListHelp
import NewInt import NewInt
import Picture.Base import Picture.Base
@@ -228,7 +228,7 @@ heldItemMuzzles loc = \case
BURSTRIFLE -> dbwMuzzles & ix 0 . mzPos .~ V2 25 0 & ix 0 . mzInaccuracy .~ 0.05 BURSTRIFLE -> dbwMuzzles & ix 0 . mzPos .~ V2 25 0 & ix 0 . mzInaccuracy .~ 0.05
MINIGUNX i -> MINIGUNX i ->
[ Muzzle [ Muzzle
(V2 (40 * fromIntegral j / fromIntegral i) 0) (V2 (15 + 25 * fromIntegral j / fromIntegral i) 0)
0 0
0.05 0.05
maguse1 maguse1
@@ -1005,7 +1005,7 @@ makeBullet thebullet itm (p, q) w =
.:~ ( thebullet .:~ ( thebullet
& buPos .~ bulpos & buPos .~ bulpos
& buOldPos .~ bulpos & buOldPos .~ bulpos
& buVel %~ (rotateV dir . (muzvel *.*)) & buVel %~ (rotateV dir . (muzvel *^))
& buDrag *~ drag & buDrag *~ drag
) )
where where