- procedure PhysicsApplyGravityForce(const Body : PNewtonBody); cdecl;
- var
- mass : Single;
- Ixx : Single;
- Iyy : Single;
- Izz : Single;
- Force : TVector3f;
- begin
- NewtonBodyGetMassMatrix(Body, @mass, @Ixx, @Iyy, @Izz);
- Force := V3(0, Mass * -19.8, 0);
- NewtonBodySetForce(Body, @Force);
- end;