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

[Kostia]

Я бы сказал, если бы знал...
Как работает поворот DXImageList1.Items[0].DrawRotate(DXDraw1.Surface, xClip, yClip, clip.Width, clip.Height, 0, 0.5, 0.5, trunc(mAngle));

Могу лишь только предположить
angle:=(ArcTan2(ymouse-yClip, xmouse -xClip)+pi)/pi*180;
angle:=(pi-ArcTan2(ymouse-yClip, xmouse -xClip))/pi*180;
и попробуй разные варианты разностей.

И вы возможно вычисляете угол относительно не той точки (xClip, yClip), когда нужно (xclip + clip.Width div 2, yClip + clip.Height div 2), т.е. относительно центра спрайта.

[KorDum]

центр спрайта определяется вот этими двумя параметрами, что в конце - ...0.5, 0.5...
это точный центр объекта

Я вообще флешер, там никаких проблем с этим не было, все просто -
angle = Math.atan2((_ymouse-clip._y), (_ymouse-clip._x));
То есть все то же самое, по сути

[Kostia]

Но ArcTan2 этого не знает и центр нужен не объекта, а точка на экране.
(x+width/2, y+height/2)
Поэтому, когда ArcTan2 рассчитает угол относительно не той точки а вы все же повернете спрайт относительно той что хотели(центра), то и будут возникать глюки.

[KorDum]

mAngle := arcTan2((ymouse - (yClip+clip.Height)), (xmouse - (xClip+clip.Width/2))) * 180/PI;

Вы это имели в виду? Если да, то все точно так же происходит, как и было до этого. Разве что смещение поворота при заведении курсора влево относительно clip стало еще большим

[Kostia]

Отлично! Теперь отнимай =)))
(x-width/2, y-height/2)
Возможно там система координат не такая

[KorDum]

если отнимать, то clip перестает смотреть точно на курсор, вместо это происходит уже другое смещение, на несколько десятков градусов в сторону)))
Но наблюдается все та же картина
Хоть убейте, не могу понять, ПОЧЕМУ же такое происходит

[Kostia]

Загрузи две программы без (x-width/2, y-height/2) и с ним, если это возможно, постараюсь точно ответить. Обычно это бывает из-за одного не правильно поставленного знака.

<-+-=-+->
И я бы лучше перешел на чистый API, типа OpenGL или Direct3D. Там все гораздо проще и нагляднее.

[KorDum]

дело в том, что я только недавно перешел на directX в делфи, мне посоветовали delphiX. Так вот, в архиве две папки с проектами - с дополнительной точкой и без

[Beermonza]

KorDum, напиши так:

angle := arcTan2((ymouse-yClip), (xmouse-xClip)) * 128/PI;

...очевидно японцы мерят углы по-особому, или потому, что 128 + 128 = 256 , т.е. полное количество значений, которое можно закодировать одним байтом ))) А вообще DrawRotate требует угол как Integer, начало 0 - на 3 часа, положительные числа поворачивают по-часовой, отрицательные - против.

[KorDum]

вот японцы! Прошу прощения, вырвалось)
Да, теперь все работает, как часы. Спасибо большое всем!

А вообще DrawRotate требует угол как Integer

я и отбрасываю дробную часть, чтоб поглучить целочисленное