Tweak two handed item held position

src/Dodge/Data/Item/Misc.hs

@@ -13,18 +13,18 @@ import Geometry.Data
 data ItemDimension = ItemDimension
     { _dimRad :: Float
     , _dimCenter :: Point3
-    , _dimAttachPos :: Point3
+    , _dimAttachPos :: Point3 -- should be attachmentpos
     }
     deriving (Eq, Show, Read) --Generic, Flat)
 
-data ItemPortage
-    = HeldItem
-        { _handlePos :: Float
-        , _muzPos :: Float
-        }
-    | WornItem
-    | NoPortage
-    deriving (Eq, Show, Read) --Generic, Flat)
+--data ItemPortage
+--    = HeldItem
+--        { _handlePos :: Float
+--        , _muzPos :: Float
+--        }
+--    | WornItem
+--    | NoPortage
+--    deriving (Eq, Show, Read) --Generic, Flat)
 
 --data ItemValue = ItemValue
 --    { _ivInt :: Int
@@ -36,9 +36,9 @@ data ItemPortage
 --    deriving (Eq, Show, Read) --Generic, Flat)
 
 makeLenses ''ItemDimension
-makeLenses ''ItemPortage
+--makeLenses ''ItemPortage
 --makeLenses ''ItemValue
 deriveJSON defaultOptions ''ItemDimension
-deriveJSON defaultOptions ''ItemPortage
+--deriveJSON defaultOptions ''ItemPortage
 --deriveJSON defaultOptions ''ItemValue
 --deriveJSON defaultOptions ''ItemValueType

src/Dodge/Data/Item/Use/Equipment.hs

@@ -8,6 +8,7 @@ module Dodge.Data.Item.Use.Equipment (
     module Dodge.Data.Item.Use.Equipment,
 ) where
 
+import Geometry.Data
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -21,6 +22,7 @@ data EquipEffect = EquipEffect
     , _eeSite :: EquipSite
     , _eeParams :: EquipParams
     , _eeViewDist :: Maybe Float
+    , _eeAttachPos :: Point3
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)