Module Topdown

type params = {
  1. accel : Playground.number;
  2. friction : Playground.number;
  3. grip : Playground.number;
  4. steering : Playground.number;
  5. steering_speed : Playground.number;
}
val toy : params
val bounce : (Playground.number -> Playground.number -> bool) -> t -> t -> t
val push : Playground.number -> t -> t -> t * t
type track = {
  1. points : (Playground.number * Playground.number) array;
  2. reach : Playground.number;
  3. corner : Playground.number;
}
val point : track -> int -> Playground.number * Playground.number
val start : track -> int -> Playground.number -> t
val follow : track -> t -> t
val lap : track -> t -> int
val distance_from : track -> int -> int -> Playground.number -> Playground.number -> Playground.number
val progress : track -> t -> Playground.number