DceDemo.dpr 864 B

123456789101112131415161718192021222324
  1. (* This is a basic use for the Dynamic Collision Engine (DCE) by Lucas Goraieb.
  2. The engine pretty much works by creating a TGLDCEManager, and several
  3. TGLDCEDynamic and TGLDCEStatic behaviours on the objects that should
  4. interact. Each object can be either an ellipsoid, cube, freeForm or terrain,
  5. have different sizes and friction, respond differently to collisions, etc.
  6. This means your next FPS project is pretty much done: All you have to do
  7. is keep loading object files into freeForms and letting DCE do the trick
  8. for you. The only "real" code in this demo is inside the onProgress event
  9. of the cadencer, that takes care of input.
  10. *)
  11. program DceDemo;
  12. uses
  13. Forms,
  14. fDceDemo in 'fDceDemo.pas' {FormDCE};
  15. {$R *.res}
  16. begin
  17. Application.Initialize;
  18. Application.CreateForm(TFormDCE, FormDCE);
  19. Application.Run;
  20. end.