Skip to content

Instantly share code, notes, and snippets.

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)...');