DGL • Thema anzeigen - 3D Map aus 2D Textmap

3D Map aus 2D Textmap

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Ubivis

Betreff des Beitrags: 3D Map aus 2D Textmap

Verfasst: So Mai 06, 2007 20:10

DGL Member

Registriert: So Mai 06, 2007 16:20
Beiträge: 2
Wohnort: Hamburg

Hi, ich bin absoluter neuling in OpenGL, aber habe schon so einiges mit DelphiX gemacht. Leider schon viel zu lange nicht mehr und daher hänge ich derzeit an 2 Problemen:

Problem 1:

Ich habe eine Textdatei in welcher sich eine 2-Dimensionale Karte verbirgt:

1 1 1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 0 0 1
1 1 1 1 0 0 1 1 1 1
1 1 0 0 0 1 1 1 1 1
1 0 0 0 0 0 0 0 0 1
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1

1 = Wand
0 = Leer (Ein Boden wird dargestellt)...

für Wände und Böden habe ich mir prozeduren geschrieben um diese variabel zu erstellen. nur irgendwie sieht die generierte Karte alles andere also nach dem aus, wie es aussehen soll.

Code:

 
procedure TForm2.Ground(var x, z: integer);
begin
 glBindTexture(GL_TEXTURE_2D, TexID2);
 glEnable(GL_TEXTURE_2D);
 glBegin(GL_QUADS);
   glTexCoord2f(0,0); glVertex3d((x*2)+0,0,(z*2)+0);
   glTexCoord2f(0,1); glVertex3d((x*2)+0,0,(z*2)+2);
   glTexCoord2f(1,1); glVertex3d((x*2)+2,0,(z*2)+2);
   glTexCoord2f(1,0); glVertex3d((x*2)+2,0,(z*2)+0);
 glEnd();
end;
 
procedure TForm2.Mauer(var x, z, links, rechts, vorn, hinten:integer);
begin
 if (vorn = 0) then
 begin
 glBindTexture(GL_TEXTURE_2D, TexID);
 glEnable(GL_TEXTURE_2D);
 glBegin(GL_QUADS);
   glTexCoord2f(0,0); glVertex3d((x*2)+0,0,(z*2)+2);
   glTexCoord2f(0,1); glVertex3d((x*2)+0,2,(z*2)+2);
   glTexCoord2f(1,1); glVertex3d((x*2)+2,2,(z*2)+2);
   glTexCoord2f(1,0); glVertex3d((x*2)+2,0,(z*2)+2);
 glEnd();
 end;
 if (hinten = 0) then
 begin
 glBindTexture(GL_TEXTURE_2D, TexID);
 glEnable(GL_TEXTURE_2D);
 glBegin(GL_QUADS);
   glTexCoord2f(0,0); glVertex3d((x*2)+0,0,(z*2)+0);
   glTexCoord2f(0,1); glVertex3d((x*2)+0,2,(z*2)+0);
   glTexCoord2f(1,1); glVertex3d((x*2)+2,2,(z*2)+0);
   glTexCoord2f(1,0); glVertex3d((x*2)+2,0,(z*2)+0);
 glEnd();
 end;
 if (links = 0) then
 begin
 glBindTexture(GL_TEXTURE_2D, TexID);
 glEnable(GL_TEXTURE_2D);
 glBegin(GL_QUADS);
   glTexCoord2f(0,0); glVertex3d((x*2)+0,0,(z*2)+0);
   glTexCoord2f(0,1); glVertex3d((x*2)+0,2,(z*2)+0);
   glTexCoord2f(1,1); glVertex3d((x*2)+0,2,(z*2)+2);
   glTexCoord2f(1,0); glVertex3d((x*2)+0,0,(z*2)+2);
 glEnd();
 end;
 if (rechts = 0) then
 begin
 glBindTexture(GL_TEXTURE_2D, TexID);
 glEnable(GL_TEXTURE_2D);
 glBegin(GL_QUADS);
   glTexCoord2f(0,0); glVertex3d((x*2)+2,0,(z*2)+0);
   glTexCoord2f(0,1); glVertex3d((x*2)+2,2,(z*2)+0);
   glTexCoord2f(1,1); glVertex3d((x*2)+2,2,(z*2)+2);
   glTexCoord2f(1,0); glVertex3d((x*2)+2,0,(z*2)+2);
 glEnd();
 end;
 
