program TestGLMac;

uses GL;

begin
  WriteLn('Pascal program starting...');
  WriteLn('This program will call a function from the GL unit.');

  WriteLn('Calling glClearColor(1.0, 0.0, 1.0, 1.0)...');

  glClearColor(1.0, 0.0, 1.0, 1.0); // Set clear color to magenta

  WriteLn('Call successful. Program linked against OpenGL.');
  WriteLn('Program finished.');
end.