두점 각도 계산
Delphi 레퍼런스 / 2011/07/04 14:43
function Angle(Pt1, Pt2: TPoint): Double; // 각도 계산
begin
Result := ArcTan((Pt1.Y - Pt2.Y) / (Pt2.X - Pt1.X));
end;
begin
Result := ArcTan((Pt1.Y - Pt2.Y) / (Pt2.X - Pt1.X));
end;
