Delphi下OpenGL2d绘图之画线的方法

procedure TForm1.Draw;
begin
  // 清空缓冲区
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  // ----------- GL_LINES -----------
  // 设置线宽
  glLineWidth(5);
  // 两点间渐变色
  glShadeModel(GL_SMOOTH);
  glBegin(GL_LINES);  // 画线
  // 设置起点线的颜色
  glColor3f(1, 0, 0);
  // 绘制起点
  glVertex2f(50, 50);
  // 设置末点线的颜色
  glColor3f(0, 0, 1);
  // 绘画末点
  glVertex2f(200, 200);
  glEnd;
  // 两点间同颜色
  glShadeModel(GL_FLAT);
  glBegin(GL_LINES);
  glColor3f(0, 1, 0);
  glVertex2f(200, 50);
  glColor3f(1, 1, 0);
  glVertex2f(50, 200);
  glEnd;
  // ----------- GL_LINE_LOOP -----------
  // 三个点闭环形成一个三角形  glShadeModel(GL_SMOOTH); 不起作用
  glLineWidth(1);
  glBegin(GL_LINE_LOOP);
  glColor3f(0, 0, 1);
  glVertex2f(250, 50);
  glVertex2f(250, 200);
  glVertex2f(280, 150);
  glEnd;
  // ----------- GL_LINE_STRIP -----------
  // 多点折线    glShadeModel(GL_SMOOTH); 不起作用
  glLineWidth(1);
  glBegin(GL_LINE_STRIP);
  glColor3f(1, 0, 255);
  glVertex2f(350, 50);
  glVertex2f(400, 200);
  glVertex2f(480, 150);
  glVertex2f(490, 60);
  glEnd;
  SwapBuffers(FDC); //交换双缓冲区内容，这将把刚绘制的图形翻印到屏幕上。
end;

glShadeModel(GL_SMOOTH); // 平滑方式，这也是opengl的默认处理方式，实现颜色渐变的效果
glShadeModel(GL_FLAT);  // 单色方式，线段的颜色以某一个顶点的颜色为准，由具体实现决定。为了避免不确定性，应尽量在多边形中使用同一种颜色

glEnable(GL_LINE_SMOOTH); //启用
glHint(GL_LINE_SMOOTH,GL_NICEST);
glDisable(GL_LINE_SMOOTH); //关闭