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

[BLACK_RAIN]

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

a:=2*pi-a;

А это зачем? Без этого нормально работает, а с этим фигня какая-то получается.

[Аватар]

а с этим фигня какая-то получается

А ты погоняй по всем диапазонам углов

[BLACK_RAIN]

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

А ты погоняй по всем диапазонам углов

Гонял. Без этой строчки работает во всех диапазонах. А с ней ось как будто зеркально переворачивается. Там где 20, там 340 и т.д. А линия вообще не понятно в какую сторону рисуется.

[Аватар]

А при чем здесь линия? Это преобразование нужно делать после отрисовки по старой формуле ))

[BLACK_RAIN]

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

Это преобразование нужно делать после отрисовки по старой формуле ))

ок, протупил.
но ось всё-равно перевёрнутая получается.

[Аватар]

но ось всё-равно перевёрнутая получается.

Ну и ладушки, у меня все Ok

[BLACK_RAIN]

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

Ну и ладушки, у меня все Ok

интересно, почему так?
скиньте весь юнит, если можно

[Аватар]

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

procedure TForm1.FormClick(Sender: TObject);
const x = 300; y = 300; r = 100;
var xPos: TPoint;
    xAngle: Real;
begin
  xPos:=ScreenToClient(Mouse.CursorPos);
  if xPos.X<>x then begin
    xAngle:=ArcTan((xPos.Y-y)/(xPos.X-x));
    if xPos.X<x then xAngle:=xAngle+pi;
  end  
  else if xPos.Y>y then xAngle:=pi/2
  else xAngle:=pi/2+pi;
  DrawAngle(x,y,r,xAngle);
  if xAngle<0 then xAngle:=xAngle+2*pi;
  xAngle:=2*pi-xAngle;
  Edit1.Text:=FloatToStr(xAngle*180/pi);
end;

ps только не нужно рисовать на канвас формы в onclick )) это по быстрому набросал для демонстрации

[BLACK_RAIN]

аватар
Сейчас попробовал ваш код. Работает.
но остаётся вопрос:

  xAngle:=2*pi-xAngle;

Для чего нужна эта строчка?
Я пробовал и с ней и без нее. Она просто инвертирует ось против часовой стрелки. То есть, без нее ось такая: 0 справа, 90 внизу, 180 слева, 270 вверху. А с ней: 0 справа, 270 внизу, 180 слева, 90 вверху.
Больше эта строчка не делает ничего. Во всяком случае, другого эффекта я не вижу.

[Аватар]

Нет часовой стрелки. Просто угол пересчитывается относительно оси Y вверх направленной. Если убрать её и предыдущую, то 30 градусов отобразится как -30 или 330