DGL • Thema anzeigen - Speicherproblem, Octreetest, Hightmap

Speicherproblem, Octreetest, Hightmap

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Flash

Betreff des Beitrags: Speicherproblem, Octreetest, Hightmap

Verfasst: Mi Okt 06, 2004 15:39

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Servus zusammen...

Ich hab ein Problem mit nem Octree, besser gesagt mit dem Test des selbigen.

Ich hab gerade das Tut von Shadow durchgearbeitet und erstmal(für später sind mir paar Verbesserungen eingefallen) seinen Octree implementiert.

So...das ganze sollte in ner kleinen Anwendung Laufen im Vergleich zu nem brutForce Hightmap Renderer.
Also hab ich eine Funktion geschrieben, die die Hightmap daten in ein Feld mit Dreiecken umbaut.
Das erstellen der Highmapdaten funktioniert fehlerlos. Das weiß ich, weil ich den Highmaprenderer schon getestet hab.
Beim umbau in ein Dreickfeld kommt es dann aber zu Problemen.

(Wem der Code abschreckend groß vorkommt, einfach überspringen...)

Typdefs:

Code:

  TFullVertex = record
      Pos, N : TGLArrayf3;
      u,v    : GLFloat;
  end;
  PFullVertex = ^TFullVertex;
 
  TTriangle = array[0..2] of TFullVertex;
  PTriangle = array[0..2] of PFullVertex;
 
  TTriangleData = array of PTriangle;

die Funktion sieht so aus:

Code:

function LoadHightMapDataForOctree(var TriArray : TTriangleData;
                                         SFactor, HFactor : real;
                                         Filename : String; Path : String = ''): byte;
type
    TVertex3f = record
                  x,y,z : real;
    end;
 
var BitMap              : TBitMap;
    i,j                 : integer;
    TriAnz              : integer;
    FData               : array of array of TVertex3f;
    P1,P2,P3,P4,P0,N    : TGLArrayf3;
 
