DGL • Thema anzeigen - Terrain Rendern

Terrain Rendern

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Hering

Betreff des Beitrags: Terrain Rendern

Verfasst: Mo Okt 10, 2011 11:45

DGL Member

Registriert: Mo Okt 10, 2011 10:17
Beiträge: 5

Hallo erstmal,
ich habe folgendes Problem:
Ich habe mir die (sehr guten) Tutorials hier zum Thema "Terrain Rendern mit OpenGl" durchgelesen und wollte mir jetzt ein eigenes Programm schreiben.
Dieses sieht folgendermaßen aus:
http://imageshack.us/photo/my-images/854/terrainrendering.jpg/

Die Perlin-Noise-Map-Generierung funktioniert auch tadellos, aber wenn er das Terrain rendern will, kommt folgender Fehler:
http://imageshack.us/photo/my-images/513/errorln.jpg/

Und ich habe keine Ahnung wieso dieser Fehler auftritt.
Die Prozeduren, in denen der Fehler meiner Meinung nach auftreten kann sind diese hier:

Code:

procedure TF_TerrainRendering.SetupGL;
const light_position : array[0..3] of TGLfloat = (-1.0, 1.0, 1.0, 0.0);
      mat_specular   : array[0..3] of TGLfloat = (0.1, 0.1, 0.1, 1.0);
      mat_shininess  : array[0..0] of TGLfloat = (0.0);
      mat_ambient    : array[0..3] of TGLfloat = (0.7, 0.7, 0.7, 0.0);
      mat_diffuse    : array[0..3] of TGLfloat = (0.8, 0.8, 0.8, 0.0);
begin
glClearColor(0.1, 0.1, 0.1, 0.1);                                               
glEnable(GL_DEPTH_TEST);
glEnable(gl_Cull_Face);
glCullface(GL_Back);
glEnable(GL_TEXTURE_2D);
glShadeModel(GL_SMOOTH);
glMaterialfv(GL_FRONT, GL_SPECULAR, @mat_specular[0]);
glMaterialfv(GL_FRONT, GL_SHININESS, @mat_shininess[0]);
glMaterialfv(GL_FRONT, GL_AMBIENT, @mat_ambient[0]);
glMaterialfv(GL_FRONT, GL_DIFFUSE, @mat_diffuse[0]);
glLightfv(GL_LIGHT0, GL_POSITION, @light_position[0]);
glEnable(GL_LIGHTING);
glEnable(GL_LIGHT0);
end;
 
procedure TF_TerrainRendering.IdleHandler(Sender: TObject; var Done: Boolean);
begin
Render;
Done:= false;
end;
 
procedure TF_TerrainRendering.Render;
begin
Dreiecke := 0;
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45.0, 1, NearClipping, FarClipping);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
glRotatef(XRotation, 1, 0, 0);
glRotatef(YRotation, 0, 1, 0);
glPushAttrib(GL_LIGHTING);
glPopAttrib();
glClear(GL_DEPTH_BUFFER_BIT);
glTranslatef(-256, -200, -256);
if IsLoaded and IsHeightmap then u_Rendering.ZeichneHeightmap(Aufloesung, Dreiecke)
 else if (not IsLoaded) and IsHeightmap then
         begin
         u_Rendering.LadeHeightmap(Aufloesung);
         IsLoaded := true;
         end;
SwapBuffers(DC);
end;
 
procedure TF_TerrainRendering.FormCreate(Sender: TObject);
begin
YRotation := 0;
XRotation := 0;
IsLoaded := false;
IsHeightmap := false;
Aufloesung := TrB_MapResolution.Position;
NearClipping := TrB_NearCLipping.Position;
FarClipping := TrB_FarClipping.Position;
u_PerlinNoise.Abstand := TrB_Intervall.Position;
DC:= GetDC(Pnl_Terrain.Handle);
if not InitOpenGL then Application.Terminate;
RC:= CreateRenderingContext(DC,[opDoubleBuffered],32,24,0,0,0,0);
ActivateRenderingContext(DC, RC);
SetupGL;
Application.OnIdle := IdleHandler;
end;
procedure TF_TerrainRendering.Btn_GenHeightmapClick(Sender: TObject);
begin
IsLoaded := false;
IsHeightmap := false;
u_PerlinNoise.Blur(u_PerlinNoise.Laenge, u_PerlinNoise.Abstand);                // Heightmap aufbauen
Img_Heightmap.Picture.Bitmap := u_PerlinNoise.Heightmap;                        // Heightmap zeichnen
Btn_SaveHeightmap.Enabled := true;
IsHeightmap := true;
end;

Da der Code ein bisschen zu lang ist um ihn hier zu posten, hänge ich das ganze Projekt hier an.
Ich hoffe es kann mir jemand helfen.

mfg
Hering

Projekt: http://www.megaupload.com/?d=MGI5FJWN

Nach oben

Coolcat

Betreff des Beitrags: Re: Terrain Rendern

Verfasst: Mo Okt 10, 2011 17:26

DGL Member

Registriert: Do Dez 29, 2005 12:28
Beiträge: 2249
Wohnort: Düsseldorf
Programmiersprache: C++, C#, Java

Der Fehler "Zugriffsverletzung" bedeutet das dein Programm auf Speicher zugreift der nicht zum Programm gehört. In aller Regel wurde irgendetwas nicht oder nicht richtig initialisiert. Am besten lässt du dein Programm mal im Debugger laufen, dann hast du schnell die exakte Stelle an der das Programm abstürzt. Ein Debugger ist in Delphi (und bestimmt auch in Lazarus) eingebaut.

P.S. Willkommen im Forum

_________________
Yeah! :mrgreen:

Nach oben

Hering

Betreff des Beitrags: Re: Terrain Rendern

