- procedure TForm1.Render;
- var
- MyTex : glUInt;
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- gltranslatef(0,0,5);
- LoadTexture('./wall.jpg',MyTex, False);
- glBindTexture(GL_TEXTURE_2D,MyTex);
- glEnable(GL_TEXTURE_2D);
- glColor3f(1,1,1);
- glBegin(GL_QUADS);
- 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);
- ErrorHandler;
- end;