DGL • Thema anzeigen - Texturieren eines per gluTessVertex erzeugten Polygons

Texturieren eines per gluTessVertex erzeugten Polygons

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

kraenzel

Betreff des Beitrags: Texturieren eines per gluTessVertex erzeugten Polygons

Verfasst: Mo Dez 11, 2006 17:33

DGL Member

Registriert: Do Dez 07, 2006 01:49
Beiträge: 2
Wohnort: Rosenheim

Hallo zusammen.

Ich schreibe gerade ein kleines CAD-Programm, in dem man mehrere Linien auswählen kann,
um dann aus den Punkten der Linien ein Polygon zu erzeugen.
Das Polygon erzeuge ich über gluTessVertex(..) und das funktioniert soweit ganz gut.
Mein Problem besteht darin, dass ich das Polygon gerne texturieren würde, das aber nicht
hinbekomme.
Der auskommentierte Teil am Ende der Tesselate-Methode zeichnet einen texturierten triangle_fan
mit den gleichen Werten, die mir das gtVertex3f-Callback liefert. (Das waren ursprünglich 2 Linien,
die jeweils den Ursprung als Punkt besessen haben. Deswegen sind es vier Punkte.)
Was ich jetzt nicht verstehe warum das ganze nicht schon im gtVertex3f-Callback funktioniert
-> hier wird zwar das Polygon gezeichnet aber ohne Textur.

Kann mir jemand sagen was ich da falsch mache?

Danke schonmal im Voraus.

Gruß Mathias

Code:

procedure TOGLPoly.Tesselate;
var
 n : integer;
 GLArrayd3: TGLArrayd3;
 GluObj: PGLUtesselator;
 myPointList: array of TGLArrayf3;
 I: Integer;
 p : T3DPoint;
begin
  n := points.Count;
  TessCount := n;
  // Definition eines nicht-konvexen Objektes
  SetLength(myPointList, n);
  for I := 0 to n-1 do
  begin
    p := T3DPoint(points[i]);
    myPointList[I][0] := p.X;
    myPointList[I][1] := p.Y;
    myPointList[I][2] := p.Z;
  end;
 
  // links unten und rechts oben, höhe, breite berechnen
  CalculateMinMax();
 
  // Display-List erstellen
  myPolygon := glGenLists(1);
  glNewList(myPolygon, GL_COMPILE);
  glLoadName(_name);
  // Tess-Objekt
  GluObj := gluNewTess;
 
  //callbacks definieren
  gluTessCallback(GluObj, GLU_TESS_VERTEX, @gtVertex3f);
  gluTessCallback(GluObj, GLU_TESS_BEGIN, @glBegin);
  gluTessCallback(GluObj, GLU_TESS_END, @glEnd);
 
  gluTessBeginPolygon(GluObj, nil);
  gluTessBeginContour(GluObj);
 
  //textur vorbereiten
  glMatrixMode(gl_TEXTURE);
    glLoadIdentity;
  glMatrixMode(gl_MODELVIEW);
  glEnable(GL_TEXTURE_2D);
  glBindTexture(GL_TEXTURE_2D, tex);
 
  glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER, GL_LINEAR);
  glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER, GL_LINEAR);
 
  for I := 0 to length(myPointList)-1 do
  begin
    GLArrayd3[0] := myPointList[I][0];
    GLArrayd3[1] := myPointList[I][1];
    GLArrayd3[2] := myPointList[I][2];
 
    gluTessVertex(GluObj, GLArrayd3, @myPointList[I]);
  end;
 
//  glBegin(GL_TRIANGLE_FAN);
//    glTexCoord2f(0.5,1); glVertex3f( 0.5, 1.0, 0.0);
//    glTexCoord2f(0,0); glVertex3f(0.0, 0.0, 0);
//    glTexCoord2f(0,0); glVertex3f(0.0, 0.0, 0);
//    glTexCoord2f(1,0); glVertex3f(1,0.0, 0.0);
//  glend();
 
  glDisable(GL_TEXTURE_2D);
 
  gluTessEndContour(GluObj);
  gluTessEndPolygon(GluObj);
 
  glEndList;
  gluDeleteTess(GluObj);
end;

Code:

procedure gtVertex3f(Vertex: Pointer); stdcall;
var
  x,y : TGLfloat;
  r : ^TGLVectorf3;
begin
  r := Vertex;
  x := r[0];
  y := r[1];
 
  u := x - (min_x * u_per_x);
  v := y - (min_y * v_per_y);
 
  glTexCoord2f(u , v);
  glVertex3fv(vertex);
end;

Nach oben

kraenzel

Betreff des Beitrags:

Verfasst: Di Dez 12, 2006 09:46

DGL Member

Registriert: Do Dez 07, 2006 01:49
Beiträge: 2
Wohnort: Rosenheim

Hat sich erledigt. Ich hab für das GLU_TESS_BEGIN-Callback auch eine eigene Funktion
schreiben müssen, die dann die Texturbefehle aufruft.

Nach oben

dj3hut1

Betreff des Beitrags:

Verfasst: Di Dez 12, 2006 09:59

DGL Member

Registriert: Di Dez 27, 2005 12:44
Beiträge: 393
Wohnort: Berlin
Programmiersprache: Java, C++, Groovy

Hallo kraenzel,

gluTessBeginPolygon(GluObj, nil) generiert ein glBegin, dass heisst du darfst danach z.B. kein glEnable(GL_TEXTURE_2D) aufrufen (das führt zu einem internen OpenGL-Fehler und der Befehl wird nicht ausgeführt)

Versuche mal Zeile 40 bis 48 vor gluTessBeginPolygon(GluObj, nil); zu packen.

Viele Grüße
dj3hut1

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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