- procedure TGLForm.Button1Click(Sender: TObject);
- begin
- glTranslatef(-1.5,0,0);
- glTranslatef(0, 0,-6);
- glTranslatef(-1.5, 0,-6);
- glBegin(GL_TRIANGLES);
- glColor3f(1, 0, 0); glVertex3f(-1,-1, 0);
- glColor3f(0, 0, 1); glVertex3f( 1,-1, 0);
- glColor3f(0, 1, 0); glVertex3f( 0, 1, 0);
- glEnd;
- end;