/ubgi

Object Pascal bindings for SDL_bgi library

Primary LanguagePascal

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

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 -

dcc64 -B -U.. exus.pas

Free Pascal compiler -

fpc -B -Fu.. exus.pas

Screenshots

fonts

plasma

psychedelia

kaleido

turtledemo