1. Prefácio:
O método de desenhar quadriláteros em Delphi é basicamente o mesmo dos códigos de texto anteriores. A diferença está no parâmetro "GL_QUADS" de glBegin(). O código da estrutura de desenho pode usar o código na inicialização do desenho OpenGL2d em Delphi, o endereço é //www.VeVB.COm/article/52141.htm. A parte modificada é o conteúdo da função Draw.
2. Como desenhar um quadrilátero:
Usando GL_QUADS: Desenha um conjunto separado de quadrantes que consiste em quatro vértices. Os vértices 4n-3, 4n-2, 4n-1 e 4n definem o enésimo quadrilátero. Desenhe um total de N/4 quadriláteros. Aprender a desenhar quadriláteros aqui é preparar-se para desenhar bitmaps.
Definir cor:
glColor3f(1, 0,5, 0); Você pode definir a cor do quadrilátero. Os parâmetros são três partes, que são os valores de R, G e B. O intervalo é de 0 a 1, 1 significa 255. , e 0,5 é mostrado em 128. Atenção especial é necessária aqui!
Defina os pontos do quadrilátero:
glVertex2f(nleft, ntop); nleft e ntop representam a posição do pixel do ponto quadrilátero na janela. A posição de cada ponto precisa ser definida no sentido horário ou anti-horário.
O código é o seguinte:
procedimento TForm1.Draw;var l, t, w: Integer;begin // Limpa o buffer glClear(GL_COLOR_BUFFER_BIT ou GL_DEPTH_BUFFER_BIT); // Define a cor do quadrilátero glColor3f(1, 0.5, 0); eu := 10; 64; glBegin(GL_QUADS); glVertex2f(l, t + w, t); O segundo polígono l := 80 t := 10; glBegin(GL_QUADS); glVertex2f(l + w, t + w); //Troca o conteúdo do buffer duplo, que copiará os gráficos recém-desenhados para a tela. fim;
Clique aqui para baixar o código completo