- procedure drawTexturedQuad;
- begin
- glBegin(GL_QUADS);
- glTexCoord(0,0); glVertex3f(-1, 1,0);
- glTexCoord(0,1); glVertex3f(-1,-1,0);
- glTexCoord(1,1); glVertex3f( 1,-1,0);
- glTexCoord(1,0); glVertex3f( 1, 1,0);
- glEnd;
- end;
- begin
- glMatrixMode(GL_MODELVIEW);
- glBindTexture(GL_TEXTURE_2D, texID);
- glTranslatef(-2,0,0);
- drawTexturedQuad;
- glMatrixMode(GL_TEXTURE);
- glRotatef(20,0,0,1);
- glMatrixMode(GL_MODELVIEW);
- glTranslatef(4,0,0);
- drawTexturedQuad;
- end;