- procedure TForm1.FormCreate(Sender: TObject);
- begin
- glClear (GL_COLOR_BUFFER_BIT OR GL_DEPHT_BUFFER_BIT);
- glLoadIdentity;
- gltranslatef(-1.5, 0.0,-6.0);
- glBegin(GL_TRIANGLES);
- glVertex3f(-1.0,-1.0, 0.0);
- glVertex3f( 0.0, 1.0, 0.0);
- glVertex3f( 1.0,-1.0, 0.0);
- glEnd();
- end;