- procedure TGLForm.Render;
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
- glMatrixMode(GL_MODELVIEW);
- glTranslatef(0, 0, -5);
- glPushMatrix();
- glTranslatef(-2.3, -1, 0);
- glBindTexture(GL_TEXTURE_2D, TexID[1]);
- glrotatef(60, 0, 1, 0);
- glScaleF(0.8, 0.8, 1);
- glBegin(GL_QUADS);
- glTexCoord2f(0, 0); glVertex3f(0, 0, 0);
- glTexCoord2f(0, 1); glVertex3f(3.75, 0, 0);
- glTexCoord2f(1, 1); glVertex3f(3.75, 2.5, 0);
- glTexCoord2f(1, 0); glVertex3f(0, 2.5, 0);
- glEnd;
- glPopMatrix();
- glTranslateF(-1.8, -1, 0);
- glBindtexture(GL_TEXTURE_2D, TexID[2]);
- glBegin(GL_QUADS);
- glTexCoord2f(0, 0); glVertex3f(0, 0, 0);
- glTexCoord2f(0, 1); glVertex3f(3.75, 0, 0);
- glTexCoord2f(1, 1); glVertex3f(3.75, 2.5, 0);
- glTexCoord2f(1, 0); glVertex3f(0, 2.5, 0);
- glEnd;
- glPopMatrix();
- glTranslateF(4.1, 0, 0);
- glBindTexture(GL_TEXTURE_2D, TexID[1]);
- glrotatef(120, 0, 1, 0);
- glScaleF(0.8, 0.8, 1);
- glbegin(GL_QUADS);
- glTexCoord2f(0, 0); glVertex3f(0, 0, 0);
- glTexCoord2f(0, 1); glVertex3f(3.75, 0, 0);
- glTexCoord2f(1, 1); glVertex3f(3.75, 2.5, 0);
- glTexCoord2f(1, 0); glVertex3f(0, 2.5, 0);
- glEnd;
- glPopMatrix();
- gltranslateF(5, -1, 0);
- glBegin(GL_QUADS);
- glColor3f(1, 0, 0); glVertex3f(0, 0, 0);
- glColor3f(1, 0, 0); glVertex3f(3.75, 0, 0);
- glColor3f(1, 0, 0); glVertex3f(3.75, 3.75, 0);
- glColor3f(1, 0, 0); glVertex3f(0, 2.5, 0);
- glEnd;
- SwapBuffers(DC);
- end;