uses gl,glu,glut;

 procedure display;cdecl;

 begin

   glclear(GL_COLOR_BUFFER_BIT);

   //这里写绘图语句

   glflush();

 end;

 begin

   glutinit(@argc,argv);

   glutinitdisplaymode(glut_rgb or glut_single);   //rgb颜色和单色位图

   glutinitwindowposition(,);

   glutinitwindowsize(,);    //窗口大小

   glutcreatewindow('zcy');

   glutdisplayfunc(@display);      //调用（最好不要带参数，如需要最好使用全局变量）

   glutmainloop;

 end.

 uses gl,glu,glut;

 var t:real;

 procedure display;cdecl;

 begin

   glclear(gl_color_buffer_bit);  //设置清屏颜色

   glmatrixmode(gl_modelview);

   glloadidentity;

   glrotatef(t,,,);      //旋转角度

   glcolor3f(,,);      //茶壶颜色

   glutwireteapot(0.5);    //画茶壶并设置茶壶大小

   glflush;

 end;

 procedure keyboard(key:byte;x,y:longint);cdecl;

 begin

   t:=t+;             //按一下就计数

   display;            //重绘

 end;

 begin

   glutinit(@argc,argv);

   glutinitdisplaymode(glut_rgb or glut_single);

   glutinitwindowposition(,);

   glutinitwindowsize(400,400);

   glutcreatewindow('zcy');

   glutdisplayfunc(@display);

   glutkeyboardfunc(@keyboard);

   glutmainloop;

 end.

 uses gl,glu,glut;

 procedure mydisplay;cdecl;    //注意！要写cdecl！！！（虽然我也不知道为什么，反正要写上）

 begin

   glclear(gl_color_buffer_bit);

   glrectf(-0.5,-0.5,0.5,0.5);

   glflush;

 end;

 begin

   glutinit(@argc,argv);

   glutinitdisplaymode(glut_rgb or glut_single);

   glutinitwindowposition(,);

   glutinitwindowsize(,);

   glutcreatewindow('zcy');

   glutdisplayfunc(@mydisplay);

   glutmainloop;

 end.