Work on held item usage

src/Dodge/Data/Item/Use.hs

@@ -14,6 +14,7 @@ module Dodge.Data.Item.Use (
     module Dodge.Data.Item.Targeting,
 ) where
 
+import Linear
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -72,10 +73,17 @@ data AimParams = AimParams
     , _aimZoom :: ItZoom
     , _aimStance :: AimStance
     , _aimHandlePos :: Float
-    , _aimMuzPos :: Float
+    , _aimMuzzles :: [Muzzle]
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data Muzzle = Muzzle
+    { _mzPos :: V2 Float
+    , _mzRot :: Float
+    , _mzInaccuracy :: Float
+    }
+
+
 data AimStance
     = TwoHandTwist
     | TwoHandFlat
@@ -94,6 +102,8 @@ data ItZoom = ItZoom
 makeLenses ''ItemUse
 makeLenses ''AimParams
 makeLenses ''ItZoom
+makeLenses ''Muzzle
+deriveJSON defaultOptions ''Muzzle
 deriveJSON defaultOptions ''AimStance
 deriveJSON defaultOptions ''ItZoom
 deriveJSON defaultOptions ''AimParams