SmokingD.dpr 488 B

123456789101112131415161718192021
  1. {: Benchmark and stress test for PFX.
  2. Fires are made of additively blended particles, smoke of transparently
  3. blended ones. Smokes of distinct fires should hide each other, and smoke
  4. in a particular fire should hide its top flames a bit.
  5. 02/03/2005 - GF3 / AXP 2 GHz - 53 FPS
  6. }
  7. program SmokingD;
  8. uses
  9. Forms,
  10. fSmokingD in 'fSmokingD.pas' {FormSmoking};
  11. {$R *.res}
  12. begin
  13. Application.Initialize;
  14. Application.CreateForm(TFormSmoking, FormSmoking);
  15. Application.Run;
  16. end.