Continue reorganising records into functions

2025-06-03 22:20:42 +01:00
parent a5554f24e4
commit 33ebdcb0de
17 changed files with 171 additions and 153 deletions
@@ -1,6 +1,6 @@
 module Dodge.Default.Item.Use.AimParams (
    defaultAimParams,
-    defaultItZoom,
+--    defaultItZoom,
 ) where

 import Dodge.Data.Item.Use
@@ -11,8 +11,7 @@ defaultAimParams =
    AimParams
        { _aimWeight = 0
        , _aimTurnSpeed = 1
-        , _aimRange = 0
-        , _aimZoom = defaultItZoom
+--        , _aimZoom = defaultItZoom
        --, _aimHandlePos = V2 3 0
        , _aimMuzzles =
            [ Muzzle
@@ -28,10 +27,10 @@ defaultAimParams =
            ]
        }

-defaultItZoom :: ItZoom
-defaultItZoom =
-    ItZoom
-        { _izMax = 20
-        , _izMin = 0.2
-        , _izFac = 1
-        }
+--defaultItZoom :: ItZoom
+--defaultItZoom =
+--    ItZoom
+--        { _izMax = 20
+--        , _izMin = 0.2
+--        , _izFac = 1
+--        }