Current File : /www/varak.cloud/img.varak.cloud/img/foto-old/KOKOS04/Další/Dokumenty/oko farba a klamy/CREATER.PAS
program seda;
uses Graph,crt;
label jedna;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
i,x,y:integer;
slow:integer;
c:char;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,' ');
ErrCode := GraphResult;
if ErrCode = grOk then begin { Do graphics }
cleardevice;
for i:=1 to trunc(getmaxx/2) do begin
if (i mod 2)=0 then setcolor(yellow)
else setcolor(magenta);
line(i,0,i,trunc(getmaxy/2));
setcolor(lightred);
line(i,trunc(getmaxy/2),i,getmaxY);
end;
setcolor(red);
for i:=trunc(getmaxx/2) to getmaxx do begin
line(i,0,i,getmaxx);
end;
randomize;
c:=readkey;
if (c='S') or (c='s') then slow:=1 else slow:=0;
repeat
delay(slow);
x:=trunc(GetmaxX/2)+random(trunc(GetmaxX/2));
y:=trunc(random(GetMaxY));
putpixel(x,y,white);
until keypressed;
readkey;readkey;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.
Mini Shell