DGL • Thema anzeigen - gluTessBeginPolygon und Dreicke auslesen...

gluTessBeginPolygon und Dreicke auslesen...

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

bomberbb

Betreff des Beitrags: gluTessBeginPolygon und Dreicke auslesen...

Verfasst: Do Nov 08, 2007 16:09

DGL Member

Registriert: Di Sep 28, 2004 15:46
Beiträge: 54

Hallo,

will das, was ich in OpenGLzeichne auch als DXF ausgeben. Nun hab ich das Problem, dass bei Polygonen eine Triangulierung notwendig ist.
Nun nutze ich in meinem Prog gluTessBeginPolygon & Co und hab mir gedacht, ich könnte einfach die Punkte im Callback rausschreiben. Nun weiß ich aber nicht, was die Punkte mir sagen sollen. Ist das ein TriangleStripe? wie komme ich an die wirklichen Dreiecke? kann mir da wer helfen???

Code:

 
Procedure TTriForm.MemoDblClick(Sender : TObject);
 
Var
  CombineArray                     : Array Of TVector3D;
  tess                             : PGLUTesselator;
  //================================================
  //Begin der CallbackFunktionen
  //================================================
 
  Procedure tcberror(errno : TGLEnum); Stdcall;
  Begin
    //    Assert(False, IntToStr(errno) + ' : ' + gluErrorString(errno));
  End;
 
  Procedure tessVertex(vertexData : Pointer); Stdcall;
  Var
    Punkt                          : ^TVector3D;
    str                            : widestring;
  Begin
    {Hier wird dem Vertexpunkt, die Texturkoordiante übergeben. Die Procedure funktioniert aber nur richtig in
    Verbindung mit Linietyp für Spindel, da in dem selbstdeninierten Typ, die UV-Koordianten mit beinhaltet sein
    müssen, da man sonst darauf nicht zugreifen kann.}
    Punkt := Vertexdata;
    str := floattostrf(Punkt^[0], ffFixed, 9, 2) + ' ' + floattostrf(Punkt^[1], ffFixed, 9, 2) + ' ' +
      floattostrf(Punkt^[2], ffFixed, 9, 2);
    TriForm.Memo.Lines.add(str);
  End;
 
  Procedure tessCombine(Coords : TVector3d;VertexData : TVector4p;Weight : TVector4f;Var OutData : PPointer); Stdcall;
    {In dieser Procedure muss bearbeitet werden, wie bei der Tesselation mit Geradenüberschneidungen verfahren wird.
      Dann sollte ein neuer Punkt erstellt werden und diesem neue Texturkoordinaten übergeben werden.}
  Type
    pOGLPunkt = ^TVector3D;
  Var
    Arrayhigh                      : integer;
    Punkt1                         : pOGLPunkt;
    Punkt2                         : pOGLPunkt;
    Zahl                           : Real;
  Begin
    Arrayhigh := Length(CombineArray);
    setlength(CombineArray, Arrayhigh + 1);
 
    CombineArray[Arrayhigh] := Coords;
    OutData := @CombineArray[Arrayhigh];
  End;
  //================================================
  //Ende CallbackFunktionen
  //================================================
Var
  pkt                              : Array Of TVector3D;
 
  Procedure pktAdd(x, y : double);
  Var
    h                              : Integer;
  Begin
    h := length(pkt);
    setlength(pkt, h + 1);
    pkt[h, 0] := x;
    pkt[h, 1] := y;
    pkt[h, 2] := 0;
    gluTessVertex(tess, pkt[h], @pkt[h]);
  End;
Begin
  Memo.Lines.clear;
  tess := gluNewTess;
  gluTessCallback(tess, GLU_TESS_BEGIN, @glBegin);
  gluTessCallback(tess, GLU_TESS_VERTEX, @tessVertex);
  gluTessCallback(tess, GLU_TESS_END, @glEnd);
  gluTessCallback(tess, GLU_TESS_ERROR, @tcberror);
  gluTessCallback(tess, GLU_TESS_COMBINE, @tessCombine);
 
  gluTessBeginPolygon(tess, Nil);
  gluTessBeginContour(tess);
 
  pktAdd(0, 0);
  pktAdd(10, 0);
  pktAdd(8, 5);
  pktAdd(13, 5);
  pktAdd(12, 0);
  pktAdd(20, 0);
  pktAdd(20, 20);
  pktAdd(0, 20);
  pktAdd(0, 10);
  pktAdd(5, 12);
  pktAdd(5, 7);
  pktAdd(0, 8);
 
  gluTessEndContour(tess);
  gluEndPolygon(tess);
  gluDeleteTess(tess);
  setlength(CombineArray, 0);
End;

Nach oben

bomberbb

Betreff des Beitrags:

Verfasst: Do Nov 08, 2007 16:48

DGL Member

Registriert: Di Sep 28, 2004 15:46
Beiträge: 54

Ich weiß Asche auf mein Haupt, erst im Forum suchen, dann ins Forum schreiben. Hab ich zwar gemacht, aber das Passende erst nach dem Schreiben gefunden.

Es gibt schon einen Beitrag, bei dem das beantwortet wird: "OpenGL-Tesselation-Ergebnis weiterverwenden?"

sorry...

Nach oben

bomberbb

Betreff des Beitrags:

Verfasst: Mo Nov 12, 2007 12:16

DGL Member

Registriert: Di Sep 28, 2004 15:46
Beiträge: 54

Nun kann ich als kleine Entschuldigung wenigstens mal mein Testprog zu diesem Problem posten.

Gruß

Sascha

[edit]
Habe die Anlage mal noch geändert. Hatte zweckes Speicherfreigabe vorher ein dynamisches Array in tesscombine benutzt. Das klappte nicht so wirklich, da bei setlength die Adressen der Elemente von Delphi verändert werden können.
[/edit]

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

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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