Here is my code that I use to get an angle:
ArcTan2 and PI defined in Math.pasCode:Angle := round((180 * (1 + ArcTan2((X1-X2), (Y1-Y2)) / PI))); if Angle < 0 then Angle := 360-Angle; if Angle > 360 then Angle := Angle-360;
Then you just need something like this:
Code:ImageNumber := round((Angle/360)*NumberOfImages);
Bookmarks