NGDWalkShootD.dpr 576 B

1234567891011121314151617181920212223242526
  1. (* NGD Physics Engine demo.
  2. This example show how to move with keyboard.
  3. Press X key to spawn New model.
  4. Press C key to Respawn Body.
  5. Press Middle Mouse to grab.
  6. Press MouseLeft to shoot.
  7. Hold MouseRight to look
  8. Body has two Upvectors joint, one in Y one in X.
  9. Created by Franck Papouin 04/02/11
  10. *)
  11. program NGDWalkShootD;
  12. uses
  13. Forms,
  14. fNGDWalkShootD in 'fNGDWalkShootD.pas';
  15. {$R *.res}
  16. begin
  17. Application.Initialize;
  18. Application.MainFormOnTaskbar := True;
  19. Application.CreateForm(TFormNewtonWalkShoot, FormNewtonWalkShoot);
  20. Application.Run;
  21. end.