OpenGL入门学习1：编写第一个OpenGL程序

myisland

0. Requires
GLU.pas
GL.pas

OpenGLPanel.pas

1.第一个OpenGL程序

绘制代码：

1. procedure TForm1.OpenGLPanel1Paint(Sender: TObject);
   
2. begin
   
3.   glClearColor(0.0, 0.0, 0.0, 0.0);  // 设置背景色（清除scene）
   
4.   glClear(GL_COLOR_BUFFER_BIT);      // 清除颜色缓冲区
   
5. 
   
6.   glrectf(-0.5,-0.5,0.5,0.5);        //绘制矩形
   
7. 
   
8.   OpenGLPanel1.SwapBuffers;
   
9. end;

复制代码

2.解析
VCL TOpenGLPanel对获取RC等常规操作进行了封装，用户可以把精力集中在“如何绘制/显示”。
“当需要画图时，请调用TOpenGLPanel的OnPaint函数”。于是OnPaint函数就用来画图。观察OnPaint中的三个函数调用，发现它们都以gl开头。这种以gl开头的函数都是OpenGL的标准函数，下面对用到的函数进行介绍。

    (i)  glClearColor ,清除当前显示场景的颜色，并用指定背景色填充。使用的颜色类型为RGBA。

   （ii）glClear，清除。GL_COLOR_BUFFER_BIT表示清除颜色，glClear函数还可以清除其它的东西，但这里不作介绍。

    (iii) glRectf，画一个矩形。四个参数分别表示了位于对角线上的两个点的横、纵坐标。


动画教程(683.06K)

lhxzui

谢谢分享。