- procedure Resize2dGL();
- begin
- glViewport(0,0,Width,Height);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- glOrtho(0, Width, 0 , Height, -1,1); // 2d...wenn man mehr Tiefe braucht, dann einfach 1 durch belibiege Zahl ersetzten ZAHL > 1
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- end;
- ....
- procedure Draw();
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glLoadIdentity();
- glBegin( GL_LINES );
- glVertex3f (0,0,0); glVertex3f (100,100,0); // von 0,0 bis zum 100,100 in ScreenCoordinates !!
- // glVertex2f (0,0); glVertex2f (100,100);
- glEnd();
- SwapBuffers(myDC);
- end;