快捷導(dǎo)航

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

更新時間：2014年07月14日 14:58:08 投稿：shichen2014

這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫四邊形的方法,需要的朋友可以參考下

一、前言：

Delphi實現(xiàn)畫四邊形的方法基本上與前幾遍文字代碼是相同的。其區(qū)別知識在于glBegin()的參數(shù)“GL_QUADS”。繪制的框架代碼可以使用Delphi下OpenGL2d繪圖初始化中的代碼，地址為http://www.fzitv.net/article/52141.htm。修改的部份為 Draw 函數(shù)的內(nèi)容。

二、畫四邊形方法：

使用GL_QUADS：繪制由四個頂點組成的一組單獨的四邊形。頂點4n－3、4n－2、4n－1和4n定義了第n個四邊形?？偣怖L制N/4個四邊形。這里學(xué)畫四邊形是為了畫位圖做準備。

設(shè)置顏色：

glColor3f(1, 0.5, 0); 可以設(shè)置四邊形的顏色，參數(shù)為三部份，分別為 R、G、B的值，取得范圍為0到1,1表示255,0.5表128。這里需要特別予以注意！

設(shè)置四邊形的點：

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

代碼如下：

procedure TForm1.Draw;
var
 l, t, w: Integer;
begin
 // 清空緩沖區(qū)
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 // 設(shè)置四邊形的顏色
 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); //交換雙緩沖區(qū)內(nèi)容，這將把剛繪制的圖形翻印到屏幕上。
end;

完整代碼點此下載

您可能感興趣的文章:

相關(guān)文章

delphi 字符串處理中的怪異現(xiàn)象與處理方式
今天小編就為大家分享一篇delphi 字符串處理中的怪異現(xiàn)象與處理方式，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧
2020-02-02
Delphi實現(xiàn)Listbox中的item根據(jù)內(nèi)容顯示不同顏色的方法
這篇文章主要介紹了Delphi實現(xiàn)Listbox中的item根據(jù)內(nèi)容顯示不同顏色的方法,需要的朋友可以參考下
2014-07-07
Delphi下OpenGL2d繪圖之畫四邊形的方法
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫四邊形的方法,需要的朋友可以參考下
2014-07-07
delphi中exit,abort,break,continue的區(qū)別介紹
本文詳細介紹下delphi中表示跳出的有break，continue, exit，abort, halt, runerror的區(qū)別，感興趣的朋友可以參考下哈，希望對你學(xué)習(xí)跳出有所幫助
2013-04-04
插件管理框架 for Delphi（一）
插件管理框架 for Delphi許多軟件采用“插件”（PlugIns）來擴展其功能，比如PhotoShop所支持的各類濾鏡就是插件；我們所熟知的Winamp，也有許多皮膚以及可視效果插件。再有微軟的windows media player，以及QQ，沖浪軟件Opera……采用插件技術(shù)的軟件數(shù)不勝數(shù)，而各個軟件的具體實現(xiàn)方式也是五花八門，各有特點。
2008-03-03
delphi實現(xiàn)保存和讀取圖片的方法
這篇文章主要介紹了delphi實現(xiàn)保存和讀取圖片的方法,主要包括了顯示圖片、保存圖片和讀取圖片的實現(xiàn)方法,是非常實用的技巧,需要的朋友可以參考下
2014-09-09
Delphi實現(xiàn)窗體感知鼠標滑過并自動隱藏與顯示窗口的方法
這篇文章主要介紹了Delphi實現(xiàn)窗體感知鼠標滑過并自動隱藏與顯示窗口的方法,涉及Delphi操作窗口及鼠標事件的技巧,需要的朋友可以參考下
2015-05-05
Delphi實現(xiàn)窗口文字淡入淡出漸變效果的方法
這篇文章主要介紹了Delphi實現(xiàn)窗口文字淡入淡出漸變效果,需要的朋友可以參考下
2014-07-07
delphi7連接mysql5的實現(xiàn)方法
這篇文章主要介紹了delphi7連接mysql5的實現(xiàn)方法,需要的朋友可以參考下
2014-07-07
Delphi建立、讀取、存貯INI文件的方法《一》
內(nèi)容: INI文件在系統(tǒng)配置及應(yīng)用程序參數(shù)保存與設(shè)置方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫INI文件的方法，其中Delphi中操作INI文件，最為簡潔，這是因為Delphi6.0提供了一個TInifile類，使我們可以非常靈活的處理INI文件。
2008-03-03