//抄一个例子
//global var a : integer=0;
//initialize openGL;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
a:=(a + 2 ) mod 360;
glRotatef(a,1,2,3);
glClear(GL_COLOR_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
glOrtho(-1,1,-1,1,-1,1);
glRotatef(90,1,0,0);
glutWireSphere(0.5,16,8); //implemented in glut32.dll
glFlush;
swapbuffers(h_dc);
end;