(Re)Implement nozzle walking

2024-09-21 19:42:28 +01:00
parent 241f6fdf10
commit 86d8e3a98a
7 changed files with 329 additions and 362 deletions
@@ -44,11 +44,6 @@ data ItemParams
        , _dbGap :: Float
        }
    | Attracting {_attractionPower :: Point2}
-    | AngleWalk
-        { _maxWalkAngle :: Float
-        , _currentWalkAngle :: Float
-        , _walkSpeed :: Float
-        }
    | Arcing
        { _currentArc :: Maybe [ArcStep]
        , _arcSize :: Float
@@ -77,12 +72,8 @@ data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
 --        }
    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

-data Nozzle = Nozzle
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''ItemParams
-makeLenses ''Nozzle
 deriveJSON defaultOptions ''ShrinkGunStatus
 deriveJSON defaultOptions ''PreviousArcEffect
-deriveJSON defaultOptions ''Nozzle
 deriveJSON defaultOptions ''ItemParams