Графика и анимация

program Spiral;
uses Graph,Crt;
var
  gDriver, gMode: Integer;
  r, a, arad: Real;
begin
  gDriver:=Detect;
  gMode:=0;
  InitGraph(gDriver, gMode, 'c:\bgi');
  ClearDevice;
  SetColor(White);
  Line(0, GetMaxY div 2, GetMaxX, GetMaxY div 2);
  Line(GetMaxX div 2, 0, GetMaxX div 2, GetMaxY);
  while a < 360 * 4 do begin
    arad := a * pi / 180;
    r := 2 * exp(0.2 * arad);
    PutPixel(Round(r*Sin(arad) + GetMaxX / 2),
             Round(r*Cos(arad) + GetMaxY / 2),
             Green);
    a := a + 0.1;
  end;
  while not KeyPressed do Delay(1);
  CloseGraph;
end.

program Spiral;
uses Graph,Crt;
 
Procedure InputData(var SpLine,SpDirection:integer);
begin
  write('Введите толщину линии (1-тонкая, 3-толстая)');
  read(SpLine);
  write('Выберите направление (1-нормальное, -1-вобратную сторону)');
  read(SpDirection);
end;
 
Procedure PrintSpiral(SpLine,SpDirection:integer);
var
  gDriver,gMode:Integer;
  r,a,arad:Real;
begin
  gDriver:=Detect;
  gMode:=0;
  InitGraph(gDriver,gMode,'c:\bgi');
  ClearDevice;
  SetColor(White);
  Line(0,GetMaxY div 2,GetMaxX,GetMaxY div 2);
  Line(GetMaxX div 2,0,GetMaxX div 2,GetMaxY);
  while a < 360 * 4 do begin
    arad := a * pi / 180;
    r := 2 * exp(0.2 * arad);
    SetLineStyle(0,1,SpLine);
    PutPixel(Round(SpDirection*r*Sin(arad) + GetMaxX / 2),
             Round(r*Cos(arad) + GetMaxY / 2),
             Green);
    a := a + 0.1;
  end;
  while not KeyPressed do Delay(1);
  CloseGraph;
end;
 
var l,d:integer;
begin
  InputData(l,d);
  PrintSpiral(l,d);
end.