end;
 

um resourcen zu sparen, werden auch nur die Wände dargestellt, die man auch wirklich sehen könnte im Level.

Aufgerufen werden die Prozeduren folgendermaßen:

Code:

 
for i := 0 to sizex-1 do
 begin
   for j := 0 to sizey-1 do
   begin
     glTranslatef(0,0,0);
     if (map[i,j] = 0) then
     begin
       Ground(i,j);
     end;
     if (map[i,j] = 1) then
     begin
      links := 0;
      rechts := 0;
      vorn := 0;
      hinten := 0;
      if (i > 0) then
      begin
        if (map[i-1,j] = 1) then links := 1;
      end else
      begin
        links := 1;
      end;
      if (i < sizex -1) then
      begin
        if (map[i+1,j] = 1) then rechts := 1;
      end else
      begin
        rechts := 1;
      end;
      if (j > 0) then
      begin
        if (map[i,j-1] = 1) then vorn := 1;
      end else
      begin
        vorn := 1;
      end;
      if (j < sizey) then
      begin
        if (map[i,j+1] = 1) then hinten := 1;
      end else
      begin
        hinten := 1;
      end;
      Mauer(i, j, links, rechts, vorn, hinten);
     end;
   end;
 end;
 SwapBuffers(DC);
 

Den Code kann man zwar sicher auch einfacher ausführen, aber für mich reicht es erst einmal.

Problem 2:

beim Beenden des Programms wird seit kurzem ein schwerer Ausnahmefehler ausgeführt, ich finde es einfach nicht heraus, an welcher Zeile es liegen könnte... darum werde ich einfach mal meinen Quellcode als Attachment anhängen, vielleicht hat ja einer Zeit und sieht sich das mal an und kann danach einem neuling erklären, was dieser neuling nicht so richtig auf die Reihe bekommen hat

Danke schön

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Finalspace

Betreff des Beitrags: e w

Verfasst: Mo Mai 07, 2007 16:23

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Hab mir mal den src angeschaut, also wenn ich das ding so kompiliere wie es ist.
Seh ich nur nen Graues bild O_o

Wenn ich deine ersten Matrix verschiebung (glTranslate) ändere, auf z.b. glTranslate(0,0,-4) dann seh ich ein grünes grassiges rechteck vor mir.

Du hast globale variablen, benannt x,y,z... hast aber auch als Parameter x,z in Mauer und Ground.
Da solltest du zumindest, die parameter in Mauer und Ground ändern, in i, j oder so...

Wozu ist dieses *2 immer ?

For schleifen technisch würde ich dir empfehlen von Y zu X durchzugehen.

For Y := 0 to SizeY-1 do
begin
For X := 0 to SizeX-1 do
begin
end;
end;

Ok, am ende noch bei Destroy... hast du glDeleteTextures vergessen, du solltest schon die 2 Texturen freigeben am ende die du verwendest.
Allerdings löst das nicht das Fehler problem am ende.

Im grunde um das Fehler problem zu fixen, Ausgrenzen bis du den fehler gefunden hast, und wenn du Später nur noch ne Formcreatest ohne was zu machen und der fehler kommt... dann stimmt was an den libs nicht...

Nach oben

Ubivis

Betreff des Beitrags:

Verfasst: Mo Mai 07, 2007 16:29

DGL Member

Registriert: So Mai 06, 2007 16:20
Beiträge: 2
Wohnort: Hamburg

Hi, danke für deine Hilfen...

also das graue Bild liegt daran, dass ich noch keinen richtigen Startpunkt gesetzt habe, man fängt ein wenig links und unterhalb der Map an... einfach paar schritte zurück gehen und dann mit PageUp nach oben fliegen

das mit den Variablen ist gut, ist mir gar nicht aufgefallen... wohl zu müde gewesen.

*2, da die Mauern und Grounds eine länge und Breite von 2 haben, so muss also der z.B. x-Wert verdoppelt werden, damit das nächste Mauernstück nicht in dem vorherigen platziert wird

Werde mal die Anmerkungen befolgen und schauen ob es was bewirkt.

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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