[Platon]

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

Function Distance2D#(x1#,y1#,x2#,y2#)
Local nx#=Abs(x1-x2) ;Длина горизонтального Катета
Local ny#=Abs(y1-y2) ;Длина Вертикального Катета
Return Sqr((nx*nx)+(ny*ny)) ;Длина Гипотенузы
End Function

Модуль здесь не нужен (Abs)

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

Function NVtoA#(sx#,sy#,tx#,ty#)
Return (360-(ATan2((tx-sx),(ty-sy))+180))
End Function

А здесь надо упростить

Return 180 - ATan2((tx-sx),(ty-sy))