Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

ubgi

Object Pascal bindings for SDL_bgi library

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

ubgi

Object Pascal bindings for SDL_bgi library.

Repository structure -

  • ubgi.pas - Pascal API unit.
  • bin - Dynamic Windows libraries v2.4.3.
  • examples - Pascal port of some original examples.
  • include - C API v2.4.3 header file.

Usage example

pascal
program exus;
{$IF Defined(FPC)}{$MODE Delphi}{$ENDIF}
{$APPTYPE Console}

uses ubgi;

var
  gd, gm: Integer;
  info: String;

begin
  gd := DETECT; gm := VGAHi;

  InitGraph(gd, gm, '');
  SetColor(BLUE);
  SetBkColor(WHITE);

  info := 'SDL_bgi & Object Pascal';
  SetTextStyle(SimplexFont, HorizDir, 0);
  OutText(info);
  ReadKey();

  CloseGraph();
end.

Building example

Embarcadero Delphi compiler -

pascal
dcc64 -B -U.. exus.pas

Free Pascal compiler -

pascal
fpc -B -Fu.. exus.pas

Screenshots

fonts

plasma

psychedelia

kaleido

turtledemo