нарисовать линию от точки А по направлению к точке Б в пределах радиуса

[BLACK_RAIN]

Здравствуйте, товарищи!
Есть код, который рисует линию по кругу:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(n,2);
  if n>=360 then
  n := 0;
  Canvas.FillRect(ClientRect);
  DrawAngle(Width div 2, Height div 2, 100, n);
end;

procedure TForm1.DrawAngle(x,y,radius, angle : Integer);
begin
  Canvas.MoveTo(x,y);
  Canvas.Ellipse(x-radius,y-radius,x+radius,y+radius);
  Canvas.LineTo(Round(x + Cos(angle/180*pi)*radius),
                          Round(y + Sin(angle/180*pi)*radius));
end;

Как нарисовать эту линию по направлению к заданной точке?

[Аватар]

Центр окружности, горизонтальная ось через центр и та та точка треугольник образуют. Вычисли угол и воспользуйся своей же DrawAngle. Я бы angle сразу в радианах передавал ))

ps

тангенс того угла (y1-y0)/(x1-x0)
x0,y0 - центр окружности
x1,y1 - заданная точка

[BLACK_RAIN]

Сообщение от Аватар

Центр окружности, горизонтальная ось через центр и та та точка треугольник образуют. Вычисли угол

Я знаю что надо угол вычислить, но у меня с математикой не лады, по-этому и спрашиваю.

[Аватар]

у меня с математикой не лады

Не, ну прямоугольный треугольник это даже не математика, а арифметика 7-8 класса ))

[Serge_Bliznykov]

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

Как нарисовать эту линию по направлению к заданной точке?

а что значит - к "заданной точке" ?
Точка чем задана?

если углом, то код уже есть.
если координатами, то Canvas.Line() или LineTo() решают эту задачу вообще без всяких вычислений.

Или я что-то не понял?

[Аватар]

ТС же видимо нужно что бы за пределы окружности луч не выходил

[Serge_Bliznykov]

Сообщение от Аватар

ТС же видимо нужно что бы за пределы окружности луч не выходил

ага. спасибо. ну так хоть понятно стало, что же нужно.

[BLACK_RAIN]

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

Точка чем задана?

позиция курсора мыши, например

Сообщение от Аватар

ТС же видимо нужно что бы за пределы окружности луч не выходил

именно так.
или наоборот - чтобы уходил дальше заданной точки.
у меня единственная проблема - как вычислить угол до этой точки

[Аватар]

DrawAngle(x,y,r,ArcTan((y0-y)/(x0-x)));

ну только последний аргумент в радианах и Real. Да, и x<>x0, иначе облом ))

[BLACK_RAIN]

Сообщение от Аватар

последний аргумент

а куда его, я, естественно, не понял.
x0,y0 - искомая точка?