program init;

{$ASSERTIONS ON}

uses graphics_2D;

procedure Test;
var
  vGraphics : I2DGraphics;
begin
  vGraphics := CreateFramebuffer(moColumnRow, 800, 600, pcRedGreenBlue, 8, 8, 8);
  vGraphics.ClearBox(0, 0, 800, 600, );
  vGraphics.DrawLine(0, 0, 800, 600);
  vGraphics.DrawLine(800, 0, 0, 600);
end;

begin
  Test;
end.