Delphi下OpenGL2d繪圖之畫四邊形的方法
一、前言:
Delphi實(shí)現(xiàn)畫四邊形的方法基本上與前幾遍文字代碼是相同的。其區(qū)別知識在于glBegin()的參數(shù)“GL_QUADS”。繪制的框架代碼可以使用Delphi下OpenGL2d繪圖初始化中的代碼,地址為http://www.dbjr.com.cn/article/52141.htm。修改的部份為 Draw 函數(shù)的內(nèi)容。
二、畫四邊形方法:
使用GL_QUADS:繪制由四個(gè)頂點(diǎn)組成的一組單獨(dú)的四邊形。頂點(diǎn)4n-3、4n-2、4n-1和4n定義了第n個(gè)四邊形。總共繪制N/4個(gè)四邊形。這里學(xué)畫四邊形是為了畫位圖做準(zhǔn)備。
設(shè)置顏色:
glColor3f(1, 0.5, 0); 可以設(shè)置四邊形的顏色,參數(shù)為三部份,分別為 R、G、B的值,取得范圍為0到1,1表示255,0.5表128。這里需要特別予以注意!
設(shè)置四邊形的點(diǎn):
glVertex2f(nleft, ntop); nleft、ntop表示四邊形的點(diǎn)在窗口上的像素點(diǎn)位置。每個(gè)點(diǎn)的位置需按順時(shí)針或逆時(shí)針設(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); // 繪制第一個(gè)多邊形 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(); // 繪制第二個(gè)多邊形 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;
完整代碼點(diǎn)此下載
相關(guān)文章
Delphi實(shí)現(xiàn)獲取磁盤空間大小的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)獲取磁盤空間大小的方法,是一個(gè)很實(shí)用的功能,需要的朋友可以參考下2014-07-07Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實(shí)例
這篇文章主要介紹了Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實(shí)例的相關(guān)資料,希望通過本能幫助到大家實(shí)現(xiàn)這樣的功能,需要的朋友可以參考下2017-09-09Delphi 用DLL實(shí)現(xiàn)插件的簡單實(shí)例
這篇文章主要介紹了Delphi 用DLL實(shí)現(xiàn)插件的簡單實(shí)例的相關(guān)資料,希望通過本文能幫助到大家,這里提供實(shí)例幫助大家掌握這部分內(nèi)容,需要的朋友可以參考下2017-09-09Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解
CountDownLatch和CyclicBarrier是Java并發(fā)包提供的兩個(gè)非常易用的線程同步工具類,本文主要介紹了Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解,具有一定的參考價(jià)值,感興趣的可以了解一下2023-11-11Delphi實(shí)現(xiàn)木馬文件傳輸代碼實(shí)例
這篇文章主要介紹了Delphi實(shí)現(xiàn)木馬文件傳輸?shù)姆椒?對于了解木馬的運(yùn)行原理有一定的幫助,需要的朋友可以參考下2014-07-07Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別
這篇文章主要介紹了Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別,需要的朋友可以參考下2014-07-07