- 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;
 
