- procedure Tform1.DrawScene;
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glViewport(0, 0, feld.Width, feld.Height);
- glloadidentity;
- glEnable(GL_DEPTH_TEST);
- glPolygonMode(GL_FRONT_AND_BACK, GL_fill);
- gltranslatef(i,j,k);
- glBegin(GL_TRIANGLES);
- glVertex3f(-0.9,0.0,0.0);
- glVertex3f(-0.5,0.9,0.0);
- glVertex3f(-0.1,0.0,0.0);
- glEnd;
- glflush;
- SwapBuffers(DC);
- end;