Work on bee movement

src/Dodge/Data/Creature/Misc.hs

@@ -15,6 +15,7 @@ import Dodge.Data.CamouflageStatus
 import Dodge.Data.FloatFunction
 import Dodge.Data.Material
 import Geometry.Data
+import qualified Data.IntSet as IS
 
 data Vocalization
     = VocTimer {_vcTime :: Int ,_vcMaxTime :: Int }
@@ -25,16 +26,16 @@ data CrMvType
     = NoMvType
     | MvWalking {_mvSpeed :: Float} -- note this may interact with a friction element
     -- so currently 26.04.03 the actual max speed when walking is twice this
-    | CrMvType
+    | JitMvType
         { _mvSpeed :: Float
         , _mvTurnRad :: FloatFloat
         , _mvTurnJit :: Float
-        , _mvAimSpeed :: FloatFloat
         }
---    | CrAccMv
---        { _mvAcc :: Float
---        , _mvTopSpeed :: Float
---        }
+    | StartStopMvType
+        { _mvSpeed :: Float
+        , _mvTurnSpeed :: Float
+        , _mvPulseTime :: Int
+        }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Pulse = PulseStatus
@@ -82,9 +83,10 @@ data CreatureType
     | BeeCrit
         { _beeSlime :: Float
         , _beeHive :: Maybe Int
+        , _startStopMv :: Int
         }
     | HiveCrit
-        { _hiveChildren :: [Int]
+        { _hiveChildren :: IS.IntSet
         , _hiveGestation :: Int
         }
     | SwarmCrit