1:
2:
3:

glBegin(GL_POLYGON);
glVertex2f(x,y); //für jeden Punkt)
glEnd;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

glBegin(GL_POLYGON);

  for i := 0 to high(coords)-1 do
  begin

    glVertex2f(coords[i].X, coords[i].y); //für jeden Punkt)

  end;

glEnd;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

gluTessBeginPolygon(tobj, NULL);
  gluTessBeginContour(tobj);

  for i := 0 to high(coords)-1 do  
  begin  

    gluTessVertex(tobj, coords[i].X, coords[i].y);

  end;

  gluTessEndContour(tobj);
gluTessEndPolygon(tobj);					

1:

function gluNewTess : PGLUtesselator;					

1:
2:
3:
4:
5:
6:
7:

 
      tess := gluNewTess();

      // Callbacks festlegen 
      gluTessCallback (tess, GLU_TESS_BEGIN, tcbBegin);   // <- alles undefiniert, was muss tcbBegin etc. sein?
      gluTessCallback (tess, GLU_TESS_VERTEX, tcbVertex);
      gluTessCallback (tess, GLU_TESS_END, tcbEnd);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

const
 N = 100;
var
 GLArrayd3: TGLArrayd3;
 GluObj: PGLUtesselator;
 myPolygon: TGLUInt;
 myPointList: array of TGLArrayf3;
 I: Integer;
begin
  // Definition eines nicht-konvexen Objektes
  SetLength(myPointList, N);
  for I := 0 to N-1 do
  begin
    myPointList[I][0] := cos(2*pi*I/N)*(1+cos(2*pi*I/N*8)/4);
    myPointList[I][1] := sin(2*pi*I/N)*(1+cos(2*pi*I/N*8)/4);
    myPointList[I][2] := 0;
  end;

  // Display-List erstellen
  myPolygon := glGenLists(1); 
  glNewList(myPolygon, GL_COMPILE);

  // Tesselierung in konkave Polygone
  GluObj := gluNewTess;
  gluTessCallback(GluObj, GLU_TESS_VERTEX, @glVertex3fv);
  gluTessCallback(GluObj, GLU_TESS_BEGIN, @glBegin);
  gluTessCallback(GluObj, GLU_TESS_END, @glEnd);

  gluTessBeginPolygon(GluObj, nil);
  gluTessBeginContour(GluObj);
  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;
  gluTessEndContour(GluObj);
  gluTessEndPolygon(GluObj);
  glEndList;
  gluDeleteTess(GluObj);

  // Das Objekt zeichnen...
  glCallList(myPolygon);