1. Предисловие:
Метод рисования четырехугольников в Delphi в основном такой же, как и предыдущие текстовые коды. Разница заключается в параметре «GL_QUADS» функции glBegin(). Код инфраструктуры рисования может использовать код инициализации рисования OpenGL2d в Delphi, адрес: //www.VeVB.COm/article/52141.htm. Измененная часть — это содержимое функции Draw.
2. Как нарисовать четырехугольник:
Использование 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 представляют позицию пикселя четырехугольной точки в окне. Положение каждой точки необходимо задавать по часовой стрелке или против часовой стрелки.
Код выглядит следующим образом:
процедура TForm1.Draw;var l, t, w: Integer;begin // Очищаем буфер glClear(GL_COLOR_BUFFER_BIT или GL_DEPTH_BUFFER_BIT); // Устанавливаем цвет четырехугольника glColor3f(1, 0.5, 0 // Рисуем первый многоугольник); л := 10; т := 10; 64; glBegin(GL_QUADS); glVertex2f(l, t); glVertex2f(l + w, t + w); glVertex2f(l, t + w); Второй полигон l := 80; t := 10; glColor3f(0, 0.5, 0); glBegin(GL_QUADS); glVertex2f(l + w, t + w); glVertex2f (l, t + w); //Поменяем местами содержимое двойного буфера, который скопирует только что нарисованную графику на экран. конец;
Нажмите здесь, чтобы загрузить полный код