Поворот линии Опции

[pashist]

Всем привет. Есть линия от A до B.
A _______________ B
Как заставить её поворачиваться вокруг центра А, чтобы при этом длина линии не изменялась, с помощью клавиш курсора? Для простоты понятия: допустим, что А-это центр окружности, AB-ее радиус. Мне нужно, чтобы линия AB описывала эту окружность.

[Archon]

Это ты так просто линию вращаешь? Круто...

Мой вариант попроще, но может на что и сгодится

Uses Graph,Crt;

Const
  Left  = #75;
  Right = #77;
  Up    = #72;
  Down  = #80;

Var
  GD, GM: Integer;

Procedure DrawHunter;
Var
  x0, y0, x1, y1, r : Integer;
  c : Char;
  t : Real;
Begin
  x0 := 320;
  y0 := 240;
  x1 := r + x0;
  y1 := y0;
  r  := 199;
  t  := 0;
  Circle(x0, y0, 200);
  repeat
    c := ReadKey;
    case c Of
      Left:  t := t - 0.01;
      Right: t := t + 0.01;
    end;
    if (t >= 2 * Pi) or (t <= -2 * Pi) then t := 0;
    SetColor(Black);
    Line(x0, y0, x1, y1);
    x1 := Round(r * cos(t)) + x0;
    y1 := Round(r * sin(t)) + y0;
    SetColor(White);
    Line(x0, y0, x1, y1);
    SetColor(Blue);
    SetFillStyle(1, Blue);
    PieSlice(320, 240, 0, 360, 10);
    SetColor(Green);
    SetFillStyle(1, Green);
    PieSlice(320, 240, 0, 360, 6);
  until c = #27;
end;

begin
     GD := Detect;
     InitGraph(GD, GM, '');
     DrawHunter;
end.