- var
- Gras : TGLBMP;
- ...
- procedure glInit;
- ...
- Gras := TGLBMP.create('Gras.jpg');
- Gras.GenTexture(false,false);//Fehlermeldung
- end;
- ...
- Procedure glDraw;
- ...
- Gras.bind;
- glBegin(GL_QUADS);
- glTexCoord2f(0,0); glVertex3f(0,0,0);
- glTexCoord2f(0,1); glVertex3f(0,1,0);
- glTexCoord2f(1,1); glVertex3f(1,1,0);
- glTexCoord2f(1,0); glVertex3f(1,0,0);
- glEnd;