procedure DrawBackground;
var Viewport: TVector4i;
begin
  glGetIntegerv(GL_VIEWPORT, @Viewport[0]);       //ViewPort speichern
 
  glMatrixMode(GL_PROJECTION);                    //in die ProjektionsMatrix
  glPushMatrix;                                   //Matrix speichern
  glLoadIdentity;                                 //Matrix zurücksetzen
  glOrtho(0, Viewport[2], Viewport[3], 0, 0, 10); //2D-Sicht festlegen (mit Viewport als Grenzen)
 
  glMatrixMode(GL_MODELVIEW);                     //in die ModelMatrix
  glPushMatrix;                                   //Matrix speichern
  glLoadIdentity;                                 //Matrix zurücksetzen
 
  glBegin(GL_QUADS);                              //Hintergrund Zeichnen
    glColor3f(1,0,0); glVertex2f(          0,           0);
    glColor3f(0,1,0); glVertex2f(          0, ViewPort[3]);
    glColor3f(0,0,1); glVertex2f(ViewPort[2], ViewPort[3]);
    glColor3f(1,1,0); glVertex2f(ViewPort[2],           0);
  glEnd;
 
  glMatrixMode(GL_PROJECTION);                    //in die ProjektionsMatrix
  glPopMatrix;                                    //alte Matrix wieder laden
 
  glMatrixMode(GL_MODELVIEW);                     //in die ModelMatrix
  glPopMatrix;                                    //alte Matrix wieder laden
 
  glClear(GL_DEPTH_BUFFER_BIT);                   //Tiefenbuffer löschen
end;

var Matrix: array[0..3, 0..3] of glFloat;
glGetFloatv(GL_MODELVIEW_MATRIX, @Matrix[0,0]);

[r1   u1   l1   px]
[r2   u2   l2   py]
[r3   u3   l3   pz]
[ 0    0    0    1]