#ifdef _WIN32
   #include <windows.h>
   #include <gl/gl.h>
   #define GLUT_DISABLE_ATEXIT_HACK
 #endif
 #include <GL/glut.h>

 //Funktion zur festlegung der Startbedinungen
 void InitGL(void);
 //GLUT-Funktionen
 void Render(void);
 void Resize(int width, int height);
 void SpecialKey(int key, int x, int y);

 // Variablen die Fenster-Eigenschaften speichern
 int wnd_width  = 800;
 int wnd_height = 600;

 // Variablen die die Szehne betreffen.
 float rotX=0;
 float rotY=0;

 int main(int argc, char **argv)
 {
   glutInit(&argc, argv);              //Initialsierung der GLUT-Bibliothek
   glutInitDisplayMode(  GLUT_DOUBLE | // doppelter Puffer
                         GLUT_DEPTH  | // Tiefen Puffer vorhanden
                         GLUT_RGB);    // Farbpuffer mit Rot,Grün und Blau
   glutInitWindowSize(wnd_width,wnd_height);            //Fenstergrösse festlegen(Breite, Höhe)
  // glutInitWindowPosition(100,100);        //Position des Fensters
   glutCreateWindow("Hallo Welt!");        //Fenstertitel

   InitGL();

   //Festlegen der Funktionen die GLUT verwenden soll    
   glutDisplayFunc(&Render); // Funktion zum zeichnen des Bildes
   glutReshapeFunc(&Resize); //Funktion die auf Größenänderungen des Fensers eingeht
   glutSpecialFunc(&SpecialKey);//Funktion zur Behandlung von Sondertasten z.B.: Pfeiltasten

   glutMainLoop();             //eine Art Endlosschleife des Programms
 }


 void InitGL(void)
 {
   glClearColor(0.0,0.0,0.0,0.0);          //Hintergrundfarbe
   glEnable(GL_DEPTH_TEST);// Tiefenpuffer nutzen
 }

 void SpecialKey(int key, int x, int y)
 {
   switch (key) {
   case GLUT_KEY_UP:
     rotX -= 5;
     break;
   case GLUT_KEY_DOWN:
     rotX += 5;
     break;
   case GLUT_KEY_LEFT:
     rotY -= 5;
     break;
   case GLUT_KEY_RIGHT:
     rotY += 5;
     break;
   default:
     return;
   }
   glutPostRedisplay();
 }

 void Resize(int width, int height)
 {
   glViewport(0, 0, (GLint)width, (GLint)height); 
   wnd_width = width;
   wnd_height= height;
 }

 void Render(void)
 {
   //Projektionsmatrix einstellen
   glMatrixMode(GL_PROJECTION);
   glLoadIdentity();
   gluPerspective(60.0, 1.0, 1.0, 200.0);     
 
   glMatrixMode(GL_MODELVIEW);
   glLoadIdentity();
   /* Modeltransformation ausfuehren... */
  
   glTranslatef (0.0, 0.0 ,-4.0);    // Verschiebung in z-Richtung nach hinten
   glRotatef (rotX, 1.0, 0.0, 0.0);  // Rotation um die x-Achse 
   glRotatef (rotY, 0.0, 1.0, 0.0);  // Rotation um die y-Achse
   glTranslatef (-0.5, -0.5 , -0.5); // Verschiebung
 
   glClear(GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT);   // Puffer leeren
   glBegin (GL_QUADS);
     glColor3f (0.0, 0.0, 0.0); glVertex3f (0.0, 0.0,0.0);
     glColor3f (1.0, 0.0, 0.0); glVertex3f (1.0, 0.0,0.0); 
     glColor3f (1.0, 0.0, 1.0); glVertex3f (1.0, 1.0,0.0);
     glColor3f (0.0, 0.0, 1.0); glVertex3f (0.0, 1.0,0.0); 
   glEnd ();
   //glFlush();   //Zeichnen
  
   /* Back-Buffer in den Front-Buffer kopieren. */
   glutSwapBuffers();
 }

program OpenGLTest;
uses
  gl,glu,glut;

var
  // Variablen die Fenster-Eigenschaften speichern
  wnd_width:Integer  = 800;
  wnd_height:Integer  = 600;

  // Variablen die die Szehne betreffen.
  rotX:Single=0;
  rotY:Single=0;

procedure InitGL; cdecl;
//Funktion zur festlegung der Startbedinungen
begin
  glClearColor(0.0,0.0,0.0,0.0);          //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);// Tiefenpuffer nutzen
end;

procedure SpecialKey(key,x,y:Integer);  cdecl;
begin
  case (key) of
   GLUT_KEY_UP:    rotX := rotX -5;
   GLUT_KEY_DOWN:  rotX := rotX +5;
   GLUT_KEY_LEFT:  rotY := rotY -5;
   GLUT_KEY_RIGHT: rotY := rotY +5;
  end;
  glutPostRedisplay;
end;

procedure Resize(width,height:Integer);cdecl;
begin
  glViewport(0,0,width,height);
  wnd_width := width;
  wnd_height := height;
end;

procedure Render; cdecl;
begin
  //Projektionsmatrix einstellen
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(60.0, 1.0, 1.0, 200.0);

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  (* Modeltransformation ausfuehren... *)

  glTranslatef (0.0, 0.0 ,-4.0);    // Verschiebung in z-Richtung nach hinten
  glRotatef (rotX, 1.0, 0.0, 0.0);  // Rotation um die x-Achse
  glRotatef (rotY, 0.0, 1.0, 0.0);  // Rotation um die y-Achse
  glTranslatef (-0.5, -0.5 , -0.5); // Verschiebung

  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);   // Puffer leeren
  glBegin (GL_QUADS);
    glColor3f (0.0, 0.0, 0.0); glVertex3f (0.0, 0.0,0.0);
    glColor3f (1.0, 0.0, 0.0); glVertex3f (1.0, 0.0,0.0);
    glColor3f (1.0, 0.0, 1.0); glVertex3f (1.0, 1.0,0.0);
    glColor3f (0.0, 0.0, 1.0); glVertex3f (0.0, 1.0,0.0);
  glEnd;

  (* Back-Buffer in den Front-Buffer kopieren. *)
  glutSwapBuffers();
end;


begin
  glutInit(@argc, argv);              //Initialsierung der GLUT-Bibliothek
  glutInitDisplayMode(  GLUT_DOUBLE or // doppelter Puffer
                        GLUT_DEPTH  or // Tiefen Puffer vorhanden
                        GLUT_RGB);     // Farbpuffer mit Rot,Grün und Blau
  glutInitWindowSize(wnd_width,wnd_height);            //Fenstergrösse festlegen(Breite, Höhe)
 // glutInitWindowPosition(100,100);        //Position des Fensters
  glutCreateWindow('Hallo Welt!');        //Fenstertitel

  InitGL();

  //Festlegen der Funktionen die GLUT verwenden soll
  glutDisplayFunc(@Render); // Funktion zum zeichnen des Bildes
  glutReshapeFunc(@Resize); //Funktion die auf Größenänderungen des Fensers eingeht
  glutSpecialFunc(@SpecialKey);//Funktion zur Behandlung von Sondertasten z.B.: Pfeiltasten

  glutMainLoop();             //eine Art Endlosschleife des Programms
end.