begin
     {***************Rückgabewerte***************
      * 99 Unknown Error      0 Successfull End *
      *  1 File not Found     2 Reading Error   *
      *******************************************}
      result := 99;
      if not FileExists(path+filename) then
         begin
              result := 1;
              exit;
         end;
 
      BitMap := TBitmap.Create;
      try
         Bitmap.LoadFromFile(path+Filename);
 
         //Datenarray anlegen und Daten einlesen
         SetLength(FData, Bitmap.Height);
         for i := 0 to Bitmap.Height-1 do
             begin
                  SetLength(FData[i], Bitmap.Width);
                  for j := 0 to Bitmap.Width-1 do
                      begin
                        FData[i,j].X := j;
                        FData[i,j].Y := Bitmap.Canvas.Pixels[i,j]/clWhite;
                        FData[i,j].Z := i;
                      end;
             end;
          Bitmap.Free;
      except
         result := 2;
         exit;
      end;
 
      // Daten befinden sich nun in einer Matrix
      // Jeder Eintrag muss jetzt in 4 Dreiecke aufgesplittet werden (wie Triangle_fan)
      // Die Eckpunkte passen ihre Höhe den Nachbarn an
      TriAnz := 0;
 
     for i := 0 to high(FData) do
         for j := 0 to high(FData[i]) do
             if (i=0)or(j=0)or(i=high(FData))or(j=high(FData[i])) then
             begin
                {
                 momentan noch leer.
                 }
             end else
             begin
 
                P0[0] := (FData[i,j].x*SFactor);
                P0[1] := FData[i,j].y*HFactor;
                P0[2] := (FData[i,j].z*SFactor);
 
                P1[0] := (FData[i,j].x*SFactor)-(SFactor/2);
                P1[1] := (FData[i-1,j-1].y*HFactor)+(FData[i-1,j].y*HFactor)+(FData[i,j].y*HFactor)+(FData[i,j-1].y*HFactor);
                P1[1] := P1[1]/4;
                P1[2] := (FData[i,j].z*SFactor)-(SFactor/2);
 
                P2[0] := (FData[i,j].x*SFactor)-(SFactor/2);
                P2[1] := (FData[i+1,j-1].y*HFactor)+(FData[i+1,j].y*HFactor)+(FData[i,j].y*HFactor)+(FData[i,j-1].y*HFactor);
                P2[1] := P2[1]/4;
                P2[2] := (FData[i,j].z*SFactor)+(SFactor/2);
 
                P3[0] := (FData[i,j].x*SFactor)+(SFactor/2);
                P3[1] := (FData[i+1,j+1].y*HFactor)+(FData[i+1,j].y*HFactor)+(FData[i,j].y*HFactor)+(FData[i,j+1].y*HFactor);
                P3[1] := P3[1]/4;
                P3[2] := (FData[i,j].z*SFactor)+(SFactor/2);
 
                P4[0] := (FData[i,j].x*SFactor)+(SFactor/2);
                P4[1] := (FData[i-1,j+1].y*HFactor)+(FData[i-1,j].y*HFactor)+(FData[i,j].y*HFactor)+(FData[i,j+1].y*HFactor);
                P4[1] := P4[1]/4;
                P4[2] := (FData[i,j].z*SFactor)-(SFactor/2);
 
                Inc(TriAnz);
                setLength(TriArray,TriAnz);
 
                New(TriArray[TriAnz-1][0]);
                New(TriArray[TriAnz-1][1]);
                New(TriArray[TriAnz-1][2]);
 
                // 1. Dreieck
                N := CalcNormalVector(P0,P1,P2);
 
                TriArray[TriAnz-1][0]^.Pos := P0;
                TriArray[TriAnz-1][0]^.N   := N;
                TriArray[TriAnz-1][1]^.Pos := P1;
                TriArray[TriAnz-1][1]^.N   := N;
                TriArray[TriAnz-1][2]^.Pos := P2;
                TriArray[TriAnz-1][2]^.N   := N;
 
                Inc(TriAnz);
                setLength(TriArray,TriAnz);
 
                New(TriArray[TriAnz-1][0]);
                New(TriArray[TriAnz-1][1]);
                New(TriArray[TriAnz-1][2]);
 
                // 2. Dreieck
                N := CalcNormalVector(P0,P2,P3);
 
                TriArray[TriAnz-1][0]^.Pos := P0;
                TriArray[TriAnz-1][0]^.N   := N;
                TriArray[TriAnz-1][1]^.Pos := P2;
                TriArray[TriAnz-1][1]^.N   := N;
                TriArray[TriAnz-1][2]^.Pos := P3;
                TriArray[TriAnz-1][2]^.N   := N;
 
                Inc(TriAnz);
                setLength(TriArray,TriAnz);
 
                New(TriArray[TriAnz-1][0]);
                New(TriArray[TriAnz-1][1]);
                New(TriArray[TriAnz-1][2]);
 
                // 3. Dreieck
                N := CalcNormalVector(P0,P3,P4);
 
                TriArray[TriAnz-1][0]^.Pos := P0;
                TriArray[TriAnz-1][0]^.N   := N;
                TriArray[TriAnz-1][1]^.Pos := P3;
                TriArray[TriAnz-1][1]^.N   := N;
                TriArray[TriAnz-1][2]^.Pos := P4;
                TriArray[TriAnz-1][2]^.N   := N;
 
                Inc(TriAnz);
                setLength(TriArray,TriAnz);
 
                New(TriArray[TriAnz-1][0]);
                New(TriArray[TriAnz-1][1]);
                New(TriArray[TriAnz-1][2]);
 
                // 4. Dreieck
                N := CalcNormalVector(P0,P4,P1);
 
                TriArray[TriAnz-1][0]^.Pos := P0;
                TriArray[TriAnz-1][0]^.N   := N;
                TriArray[TriAnz-1][1]^.Pos := P4;
                TriArray[TriAnz-1][1]^.N   := N;
                TriArray[TriAnz-1][2]^.Pos := P1;
                TriArray[TriAnz-1][2]^.N   := N;
 
             end;
