İki nokta arasındaki açı kaç derece
İki nokta arasındaki açı kaç derece Kod: Kodu kopyalamak için üzerine çift tıklayın! function RelativeAngle(X1,Y1, X2,Y2 : Integer) : Integer;
var
Theta : Extended;
XDist,
YDist : Integer;
begin
Result := 0;
//arctan((y2-y1)/(x2-x1))
XDist := X2 - X1;
YDist := Y1 - Y2;
if (XDist = 0) and (YDist=0) then exit;
if YDist=0 then
Theta := arctan((X2-X1))
else
Theta := arctan((X2-X1)/(Y1-Y2));
Result := Round(RadToDeg(Theta));
if (X2 >= X1) and (Y2 >= Y1) then //Quadrant = 2
Result := 90+(90-Abs(Result))
else
if (X2 <= X1) and (Y2 >= Y1) then //Quadrant = 3
Result := 180 + Result
else
if (X2 <= X1) and (Y2 <= Y1) then //Quadrant = 4
Result := 270+90-Abs(Result);
end;
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|