- procedure TForm1.Render(FrameCount:Integer);
- var f:Real;
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- gluPerspective(100.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity();
- glTranslatef(0,0,-10);
- glBegin(GL_LINES);
- glVertex3f(-10,0,0);
- glVertex3f( 10,0,0);
- glEnd;
- glBegin(GL_LINES);
- glVertex3f(0,-10,0);
- glVertex3f(0, 10,0);
- glEnd;
- glPushMatrix();
- glTranslatef(0,0,-10);
- glRotatef(FrameCount,1,0,0);
- glBegin(GL_LINE_STRIP);
- f := 0.0;
- for i:=0 to 100 do
- begin
- glVertex3f(cos(f)*5,sin(f)*5,0);
- f := f + (2*Pi/100);
- end;
- glEnd;
- glPopMatrix();
- glPushMatrix();
- glTranslatef(0,0,-10);
- glRotatef(FrameCount,0,1,0);
- glBegin(GL_LINE_STRIP);
- f := 0;
- for i:=0 to 100 do
- begin
- glVertex3f(cos(f)*5,sin(f)*5,0);
- f := f + (2*Pi/100);
- end;
- glEnd;
- glPopMatrix();
- SwapBuffers(DC);
- end;