1. Kata Pengantar:
Cara menggambar segi empat di Delphi pada dasarnya sama dengan kode teks sebelumnya. Perbedaannya terletak pada parameter "GL_QUADS" dari glBegin(). Kode kerangka gambar dapat menggunakan kode inisialisasi gambar OpenGL2d di bawah Delphi, alamatnya adalah //www.VeVB.COm/article/52141.htm. Bagian yang dimodifikasi adalah isi dari fungsi Draw.
2. Cara menggambar segi empat:
Menggunakan GL_QUADS: Menggambar satu set segi empat terpisah yang terdiri dari empat simpul. Simpul 4n-3, 4n-2, 4n-1 dan 4n menentukan segi empat ke-n. Gambarlah total N/4 segiempat. Belajar menggambar segi empat disini adalah persiapan menggambar bitmap.
Tetapkan warna:
glColor3f(1, 0.5, 0); Anda dapat mengatur warna segi empat. Parameternya ada tiga bagian, yaitu nilai R, G, dan B. Rentangnya adalah 0 hingga 1, 1 berarti 255. , dan 0,5 ditunjukkan pada 128. Perhatian khusus diperlukan di sini!
Tentukan titik-titik segi empat:
glVertex2f(nleft, ntop); nleft dan ntop mewakili posisi piksel titik segiempat pada jendela. Posisi setiap titik perlu diatur searah jarum jam atau berlawanan arah jarum jam.
Kodenya adalah sebagai berikut:
procedure TForm1.Draw;var l, t, w: Integer;begin // Hapus buffer glClear(GL_COLOR_BUFFER_BIT atau GL_DEPTH_BUFFER_BIT); // Atur warna segi empat glColor3f(1, 0.5, 0); aku := 10; t := 10; 64; glVertex2f(l + w, t); glVertex2f(l + w, t + w); Poligon kedua l := 80; t := 10; glBegin(GL_QUADS); glVertex2f(l, t); glVertex2f(l + w, t + w); glVertex2f(l + w, t); //Tukar isi buffer ganda, yang akan menyalin grafik yang baru saja digambar ke layar. akhir;
Klik di sini untuk mengunduh kode lengkapnya