1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28:
| procedure TForm1.Render; begin glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); glLoadIdentity; glTranslatef(-3, 0, -5);
glDisable(GL_TEXTURE_2D); glBegin(GL_QUADS); glVertex3f(-1,-1,0); glVertex3f(-1,1,0); glVertex3f(1,1,0); glVertex3f(1,-1,0); glEnd;
glLoadIdentity; glTranslatef(3, 0, -5); glEnable(gl_texture_2d);
glBegin(GL_QUADS); glbindtexture(gl_Texture_2D, textur); glTexCoord2f(0,0); glVertex3f(-1,-1,0); glTexCoord2f(0,1); glVertex3f(-1,1,0); glTexCoord2f(1,1); glVertex3f(1,1,0); glTexCoord2f(1,0); glVertex3f(1,-1,0); glEnd;
SwapBuffers(DC); end; |