Skip to content

Instantly share code, notes, and snippets.

@antonc27

antonc27/gist:d72935db037934aa60b3615c1a9a0130

Created October 26, 2025 21:15
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save antonc27/d72935db037934aa60b3615c1a9a0130 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save antonc27/d72935db037934aa60b3615c1a9a0130 to your computer and use it in GitHub Desktop.
Download ZIP
FPC test GL function
Raw
gistfile1.txt
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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment