procedure TFormMain.ErstellNewtonMap;
var
 VTmp   : array[0..3] of TVector3f;
 MTmp   : TMatrix4f;
 Min    : TVector3f;
 Max    : TVector4f;
 i : integer;
begin
Collider := NewtonCreateTreeCollision(NewtonWorld, 0);
NewtonTreeCollisionBeginBuild(Collider);
for i := 0 to Length(polygons)-1 do
 begin
 VTmp[0] := Vertex2Vector3f(polygons[i].[0]);
 VTmp[1] := Vertex2Vector3f(polygons[i].[1]);
 VTmp[2] := Vertex2Vector3f(polygons[i].[2]);
 NewtonTreeCollisionAddFace(Collider, 3, @VTmp[0], SizeOf(TVector3f), 1);
 end;
NewtonTreeCollisionEndBuild(Collider, 1);
NewtonBody := NewtonCreateBody(NewtonWorld, Collider);
Matrix_SetIdentity(MTmp);
NewtonBodySetMatrix(NewtonBody, @MTmp[0,0]);
NewtonCollisionCalculateAABB(Collider, @MTmp[0,0], @Min[0], @Max[0]);
NewtonSetWorldSize(NewtonWorld, @Min[0], @Max[0]);
NewtonReleaseCollision(NewtonWorld, Collider);
end;

  LoadTerrain('Terrain.bmp');
  Load_Skybox;
  glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
  octree:=TOctree.Create(polygons);
  pos.x:=0;
  pos.y:=-2;
  pos.z:=-1;
  rx:=-10;
  onResize(self);
  terraintexture := TGLBmp.Create;
  Terraintexture.LoadImage('Material\texture\terraintex.jpg');
  Terraintexture.SetTextureWrap(GL_CLAMP_TO_EDGE, GL_CLAMP_TO_EDGE);
  Terraintexture.GenTexture(false,false);
  octree.generateOctree;
  modelliste := TModelliste.Create;
  ErstellNewtonMap;