Verfasst: Mo Okt 10, 2011 22:16

DGL Member

Registriert: Mo Okt 10, 2011 10:17
Beiträge: 5

Hallo,
Danke für das Willkommen-Heißen (und natürlich für den Hinweis)

Ich weiß nicht ob ich das richtig gemacht habe mit dem Debuggen(hab damit gar keine Erfahrung, ich musste bis jetzt lediglich Haltepunkte setzen können..)
Daher kommt mir auch die Ausgabe des Debuggers merkwürdig vor: E2156 Ausdruck zu komplex
Und zwar in dem unten angegebenen Codeblock bei der if Anweisung

Code:

if IsLoaded and IsHeightmap then u_Rendering.ZeichneHeightmap(Aufloesung, Dreiecke)
 else if (not IsLoaded) and IsHeightmap then
         begin
         u_Rendering.LadeHeightmap(Aufloesung);
         IsLoaded := true;
         end;

Das kann ja wohl nicht alles sein oder?

mfg
Hering

//EDIT
Wenn ich das Programm oft genug ausführe, läuft es sogar ohne Fehler^^
Aber ich habe nichts geändert, nur stur F9 gedrückt
mfg
Hering

Nach oben

Hering

Betreff des Beitrags: Re: Terrain Rendern

Verfasst: Di Okt 11, 2011 11:26

DGL Member

Registriert: Mo Okt 10, 2011 10:17
Beiträge: 5

Hallo,

Okay der Fehler liegt anscheinend wirklich irgendwo hier versteckt:

Code:

procedure TF_TerrainRendering.IdleHandler(Sender: TObject; var Done: Boolean);
begin
if IsHeightmap = true then
   begin
   if IsLoaded = true then Render
    else
      begin
      u_Rendering.LadeHeightmap(Aufloesung);
      IsLoaded := true;
      end;
   end;
Done:= false;
end;

Die Prozedur für Render:

Code:

procedure TF_TerrainRendering.Render;
begin
Dreiecke := 0;
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45.0, 1, NearClipping, FarClipping);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
glRotatef(XRotation, 1, 0, 0);
glRotatef(YRotation, 0, 1, 0);
glPushAttrib(GL_LIGHTING);
glPopAttrib();
glClear(GL_DEPTH_BUFFER_BIT);
glTranslatef(-256, -200, -256);
u_Rendering.ZeichneHeightmap(Aufloesung, Dreiecke);
SwapBuffers(DC);
end;

Die Prozedur für ZeichneHeightmap:

Code:

procedure ZeichneHeightmap(Aufloesung : SmallInt; Dreiecke : LongInt);
const VertPos : Array[0..3] of Array[0..1] of Byte = ((0,0),(0,1),(1,1),(1,0));
var X, Z, I   : LongInt;
    Vertieces : Array[0..3] of TVertex;
 
    procedure ZeichneDreiecke(V1, V2, V3 : Integer);
    var Normale : TVertex;
    begin
    Inc(Dreiecke);
    Normale := VectorCrossProduct(                                              //Flächennormale berechnen
                     VectorSubtract(Vertieces[V1], Vertieces[V2]),
               VectorSubtract(Vertieces[V2], Vertieces[V3]));
    NormalizeVector(Normale);
    glNormal3fv(@Normale[0]);                                                   //Dreieck zeichnen
    glBegin(GL_TRIANGLES);
    glVertex3fv(@Vertieces[V1][0]);
    glVertex3fv(@Vertieces[V2][0]);
    glVertex3fv(@Vertieces[V3][0]);
    glEnd()
    end;
 
begin
for X := 0 to Aufloesung-1 do
    for Z := 0 to Aufloesung-1 do
        begin
        for I := 0 to 3 do                                                      //Alle Vertieces erzeugen
            begin
            Vertieces[I][0] := (X + VertPos[I][0])/Aufloesung*Mapgroesse;
            Vertieces[I][2] := (Z + VertPos[I][1])/Aufloesung*Mapgroesse;
            Vertieces[I][1] := MapDaten[X + VertPos[I][0],Z + VertPos[I][1]];
            end;
        ZeichneDreiecke(0,1,3);
        ZeichneDreiecke(1,2,3);
        end;
end;

Und die Prozedur für LadeHeightmap:

Code:

procedure LadeHeightmap(Aufloesung : SmallInt);
var Bmp  : TBitMap;
    X, Z : LongInt;
begin
SetLength(MapDaten, Aufloesung, Aufloesung);                                    //type TMapDaten = Array of Array of SmallInt;
Bmp := TBitMap.Create;
try
  Bmp := u_PerlinNoise.Heightmap;
  for X := Low(MapDaten) to High(MapDaten) do                                   //Bitmap in MapDaten laden...
      for Z := Low(MapDaten) to High(MapDaten) do
          MapDaten[X,Z] := Trunc(Bmp.Canvas.Pixels
                                 [Trunc(X/Aufloesung*Bmp.Width),
                                 Trunc(Z/Aufloesung*Bmp.Height)]
                                 / clWhite * 255);
 except
   MessageDlg('Fehler beim Laden der Heightmap', mtError, [mbOk], 0);
 end;
Bmp.Free;
end;

Kann mir vllt. jemand noch einen Tipp geben woran es liegen könnte?

mfg
Hering

//Edit
Okay, manchmal sieht man den Wald vor lauter Bäumen nicht.
Der Fehler lag in der Zeile

Code:

SetLength(MapDaten, Aufloesung, Aufloesung);

in der Prozedur LadeHeightmap. Da ich ja beim Laden von 0 bis Aufloesung gehe, muss ich bei SetLength() als Größe Aufloesung+1 angeben...
Hoffe mal das waren erstmal alle Fehler.

mfg
Hering

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 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.