Delphi下OpenGL2d繪圖(04)-畫四邊形，delphiopengl2d

Delphi下OpenGL2d繪圖(04)-畫四邊形，delphiopengl2d

一、前言

畫四邊形基本上與前幾遍文字代碼是相同。區別在於glBegin()的參數“GL_QUADS”。繪制的框架代碼可以使用 Delphi下OpenGL2d繪圖(01)-初始化 中的代碼。修改的部份為 Draw 函數的內容。

二、畫四邊形

使用GL_QUADS：繪制由四個頂點組成的一組單獨的四邊形。頂點4n－3、4n－2、4n－1和4n定義了第n個四邊形。總共繪制N/4個四邊形。學畫四邊形是為了畫位圖做准備。

設置顏色：

glColor3f(1, 0.5, 0); 可以設置四邊形的顏色，參數為三部份，分別為 R、G、B的值，取得范圍為0到1,1表示255,0.5表128。發現前幾章對這個函數的參數設置錯了，在這裡修正一下。

設置四邊形的點：

glVertex2f(nleft, ntop); nleft、ntop表示四邊形的點在窗口上的像素點位置。每個點的位置需按順時針或逆時針設置。

代碼如下：

procedure TForm1.Draw;
var
  l, t, w: Integer;
begin
  // 清空緩沖區
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  // 設置四邊形的顏色
  glColor3f(1, 0.5, 0);

  // 繪制第一個多邊形
  l := 10;
  t := 10;
  w := 64;
  glBegin(GL_QUADS);
  glVertex2f(l, t);
  glVertex2f(l + w, t);
  glVertex2f(l + w, t + w);
  glVertex2f(l, t + w);
  glEnd();

  // 繪制第二個多邊形
  l := 80;
  t := 10;
  glColor3f(0, 0.5, 0);
  glBegin(GL_QUADS);
  glVertex2f(l, t);
  glVertex2f(l + w, t + w);
  glVertex2f(l + w, t);
  glVertex2f(l, t + w);
  glEnd();

  SwapBuffers(FDC); //交換雙緩沖區內容，這將把剛繪制的圖形翻印到屏幕上。
end;

效果圖如下：

源碼下載：http://files.cnblogs.com/lin557/OpenGL_04.zip

2014-07-10 by lin