- procedure TForm1.Render;
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- gluperspective(60,form1.height/form1.width,nearclipping,farclipping);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glTranslatef(1, -0.5, -7);
- glBegin(GL_TRIANGLE_STRIP);
- glColor3f(1,0,0);
- glVertex3f(-1,0,0);
- glColor3f(1,1,0);
- glVertex3f(0,1,0);
- glColor3f(1,1,1);
- glVertex3f(1,0,0);
- glColor3f(0,1,1);
- glVertex3f(2,1,0);
- glColor3f(0,1,0);
- glVertex3f(3,0,0);
- glEnd;
- SwapBuffers(DC);