Поворот за мышью???

[KorDum]

Здравствуйте, решил не создавать еще одну тему, посвященную этому же сабжу. Все сделал, как надо бы, но вот картинка поворачивается на промежутке [-90; 90] нормально, но вот если значение angle выходит за пределы этого промежутка, поворот картинки инвертируется. Такое случается, если курсор находится сзади исходной картинки.
Пожалуйста, помогите.

function TForm1.getAngle(Y, X: Real):Real;
begin
    result := ArcSin(Y/Sqrt(X*X + Y*Y)) * 180/Pi;
end;

// Где-то в какой-то процедуре

mAngle := getAngle((ymouse-yPlayer), (xmouse-xPlayer));

[KorDum]

или же вот аналог:

mAngle := arcTan((ymouse-yPlayer)/(xmouse-xPlayer))*180/Pi;

эффект от обоих случаев одинаковый. В ходе проверки, какие же значения могут быть у mAngle, установилось, что mAngle должно принадлежать промежутку [-135; 135]. Должно, но не принадлежит...

[Kostia]

используй ArcTan2(y, x);
ArcTan2(0,1) - 0 радиан
ArcTan2(0,-1) - 3,14 радиан

mAngle := arcTan2((ymouse-yPlayer),(xmouse-xPlayer))*180/Pi;

А это комментарии к функциям в самой библиотеке Math:

{ Trigonometric functions }
function ArcCos(const X: Extended): Extended;  { IN: |X| <= 1  OUT: [0..PI] radians }
function ArcSin(const X: Extended): Extended;  { IN: |X| <= 1  OUT: [-PI/2..PI/2] radians }

{ ArcTan2 calculates ArcTan(Y/X), and returns an angle in the correct quadrant.
  IN: |Y| < 2^64, |X| < 2^64, X <> 0   OUT: [-PI..PI] radians }
function ArcTan2(const Y, X: Extended): Extended;

+ Пользуйся Help'ом

[KorDum]

теперь угол правильного обзора увеличился, но вот наблюдается сильное искажение поворота, когда курсор приближается к задней части спрайта. И если mAngle переходит границу, где значение становится меньше -180 или больше 180, то оно инвертируется, то есть -180 становится 180 и наоборот.

[Beermonza]

Можно ведь выполнить проверку на координаты курсора, и применять разное вычисление угла.

[KorDum]

Была такая идея, конечно же, но реализовать ее не получилось. Можете помочь?

[Beermonza]

Координаты на экране объекта поворота есть? ...координаты мыши - есть, ...делаем условие, как вы сказали: "если курсор сзади картинки", то одно вычисление, иначе - другое, ...я не видел кода, где это "сзади" или "спереди" смутно представляю, и поэтому все чисто теоретически, стоит проверить.

[Kostia]

ЫЫ. Я что-то совсем не понимаю, попробуй поменять разность мышки и игрока
mAngle := arcTan2((yPlayer-ymouse),(xPlayer-xmouse))*180/Pi;

[KorDum]

пардон, не совсем сзади, слева от спрайта. если mAngle = 0, то спрайт повернут вправо. Поэтому можно считать, что сзади = слева
а код простой:

//инициализация
clip := Form1.DXImageList1.Items[0];

//сама формула вывода
mAngle := arcTan2((ymouse - yClip), (xmouse - xClip)) * 180/PI;

//вывод спрайта clip
DXImageList1.Items[0].DrawRotate(DXDraw1.Surface, xClip, yClip,
          clip.Width, clip.Height, 0, 0.5, 0.5, trunc(mAngle));

вот как-то так. Это просто вырезки из кода, но, я думаю, вы поймете логически, что в какой процедуре должно находиться

[KorDum]

Kostia, ваша поправка просто инвертировала управление спрайтом - поворот и переднюю часть