在DX里如何让图片旋转

tjpanda88

如何让图片围绕某个确定的点旋转?
我用的是.NET+DX9

wangh

3个矩阵

第一个，移动位置，使移动的中心点=原点
第二个，旋转
第三个，移回到原来的位置

最后依此合并这3个矩阵

游戏之家

人家根本不是问你这个。


http://bbs.GameRes.com/upload/sf_20062111437.rar

sandy_zc_1

wangh: Re:在DX里如何让图片旋转

3个矩阵

第一个，移动位置，使移动的中心点=原点
第二个，旋转
第三个，移回到原来的位置

最后依此合并这3个矩阵

正解。至少D3D是这样。

游戏之家

azureyes: Re:在DX里如何让图片旋转

贴个没有代码的EXE,还不如楼上了.

我回答的是两个问题，和EXE无关。

tjpanda88

wangh: Re:在DX里如何让图片旋转

3个矩阵

第一个，移动位置，使移动的中心点=原点
第二个，旋转
第三个，移回到原来的位置

最后依此合并这3个矩阵

原理明白,可不太明白代码应该如何写,能不能写个例子.多谢了 :-)

wangh

    Public Sub Draw(ByVal x As Single, ByVal y As Single, ByVal angle As Single)
        Dim tMStart As Matrix = Matrix.Translation(-x, -y, 0) '移向原点的矩阵
        Dim tMRota As Matrix = Matrix.RotationZ(angle) '旋转矩阵
        Dim tMEnd As Matrix = Matrix.Translation(x, y, 0) '移回原来位置的矩阵
        tMRota.Multiply(tMEnd)
        tMStart.Multiply(tMRota)
        mSprite.Transform = tMStart '设置矩阵
        mVector.X = x + CenterX '中心点偏移
        mVector.Y = y + CenterY
        mSprite.Draw(mTex, New Vector3, mVector, &HFFFFFFFF)
    End Sub

wangh

跟踪执行了一下，发现MDX库里的一些函数效率低得可怕
改成手动生成变换矩阵，速度快两倍左右

    Public Shared ReadOnly MatrixIdentity As Matrix = Matrix.Identity
    Public Sub Draw(ByVal x As Single, ByVal y As Single, ByVal angle As Single)
        Dim tMStart As Matrix = MatrixIdentity '移向原点的矩阵
        tMStart.M41 = -x
        tMStart.M42 = -y
        Dim tMRota As Matrix = MatrixIdentity '旋转矩阵
        Dim tCosV As Single = Math.Cos(angle)
        Dim tSinV As Single = Math.Sin(angle)
        tMRota.M11 = tCosV
        tMRota.M21 = -tSinV
        tMRota.M12 = tSinV
        tMRota.M22 = tCosV
        Dim tMEnd As Matrix = MatrixIdentity '移回原来位置的矩阵
        tMEnd.M41 = x
        tMEnd.M42 = y
        tMRota.Multiply(tMEnd)
        tMStart.Multiply(tMRota)
        mSprite.Transform = tMStart '设置矩阵
        mVector.X = x + CenterX '中心点偏移
        mVector.Y = y + CenterY
        mSprite.Draw(mTex, New Vector3, mVector, &HFFFFFFFF)
    End Sub

tjpanda88

厉害,我去研究一下.