program q;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes,
sysutils, video, crt,dos,graph, WinCrt, Windows;
var error, tryb, sterownik : smallint;
var i, pozycjax1, pozycjay1, pozycjax2, pozycjay2 : integer;
var maksX, maksY : string;
ustawienia_tekstu : TextSettingsType;
//===========================================================
// Graph init //
//===========================================================
begin
sterownik := D4bit;
tryb := m640x480;
initgraph(sterownik,tryb,'');
{ Make sure you always check graphresult! }
error := graphResult;
if (error <> grOk) Then
begin
writeln('640x200x15 is not supported!');
halt(1)
end;
{ We are now in 640x200x15 }
//setColor(cyan);
{ maksX := IntToStr(getmaxx);
maksY := IntToStr(getmaxy);
SetTextStyle(TSCRFont,0,3);
MoveTo(0,0);
OutText(maksX);
MoveTo(0,30);
OutText(maksY);
MoveTo(0,60);
OutText('To jest tekst');
}
setColor(red);
setfillstyle(solidfill,12);
Circle(20,20,5);
// setfillstyle(solidfill,random(14)+1);
// floodfill(21,20,15);
FloodFill ( 26, 21, red, green );
// FloodFill(22,28,2,red);
SetLineStyle(0,1,2);
setColor(green);
Line(0,0,getmaxx,0);
Line(getmaxx,0,getmaxx,getmaxy);
Line(getmaxx,getmaxy,0,getmaxy);
Line(0,0,0,getmaxy);
{ for i:=0 to 1 do
begin
setColor(red);
Line(0,i,getmaxx,i);
setColor(red);
Line(0,i+1,639,i+1);
setColor(blue);
Line(0,i+2,639,i+2);
setColor(blue);
Line(0,i+3,639,i+3);
setColor(yellow);
Line(0,i+4,639,i+1);
setColor(yellow);
Line(0,i,639,i);
setColor(red);
Line(0,i,639,i);
setColor(red);
Line(0,i,639,i);
setColor(white);
Line(0,i,639,i);
setColor(white);
Line(0,i,639,i);
}
// end;
{ GetTextSettings(ustawienia_tekstu);
writeln ('Font : ', ustawienia_tekstu.Font);
writeln ('Kierunek : ', ustawienia_tekstu.direction);
writeln ('Wielkosc font : ', ustawienia_tekstu.charsize);
writeln ('Pozioma pozycja : ', ustawienia_tekstu.horiz);
writeln ('Pionowa pozycja : ', ustawienia_tekstu.vert);
}
readln();
end.