OpenGL学习笔记2017/8/29

Posted 2020-10-04 zhuchengyang

OpenGL学习日志：

感谢doing5552 的OpenGL入门学习：http://www.cppblog.com/doing5552/archive/2009/01/08/71532.html

相信有部分人还在使用pascal学习OpenGL（像我一样）说不定也有人经常会遇到莫名其妙的编译错误（即使只是一个模板）

经过十个多小时的研究，我终于找到了OpenGL的使用方法

首先，在百度上（也可以是别的搜索引擎）上找到叫做glutdlls37beta的压缩包，下载解压后全部放入bin->i386-win32下

接下来给出OpenGL框架：

 1 uses gl,glu,glut;
 2 procedure display;cdecl;
 3 begin
 4   glclear(GL_COLOR_BUFFER_BIT);
 5   //这里写绘图语句
 6   glflush();
 7 end;
 8 begin
 9   glutinit(@argc,argv);
10   glutinitdisplaymode(glut_rgb or glut_single);   //rgb颜色和单色位图
11   glutinitwindowposition(100,100);
12   glutinitwindowsize(400,400);    //窗口大小
13   glutcreatewindow(‘zcy‘);
14   glutdisplayfunc(@display);      //调用（最好不要带参数，如需要最好使用全局变量）
15   glutmainloop;
16 end.

相信OpenGL最简单的一个例子就是画一个立体的茶壶了吧？

 1 uses gl,glu,glut;
 2 var t:real;
 3 procedure display;cdecl;
 4 begin
 5   glclear(gl_color_buffer_bit);  //设置清屏颜色
 6   glmatrixmode(gl_modelview);
 7   glloadidentity;
 8   glrotatef(t,1,1,1);      //旋转角度
 9   glcolor3f(255,0,0);      //茶壶颜色
10   glutwireteapot(0.5);    //画茶壶并设置茶壶大小
11   glflush;
12 end;
13 procedure keyboard(key:byte;x,y:longint);cdecl;
14 begin
15   t:=t+1;             //按一下就计数
16   display;            //重绘
17 end;
18 begin
19   glutinit(@argc,argv);
20   glutinitdisplaymode(glut_rgb or glut_single);
21   glutinitwindowposition(100,100);
22   glutinitwindowsize(400,400);
23   glutcreatewindow(‘zcy‘);
24   glutdisplayfunc(@display);
25   glutkeyboardfunc(@keyboard);
26   glutmainloop;
27 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代码：

 1 uses gl,glu,glut;
 2 procedure mydisplay;cdecl;    //注意！要写cdecl！！！（虽然我也不知道为什么，反正要写上）
 3 begin
 4   glclear(gl_color_buffer_bit);
 5   glrectf(-0.5,-0.5,0.5,0.5);
 6   glflush;
 7 end;
 8 begin
 9   glutinit(@argc,argv);
10   glutinitdisplaymode(glut_rgb or glut_single);
11   glutinitwindowposition(100,100);
12   glutinitwindowsize(400,400);
13   glutcreatewindow(‘zcy‘);
14   glutdisplayfunc(@mydisplay);
15   glutmainloop;
16 end.

这一篇就写到这里，有兴趣的可以自己研究http://www.cppblog.com/doing5552/archive/2009/01/08/71532.html，最后再次感谢doing5552的OpenGL入门学习