end;

folgendes passiert:

1. Es dauert ewig bis eine 512x512 Highmap durchläuft!
2. Es läuft nicht durch, da ein RunOutOfMemory Fehler auftritt!!!

Also ich bin bisl verblüfft denn, die Funktion basiert direkt auf der Zeichenfunktion für die Highmap. Ich hab eigentlich nur den Triangle_Fan ersetzt:

Code:

procedure CHightMap.Render;
var i,j   : integer;
    P1,P2,P3,P4,P0,N : TGLArrayf3;
begin
     for i := 0 to high(FData) do
         for j := 0 to high(FData[i]) do
             if (i=0)or(j=0)or(i=high(FData))or(j=high(FData[i])) then
             begin
                glNormal3f(0,1,0);
                glBegin(GL_TRIANGLE_FAN);
 
                ....
                ....
 
                glEnd;
             end else
             begin
 
                P0[0] := (FData[i,j].x*SizeFactor);
                P0[1] := FData[i,j].y*HightFactor;
                P0[2] := (FData[i,j].z*SizeFactor);
 
                P1[0] := (FData[i,j].x*SizeFactor)-(SizeFactor/2);
                P1[1] := (FData[i-1,j-1].y*HightFactor)+(FData[i-1,j].y*HightFactor)+(FData[i,j].y*HightFactor)+(FData[i,j-1].y*HightFactor);
                P1[1] := P1[1]/4;
                P1[2] := (FData[i,j].z*SizeFactor)-(SizeFactor/2);
 
                P2[0] := (FData[i,j].x*SizeFactor)-(SizeFactor/2);  
                P2[1] := (FData[i+1,j-1].y*HightFactor)+(FData[i+1,j].y*HightFactor)+(FData[i,j].y*HightFactor)+(FData[i,j-1].y*HightFactor);
                P2[1] := P2[1]/4;
                P2[2] := (FData[i,j].z*SizeFactor)+(SizeFactor/2);
 
                P3[0] := (FData[i,j].x*SizeFactor)+(SizeFactor/2);
                P3[1] := (FData[i+1,j+1].y*HightFactor)+(FData[i+1,j].y*HightFactor)+(FData[i,j].y*HightFactor)+(FData[i,j+1].y*HightFactor);
                P3[1] := P3[1]/4;
                P3[2] := (FData[i,j].z*SizeFactor)+(SizeFactor/2);
 
                P4[0] := (FData[i,j].x*SizeFactor)+(SizeFactor/2); 
                P4[1] := (FData[i-1,j+1].y*HightFactor)+(FData[i-1,j].y*HightFactor)+(FData[i,j].y*HightFactor)+(FData[i,j+1].y*HightFactor);
                P4[1] := P4[1]/4;
                P4[2] := (FData[i,j].z*SizeFactor)-(SizeFactor/2);
 
                glBegin(GL_TRIANGLE_FAN);
                  glColor3f(FData[i,j].y,FData[i,j].y,FData[i,j].y);
 
                  N := CalcNormalVector(P0,P1,P2);
                  glNormal3fv(@N[0]);
                  glVertex3fv(@P0[0]);
                  glVertex3fv(@P1[0]);
                  glVertex3fv(@P2[0]);
                  N := CalcNormalVector(P0,P2,P3);
                  glNormal3fv(@N[0]);
                  glVertex3fv(@P3[0]);
                  N := CalcNormalVector(P0,P3,P4);
                  glNormal3fv(@N[0]);
                  glVertex3fv(@P4[0]);
                  N := CalcNormalVector(P0,P4,P1);
                  glNormal3fv(@N[0]);
                  glVertex3fv(@P1[0]);
                glEnd;
             end;
end;

Hat einer von euch ne Idee wies zu dem OutOfMemory Fehler kommen kann. Wo ist das Loch?

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: Google [Bot] und 8 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.