Code: Alles auswählen
type
LetterField : TGluint;
procedure Initialize...
LetterField:=glGenLists(1);
glNewList(LetterField, GL_COMPILE);
glBegin(GL_QUADS);
glNormal3f(0.0, 1.0, 0.0);
glTexCoord2f(0,0); glVertex3f(0.0, cDist, 0.0);
glTexCoord2f(1,0); glVertex3f(1.0-cSpace, cDist, 0.0);
glTexCoord2f(1,1); glVertex3f(1.0-cSpace, cDist, 1.0-cSpace);
glTexCoord2f(0,1); glVertex3f(0.0, cDist, 1.0-cSpace);
glEnd;
glEndList;
procedure Render...
glCallList(LetterField);
PS: XP läuft in einer VirtualBox, guestadditions sind aktiv.