1. Prólogo:
El método para dibujar cuadriláteros en Delphi es básicamente el mismo que el de los códigos de texto anteriores. La diferencia radica en el parámetro "GL_QUADS" de glBegin(). El código del marco de dibujo puede utilizar el código en la inicialización del dibujo OpenGL2d en Delphi, la dirección es //www.VeVB.COm/article/52141.htm. La parte modificada es el contenido de la función Dibujar.
2. Cómo dibujar un cuadrilátero:
Usando GL_QUADS: Dibuja un conjunto separado de quads que consta de cuatro vértices. Los vértices 4n-3, 4n-2, 4n-1 y 4n definen el enésimo cuadrilátero. Dibuja un total de N/4 cuadriláteros. Aprender a dibujar cuadriláteros aquí es prepararse para dibujar mapas de bits.
Establecer color:
glColor3f(1, 0.5, 0); Puede establecer el color del cuadrilátero. Los parámetros son tres partes, que son los valores de R, G y B. El rango es de 0 a 1, 1 significa 255. , y 0,5 se muestra en 128. ¡Aquí se necesita atención especial!
Establecer los puntos del cuadrilátero:
glVertex2f(nleft, ntop); nleft y ntop representan la posición de píxel del punto del cuadrilátero en la ventana. La posición de cada punto debe establecerse en el sentido de las agujas del reloj o en el sentido contrario a las agujas del reloj.
El código es el siguiente:
procedimiento TForm1.Draw;var l, t, w: Integer;begin // Borrar el búfer glClear(GL_COLOR_BUFFER_BIT o GL_DEPTH_BUFFER_BIT // Establecer el color del cuadrilátero glColor3f(1, 0.5, 0); l := 10; t := 10; 64; glBegin(GL_QUADS); glVertex2f(l, t); glVertex2f(l + w, t); glVertex2f(l + w, t + w); El segundo polígono l := 80; t := 10; glColor3f(0, 0.5, 0); glBegin(GL_QUADS); glVertex2f(l, t); glVertex2f(l + w, t + w); glVertex2f(l + w, t); // Intercambia el contenido del búfer doble, que copiará los gráficos recién dibujados en la pantalla. fin;
Haga clic aquí para descargar el código completo