- procedure TestTextures();
- begin
- glTranslatef(5,5,10);
- glColor4f(1,1,1,1);
- glEnable(GL_BLEND);
- glBindTexture(GL_TEXTURE_2D, TEX[0]);
- // glBlendFunc(GL_ZERO,GL_SRC_COLOR);
- glBindTexture(GL_TEXTURE_2D, TEX[2]);
- glBegin(GL_QUADS);
- glTexCoord2f(0,0); glVertex3f(0,0,0);
- glTexCoord2f(0,1); glVertex3f(0,2,0);
- glTexCoord2f(1,1); glVertex3f(2,2,0);
- glTexCoord2f(1,0); glVertex3f(2,0,0);
- glEnd;
- glDisable(GL_BLEND);
- end;