델파이로 두점간의 각도를 알아내는 방법입니다.
Image를 가지고 이미지내에 기준점을 그리고 그점에서 파생된 여러 점들의 각도를 이용하여 최고 상위각과 하위각을 알아내야 하는 일을 처리하기위해 만들었습니다.
인터넷에서 공식을 얻은 뒤 나름대로 코딩을 해서 얻어 낸 내용입니다.
아래 내용은 12시방향을 기준으로 0도이고 시계방향으로 각도를 얻어 냅니다.
|
1 2 3 4 5 6 |
function Point2Angle( X1,Y1,X2,Y2 : Integer ) : Integer; begin Result := Round( ArcTan2( Y2 - Y1, X2 - X1 ) * 180 / PI + 90 ); if Result < 0 then Result := 360 + Result; end; |
좋은 하루되시기 바랍니다.
최신 댓글