Assorted changes, cleanup menu selection text

2022-04-25 23:27:39 +01:00
parent 67e6c4a5bd
commit fa8d8b5899
22 changed files with 217 additions and 108 deletions
@@ -101,16 +101,19 @@ defaultIntention = Intention
    , _viewPoint    = Nothing
    }
 defaultChaseMvType :: CrMvType
-defaultChaseMvType = ChaseMvType
+defaultChaseMvType = CrMvType
    { _mvSpeed = 3
    , _mvTurnRad = f
    , _mvTurnJit = 0.2
+    , _mvAimSpeed   = g
    }
  where
+    g x | x > pi/8  = 0.2
+        | otherwise = 0.01
    f x | x > pi / 4 = 0.2
        | otherwise  = 0.05
 defaultAimMvType :: CrMvType
-defaultAimMvType = AimMvType
+defaultAimMvType = CrMvType
    { _mvSpeed      = 3
    , _mvTurnRad    = const 0.2
    , _mvTurnJit    = 0.05