OpenGL学习日志：
感谢doing5552 的OpenGL入门学习：http://www.cppblog.com/doing5552/archive/2009/01/08/71532.html
相信有部分人还在使用pascal学习OpenGL（像我一样）说不定也有人经常会遇到莫名其妙的编译错误（即使只是一个模板）
经过十个多小时的研究，我终于找到了OpenGL的使用方法
首先，在百度上（也可以是别的搜索引擎）上找到叫做glutdlls37beta的压缩包，下载解压后全部放入bin->i386-win32下
接下来给出OpenGL框架：
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.
相信OpenGL最简单的一个例子就是画一个立体的茶壶了吧？
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.
当然不只可以画茶壶，还可以画其他的几何体
详细请参考https://wenku.baidu.com/view/199d5b1a59eef8c75ebfb300.html的23页至25页
颜色的rgb数值也请参考以上网站的第12页（注意乘上255）
接下来给出http://www.cppblog.com/doing5552/archive/2009/01/08/71532.html的第一个例子的pascal代码：
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.
这一篇就写到这里，有兴趣的可以自己研究http://www.cppblog.com/doing5552/archive/2009/01/08/71532.html，最后再次感谢doing5552的OpenGL入门学习