- feld:=glGenLists(1);
- glNewList(feld,GL_COMPILE);
- glPushMatrix;
- for i:=2 to 10 do begin
- glBindTexture(GL_TEXTURE_2D,tex[i]);
- glColor3f(1,1,1);
- glBegin(GL_QUADS);
- glTexCoord2f(0,0); glVertex2d(x,y);
- glTexCoord2f(0,1); glVertex2d(x,y1);
- glTexCoord2f(1,1); glVertex2d(x1,y1);
- glTexCoord2f(1,0); glVertex2d(x1,y);
- glEnd;
- glTranslatef(-66,0,0);
- end;
- glPopMatrix;
- glEndList;