- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- gluPerspective(45, ClientWidth/ClientHeight, NearClipping, FarClipping);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- gltranslatef(0,0,-1);
- glBegin(GL_QUADS);
- glVertex3f(-5,-5,-5);
- glVertex3f(5,-5,-5);
- glVertex3f(5,5,-5);
- glVertex3f(-5,5,-5);
- glend;
- leftcorner := GetPos(1,1);
- rightcorner := GetPos(1279,799); // ??dyn-resolution
- SwapBuffers(DC);