Напишите пожалуйста за что отвечают строчки в программе

[Panda]

Вот программа:

Program koleso;
uses crt,graph;
var
 i:integer;
driver,mode:integer;
path:string;
 x1,x2,y1,y2,x11,x12,y11,y12:integer;
procedure paint;
 begin
 
{///////////////////}
   setcolor(15);
   x1:=round(20*cos(i/120*pi)+82+i);
   y1:=round(20*sin(i/120*pi)+256);
   x2:=round(20*cos(i/120*pi+pi)+82+i);
   y2:=round(20*sin(i/120*pi+pi)+256);

  line(x1,y1,x2,y2);
   x11:=round(20*cos(i/120*pi+pi/2)+82+i);
   y11:=round(20*sin(i/120*pi+pi/2)+256);
   x12:=round(20*cos(i/120*pi+pi+pi/2)+82+i);
   y12:=round(20*sin(i/120*pi+pi+pi/2)+256);
   line(x11,y11,x12,y12);
   setcolor(15);
  circle(82+i, 256,20);
   circle(82+i, 256,30);
    delay(2000);
  setcolor(0);
{///////////////////}

 end;
begin
 i:=-100;
 driver:=vga;
 mode:=vgahi;
path:='g:\bp\bgi';
 initgraph(driver,mode,path);   
  
 repeat  
 inc(k);   
  
 paint;   
 delay(200);   
 cleardevice;   
 inc(i);   
 if i=660 then i:=-280;   
until KeyPressed;   
closegraph;     
end.

[Stilet]

Загляни сюда - ответ бедет примерно такой же.

+ смотри в хелп.

[Карась]

Сообщение от Stilet

Загляни сюда - ответ бедет примерно такой же.

+ смотри в хелп.

Забыл ссылку приципить...

Панда, а кто этот код писал? Вроде как это Ваше творение...