Module Steering

type vec = float * float
type vehicle = {
  1. position : vec;
  2. velocity : vec;
  3. max_speed : float;
  4. max_force : float;
}
val seek : vec -> vehicle -> vec
val flee : vec -> vehicle -> vec
val arrive : ?slowing:float -> vec -> vehicle -> vec
val pursue : vehicle -> vehicle -> vec
val evade : vehicle -> vehicle -> vec
val wander : ?distance:float -> ?radius:float -> angle:float -> vehicle -> vec
val avoid : ?ahead:float -> ?size:float -> (vec * float) list -> vehicle -> vec
val follow : ?ahead:float -> width:float -> vec list -> vehicle -> vec
val steer : vehicle -> vec -> vec
val blend : (float * vec) list -> vec
val move : dt:float -> vec -> vehicle -> vehicle
val direction : vec -> vec
val heading : vehicle -> vec