程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 更多關於編程 >> Delphi下OpenGL2d繪圖之畫四邊形的辦法

Delphi下OpenGL2d繪圖之畫四邊形的辦法

編輯:更多關於編程

Delphi下OpenGL2d繪圖之畫四邊形的辦法。本站提示廣大學習愛好者:(Delphi下OpenGL2d繪圖之畫四邊形的辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是Delphi下OpenGL2d繪圖之畫四邊形的辦法正文


一、前言:

Delphi完成畫四邊形的辦法根本上與前幾遍文字代碼是相反的。其區別知識在於glBegin()的參數“GL_QUADS”。繪制的框架代碼可以運用Delphi下OpenGL2d繪圖初始化中的代碼,地址為。修正的部份為 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;

完好代碼點此下載

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved