1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Cube(X,Y,Z,Width,Height,Depth:Real);
var
  cube : TGLCube; //Würfel im GLScene
begin
  cube:=TGLCube(ODEObjects.AddNewChild(TGLCube)); //Als Child von ODEObjects (DummyCube) erzegen
  cube.Position.SetPoint(X,Y,Z); //Position festlegen
  cube.CubeWidth:=Width; 
  cube.CubeHeight:=Height;
  cube.CubeDepth:=Depth;
  cube.OnProgress := Form1.Progress; //onProgress funktion festlegen
  dyn:=TGLODEDynamic.Create(cube.Behaviours); //an dynamic element übergeben
  dyn.Manager:=GLODEManager1; //ODEManager eintragen
  with TODEElementBox(dyn.AddNewElement(TODEElementBox)) do begin //cube werte übernehmen
    BoxWidth:=cube.CubeWidth;
    BoxHeight:=cube.CubeHeight;
    BoxDepth:=cube.CubeDepth;
  end;
end;