Up  

Module Gphys

module Gphys: sig .. end

Simple 2D physics

type vector = float * float 
type point = float * float 
type segment = point * point 
type 'a circle = {
   mutable cx : float;
   mutable cy : float;
   mutable r : float;
   mutable vx : float;
   mutable vy : float;
   mutable static : bool;
   custom : 'a;
} 
val update_circles : 'a circle list ->
       segment list -> vector -> float -> float -> unit

Update the position of multiple circles and handle collisions with:

update_circles circles segments gravity dt restitution

restitution = 0.70, coefficient of restitution (0.70 means 30% energy loss)