GLScene/Examples/Demos/bench/megacube/MegacubeD.dpr

(*
  This sample is basicly a bench for GLScene.
  A fair number of TGLCube are created and rendered (for cSize=5, that's about
  1331 cubes, 7986 polygons or 15972 triangles). Only one light and basic
  shading is used, no texture here, the aim is to test the performance of
  GLScene and T&L, not	the fillrate.

  Results :

  Size	 Triangles     FPS	    CPU      OpenGL     ColorDepth


  5      15972     174.9     K7-2200+   GF3 Ti200     32Bits   Amalgamate = False
  --- 07/01/04 --- 2004 bench
  5      15972     200.5     K7-1800+   GF2 Pro       32Bits   Amalgamate = True
  5      15972     158.6     K7-1800+   GF2 Pro       32Bits
  --- 29/11/02 --- Long time no bench, added 'Amalgamate' score
  5      15972     139.3     K7-1145    GF2 Pro       32Bits
  5      15972      33.6     Du-800     TNT2 M64      32Bits
  --- 26/01/02 --- XOpenGL flexes its muscles, more memory optimizations
  5      15972     110.4     K7-1145    GF2 Pro       32Bits
  5      15972      30.1     Du-800     TNT2 M64      32Bits
  --- 23/01/02 --- Several structural optimizations (memory use & access)
  5      15972      92.2     K7-1145    GF2 Pro       32Bits
  --- 20/01/02 --- Long time no bench, fair improvement though :)
  5      15972      80.1     K7-1066    GF2 Pro       32Bits
  --- 04/09/01 --- Internal changes (buffers, contexts...)
  5      15972      64.1     K7-1066    GF2 Pro       32Bits
  --- 11/08/01 --- GLScene v0.8.3wip
  5      15972      20.1     Du-800     V3 2000       16Bits
  --- 12/03/01 --- GLScene v0.8.2
  5      15972      36.4     K7-500   GeForce-6.50    32Bits
  --- 05/02/01 --- Cube build list and SetGLMaterialColors boost
  5      15972      25.8     K7-500   GeForce-5.33    32Bits
  --- 13/01/01 --- Long time no bench
  5      15972       7.7     K6-400     V3 2000       16Bits
  --- 20/06/00 --- Geometry.pas optimizations
  5      15972      17.2     K7-500     V3 2000       16Bits
  --- 24/03/00 --- PolygonMode & Color cacheing optimization
  5      15972      15.5     K7-500     V3 2000       16Bits
  5      15972       5.9     K6-400     V3 3000       16Bits
  5      15972       4.0     K6-400      MS NT4       24Bits
  --- 22/03/00 --- Set/UnSet states optimization
  5      15972       5.5     K6-400     V3 3000       16Bits
  5      15972       3.6     K6-400      MS NT4       24Bits
  --- 22/03/00 --- Created the bench
*)
program MegacubeD;

uses
  Forms,
  fMegaCubeD in 'fMegaCubeD.pas' {;

{$R *.RES};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TFormMegacube, FormMegacube);
  Application.Run;
end.