- Testw := TGLCube(Objekte.AddNewChild(TGLCube));
- Testw .Position.SetPoint(0, 0, -5);
- Testw.CubeWidth := 2;
- Testw.CubeHeight := 2;
- Testw.CubeDepth := 2;
- Testw.Material.MaterialLibrary := GLMaterialLibrary1;
- Testw.Material.LibMaterialName :='Grass';
- dyn:=TGLODEStatic.Create(Testw.Behaviours);
- with TODEElementBox(Dyn.AddNewElement(TODEElementBox)) do begin
- BoxWidth:=Testw.CubeWidth;
- BoxHeight:=Testw.CubeHeight;
- BoxDepth:=Testw.CubeDepth;
- end;
- dyn.Manager:=GLODEManager1;