Delphi下OpenGL2d绘图之画线的方法
一、前言：
Delphi画线方法与画点基本上是相同的。区别在于glBegin()的参数。绘制的框架代码可以参考Delphi下OpenGL2d绘图初始化中的代码，地址为https://www.nhooo.com/article/52141.htm。修改的部份为Draw函数的内容。
二、画线步骤：
GL_LINES：把每一个顶点作为一个独立的线段，顶点2n－1和2n之间共定义了n条线段，总共绘制N/2条线段
GL_LINE_STRIP：绘制从第一个顶点到最后一个顶点依次相连的一组线段，第n和n＋1个顶点定义了线段n，总共绘制n－1条线段
GL_LINE_LOOP：绘制从第一个顶点到最后一个顶点依次相连的一组线段，然后最后一个顶点和第一个顶点相连，第n和n＋1个顶点定义了线段n，总共绘制n条线段
画线可能用到以下函数：
glLineWidth()设置线条宽度
glShadeModel()设置颜色过渡模式
glColor3f()设置线条颜色
procedureTForm1.Draw;
begin
//清空缓冲区
glClear(GL_COLOR_BUFFER_BITorGL_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;
可以看到第一个X线条颜色渐变的，OpenGL默认情况下是这种样式。opengl中提供了一个函数glShadeModel来决定如何处理这种不同颜色的情况。
glShadeModel(GL_SMOOTH);//平滑方式，这也是opengl的默认处理方式，实现颜色渐变的效果 glShadeModel(GL_FLAT);//单色方式，线段的颜色以某一个顶点的颜色为准，由具体实现决定。为了避免不确定性，应尽量在多边形中使用同一种颜色
经过测试后发现，在GL_LINE_LOOP与GL_LINE_STRIP样式下，渐变效果无效！具体原因有待进一步查明。
另外，OpenGL提供了抗锯齿的功能，函数为
glEnable(GL_LINE_SMOOTH);//启用 glHint(GL_LINE_SMOOTH,GL_NICEST); glDisable(GL_LINE_SMOOTH);//关闭
使用后发现抗锯齿效果不明显。有待进一步继续再研究。
完整代码点此下载