Cleanup. Only update draw distance every 5 frames

src/Dodge/Data/Item/Use.hs

@@ -21,7 +21,7 @@ import Geometry.Data
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import qualified Data.Sequence as Seq
+--import qualified Data.Sequence as Seq
 import Dodge.Data.Hammer
 import Dodge.Data.Item.HeldUse
 import Dodge.Data.Item.Use.Consumption
@@ -60,7 +60,7 @@ data ItemUse
     | CraftUse
 --        {_useAmount :: ItAmount}
     | AttachUse
-        {_attachParams :: AttachParams}
+--        {_attachParams :: AttachParams}
     | AmmoMagUse
         { _amagLoadStatus :: ReloadStatus
         , _amagParams :: AmmoParams 
@@ -105,11 +105,11 @@ data HeldParams
         }
     deriving (Eq, Show, Read) --Generic, Flat)
 
-data AttachParams
-    = ScrollAttachParams {_scrollAttachParams :: ScrollAttachParams}
-    | TargetAttachParams
-    | NoAttachParams
-    deriving (Eq, Show, Read) --Generic, Flat)
+--data AttachParams
+--    = ScrollAttachParams {_scrollAttachParams :: ScrollAttachParams}
+--    | TargetAttachParams
+--    | NoAttachParams
+--    deriving (Eq, Show, Read) --Generic, Flat)
 
 data AmmoParams = BulletParams {_ampBullet :: Bullet}
     | ProjectileParams
@@ -120,10 +120,10 @@ data AmmoParams = BulletParams {_ampBullet :: Bullet}
     | GasParams {_ampCreateGas :: GasFuel}
     deriving (Eq, Show, Read) --Generic, Flat)
 
-data ScrollAttachParams
-    = CharScrollParams
-        { _scrollChar :: Seq.Seq Char}
-    deriving (Eq, Show, Read) --Generic, Flat)
+--data ScrollAttachParams
+--    = CharScrollParams
+--        { _scrollChar :: Seq.Seq Char}
+--    deriving (Eq, Show, Read) --Generic, Flat)
 
 data AimParams = AimParams
     { _aimWeight :: Int
@@ -202,8 +202,8 @@ makeLenses ''AimParams
 makeLenses ''ItZoom
 makeLenses ''Muzzle
 makeLenses ''HeldParams
-makeLenses ''AttachParams
-makeLenses ''ScrollAttachParams
+--makeLenses ''AttachParams
+--makeLenses ''ScrollAttachParams
 makeLenses ''AmmoParams
 makeLenses ''MuzzleEffect
 deriveJSON defaultOptions ''MuzzleEffect
@@ -213,8 +213,8 @@ deriveJSON defaultOptions ''AmmoParams
 deriveJSON defaultOptions ''HeldParams
 deriveJSON defaultOptions ''Muzzle
 deriveJSON defaultOptions ''AimStance
-deriveJSON defaultOptions ''ScrollAttachParams
-deriveJSON defaultOptions ''AttachParams
+--deriveJSON defaultOptions ''ScrollAttachParams
+--deriveJSON defaultOptions ''AttachParams
 deriveJSON defaultOptions ''ItZoom
 deriveJSON defaultOptions ''AimParams
 deriveJSON defaultOptions ''ItemUse