- procedure TForm1.FormShow(Sender: TObject);
- begin
- InitOpenGL;
- Init_OpenGL;
- glClearColor(0.0, 0.0, 0.0, 0.0); //Hintergrundfarbe
- glEnable(GL_DEPTH_TEST); //Tiefenpuffer aktivieren
- glEnable(GL_CULL_FACE); //Backface Culling aktivieren
- glShadeModel(GL_SMOOTH);
- Application.OnIdle := On_Idle;
- end;
- procedure TForm1.On_Idle(Sender: TObject;
- var Done: Boolean);
- begin
- done := false;
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Löschen
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glTranslatef(0, 0, -6);
- glBegin(GL_TRIANGLES);
- glColor3f(1,0,0);
- glVertex3f(-1.0, -1.0, 0.0);
- glVertex3f(0.0, 1.0, 0.0);
- glVertex3f(1.0, -1.0, 0.0);
- glEnd;
- SwapBuffers(Form1.Canvas.Handle);
- end;