// Main

with 'System.apc';
with 'Math.apc';
with 'String.apc';
with 'OpenGL.apc';
with 'glfw3.apc';
//

// Math & Physics

with 'VectorGeometry.apc';

// GAPI

// Engine
//with 'Memory.apc';
//with 'GameCore.apc';

//
//var
//    Game : TGame;

var
    MainWindow : ^GLFWwindow;
    width, height : Single;

begin
    GL_LibHandle := nil;
    GLU_LibHandle := nil;
    //
    InitOpenGL('OpenGL32.dll', 'GLU32.dll');
    ReadOpenGLCore;
    glfwInit;

    width := 640;
    height := 480;

    MainWindow := glfwCreateWindow (640, 480, 'Hello World with OpenGL :)', nil, nil);
    glfwMakeContextCurrent (MainWindow);
    glfwSwapInterval( 0 );

    //
    while (glfwWindowShouldClose(MainWindow) <> 1) do
    begin
     glViewport( 0, 0, width, height );

     // Clear color buffer
     glClearColor( 0.0, 0.0, 0.0, 0.0 );
     glClear( GL_COLOR_BUFFER_BIT );

     // Select and setup the projection matrix
     glMatrixMode( GL_PROJECTION );
     glLoadIdentity;
     gluPerspective( 65.0, 1.33, 1.0, 100.0 );

     // Select and setup the modelview matrix
     glMatrixMode( GL_MODELVIEW );
     glLoadIdentity;
     gluLookAt ( 0.0, 1.0, 0.0,    // Eye-position
        0.0, 20.0, 0.0,   // View-point
        0.0, 0.0, 1.0 );  // Up-vector

     // Draw a rotating colorful triangle
     glTranslatef( 0.0, 14.0, 0.0 );
     //glRotatef( 0.3*1 + 1*100.0, 0.0, 0.0, 1.0 );
     glBegin( GL_TRIANGLES );
     glColor3f( 1.0, 0.0, 0.0 );
     glVertex3f( -5.0, 0.0, -4.0 );
     glColor3f( 0.0, 1.0, 0.0 );
     glVertex3f( 5.0, 0.0, -4.0 );
     glColor3f( 0.0, 0.0, 1.0 );
     glVertex3f( 0.0, 0.0, 6.0 );
     glEnd;

     glFlush;
     glfwSwapBuffers (MainWindow);
     glfwPollEvents;
    end;
    //
    glfwDestroyWindow (MainWindow);
    glfwTerminate;
    //

end.