procedure TForm1.Draw;
begin
  // 清空緩沖區(qū)
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  // ----------- GL_LINES -----------
  // 設(shè)置線寬
  glLineWidth(5);
  // 兩點(diǎn)間漸變色
  glShadeModel(GL_SMOOTH);
  glBegin(GL_LINES);  // 畫線
  // 設(shè)置起點(diǎn)線的顏色
  glColor3f(1, 0, 0);
  // 繪制起點(diǎn)
  glVertex2f(50, 50);
  // 設(shè)置末點(diǎn)線的顏色
  glColor3f(0, 0, 1);
  // 繪畫末點(diǎn)
  glVertex2f(200, 200);
  glEnd;
  // 兩點(diǎn)間同顏色
  glShadeModel(GL_FLAT);
  glBegin(GL_LINES);
  glColor3f(0, 1, 0);
  glVertex2f(200, 50);
  glColor3f(1, 1, 0);
  glVertex2f(50, 200);
  glEnd;
  // ----------- GL_LINE_LOOP -----------
  // 三個(gè)點(diǎn)閉環(huán)形成一個(gè)三角形  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 -----------
  // 多點(diǎn)折線    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); //交換雙緩沖區(qū)內(nèi)容，這將把剛繪制的圖形翻印到屏幕上。
end;

glShadeModel(GL_SMOOTH); // 平滑方式，這也是opengl的默認(rèn)處理方式，實(shí)現(xiàn)顏色漸變的效果
glShadeModel(GL_FLAT);  // 單色方式，線段的顏色以某一個(gè)頂點(diǎn)的顏色為準(zhǔn)，由具體實(shí)現(xiàn)決定。為了避免不確定性，應(yīng)盡量在多邊形中使用同一種顏色

glEnable(GL_LINE_SMOOTH); //啟用
glHint(GL_LINE_SMOOTH,GL_NICEST);
glDisable(GL_LINE_SMOOTH); //關(guān)閉