- procedure glDraw;
- begin
- glClearColor(0,0,1,0);
- glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT);
- glLoadIdentity;
- //Kamera verschieben
- glTranslatef(0,-10,-30);
- //Text positionieren
- glPushMatrix;
- glTranslatef(-16,15,0);
- glRasterPos2d(0,0);
- glColor3f(1,0,0);
- glPrint('Test');
- glPopMatrix;
- //Kamera drehen
- glRotatef(RotY,1,0,0);
- glRotatef(RotX,0,1,0);
- glBEGIN(GL_TRIANGLES);
- glVertex3f(-0.5,0,0);
- glVertex3f(0.5,0,0);
- glVertex3f(0,10,0);
- glEND();
- //Wenn Sichtpunkt verändert, Frustum neu berechnen
- if update then Frust.CalculateFrustum;
- //Karte zeichnen, PosX,PosY als Mittelpunkt
- DrawMap;
- //Koordinaten berechnen, falls nötig
- If update then MoveDamnIt;
- end;