Add different weapon positions based on handedness

src/Dodge/Item/Weapon.hs

@@ -160,15 +160,17 @@ lasGun = defaultAutoGun
     , _itUse = \_ -> shoot aLaser
     , _wpSpread = 0.001
     , _wpRange = 20
-    , _itFloorPict = onLayer FlItLayer $ color blue $ polygon $ rectNESW 3 3 (-3) (-3)
+    , _itFloorPict = onLayer FlItLayer lasGunPic
     , _itAimingSpeed = 0.4
     , _itAimingRange = 1
-    , _itEquipPict = pictureWeaponOnAim $ color blue $ polygon $ rectNESW 3 3 (-3) (-3)
+    , _itEquipPict = pictureWeaponOnAim lasGunPic
     , _itAttachment = Just $ ItCharMode $ Seq.fromList "/VZ"
     , _itScrollUp   = incCharMode
     , _itScrollDown = decCharMode
     , _itInvDisplay = basicWeaponDisplay
     }
+lasGunPic :: Picture
+lasGunPic = color blue . polygon $ rectNESW 3 15 (-3) (-15)
 forceFieldGun :: Item
 forceFieldGun = defaultGun 
     { _itName = "FORCEFIELD"
@@ -372,9 +374,12 @@ multGun = defaultGun
     , _itAimingRange = 1
     , _itZoom = defaultItZoom {_itAimZoomFac = 1.5}
     , _itEquipPict = pictureWeaponOnAim multGunPic
+    , _itAimStance = TwoHandTwist
     }
-  where 
-    multGunPic = color red $ pictures 
+multGunPic :: Picture
+multGunPic = color red $ pictures
+    [ polygon $ rectNESW 4 8 (-4) (-12)
+    , translate 8 0 $ pictures 
         [ polygon $ rectNSEW 12   8     2 (-2)
         , polygon $ rectNSEW 7    3     2 (-2)
         , polygon $ rectNSEW 2    (-2)  2 (-2)
@@ -382,6 +387,7 @@ multGun = defaultGun
         , polygon $ rectNSEW (-8) (-12) 2 (-2)
         , polygon [(-1.5,12),(-2,12),(-2,-12),(-1.5,-12)]
         ]
+    ]
 longGun :: Item
 longGun = defaultGun 
     { _itName = "LONGGUN"