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