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