まわしてみた




昨日のコードをDelphi用に直しただけでできた。回した後はもとの変換行列に直すのを忘れずに。

こんな感じ。

Old := D3DSprite.Transform;

translationMatrix := Matrix.Translation(Pos – Center);

D3DSprite.Transform := Matrix.Invert(translationMatrix) * Matrix.RotationZ(dir) * translationMatrix;

D3DSprite.Draw(SpriteTexture, FRect, Center, Pos – Vector3.Create(Width / 2, Height / 2, 0), $FFFFFFFF);

D3DSprite.Transform := Old;



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です