Определение угла для заданной точки

[Yashied]

Функция возвращает значение угла (в градусах) относительно центра координат [$XC;$YC] для точки с координатами [$X;$Y]. Все координаты задаются относительно левого верхнего угла окна. В случае возникновения ошибки функция возвращает (-1) и устанавливает @error в 1.

MsgBox(0, '', _Angle(@DesktopWidth / 2 - 100, @DesktopHeight / 2 - 100, @DesktopWidth / 2, @DesktopHeight / 2))

Func _Angle($X, $Y, $XC, $YC)

	If ($X = $XC) And ($Y = $YC) Then
		Return SetError(1, 0, -1)
	EndIf

	Local $Grad = ($Y > $YC) * 180 - ATan(($XC - $X) / ($YC - $Y)) * 180 / 3.1415926535897932384626 + 90

	If $Grad = 360 Then
		$Grad = 0
	EndIf
	Return $Grad
EndFunc   ;==>_Angle

 

[damien2008]

знаю, что тема давняя, но мне только-что пригодилась
Yashied,
это крайне полезная функция!
я, для pi, значение считаю так:

$pi = 4 * atan(1)

может кому пригодится)

 

[ggzgamer]

И интересно для чего пригодилось, если не секрет?

 

[damien2008]

не секрет
пишу скрипт, который..
в общем пишет текст путем прорисовки букв пером, например в любом графическом редакторе.
8)