type Physics_Manager is new Object and Process and Event_Listener with private;
type A_Physics is access all Physics_Manager'Class;
function Friction_X
( | this | : not null access Physics_Manager'Class ) return Float; |
function Friction_Y
( | this | : not null access Physics_Manager'Class ) return Float; |
function Gravity
( | this | : not null access Physics_Manager'Class ) return Float; |
function Max_VX
( | this | : not null access Physics_Manager'Class ) return Float; |
function Max_VY
( | this | : not null access Physics_Manager'Class ) return Float; |
procedure Delete
( | this | : in out A_Physics ); |