Objekte drehen

[Mischn]

Ich möchte ein Spiel programmieren, in dem man ein Objekt, wie z.B: ein Image durch einen Tastendruck um einen bestimmten Winkel (um die eigene Achse) drehen kann. Wie soll ich das anstellen?

[mkinzler]

In dem du das Bild drehst oder verschiedene Bilder im gedrehten Zustand nimmst.

[Mischn]

Zitat von mkinzler:

In dem du das Bild drehst oder verschiedene Bilder im gedrehten Zustand nimmst.

Wie drehen?

[Der_Unwissende]

Zitat von Mischn:

Ich möchte ein Spiel programmieren, in dem man ein Objekt, wie z.B: ein Image durch einen Tastendruck um einen bestimmten Winkel (um die eigene Achse) drehen kann. Wie soll ich das anstellen?

Hi,
du gibst ehrlich gesagt etwas wenig Informationen raus. Ist ein Image ein Beispiel oder möchtest du mit einem Image arbeiten? Und wenn du mit einem Image arbeitest, was verstehst du dann unter einem Objekt? Möchtest du wirklich das gesamte Image drehen?

Was Spiele angeht, so werden die ja im Moment gerne für die Schnittstellen DirectX oder OpenGL geschrieben (greifen auf diese zurück). Diese bieten auch was 2D angeht jede Menge Funktionen, vorallem findest du hier schon alles zum Rotieren von Körpern.

Was das rotieren von Bildern (insbesondere Bitmaps) angeht, so musst du nur die Suche bemühen.

Gruß Der Unwissende

[mkinzler]

Bitmap drehen

[inherited]

Schau dir f+ür deinen Zweck lieber mal DelphiX an. Damit kann man Bilder sehr viel einfacher und CPU-Freundlicher drehen.
TImageSpriteEx beherbergt die eigenschaft "Angle" welche einfach verändert werden kann.

[generic]

in der gdi+ sind (sogar schnelle) drehroutinen drin.

[Mischn]

OK, werd ich machen!

[Hawkeye219]

Hallo Mischn,

falls du am Anfang auf GDI+ und DelphiX verzichten möchtest, kannst du auch mit dem "alten" GDI eine Bitmap drehen:

Delphi-Quellcode:

// uses Math (SinCos)

// zeichnet eine verdrehte Bitmap auf einem Canvas
// aAngle ist der Drehwinkel im Uhrzeigersinn in Grad
// aOffsetX, aOffsetY gibt den Offset für das Zeichnen an

procedure DrawRotatedBitmap (aCanvas: TCanvas;  aBitmap: TBitmap;
                             aAngle: Double;  aOffsetX, aOffsetY: Integer);
var
  svMode: Integer;
  Mat, svMat: tagXFORM;
  si, co: Extended;
begin
  // aktuellen Zustand retten
  svMode := SetGraphicsMode(aCanvas.Handle, GM_ADVANCED);
  if (svMode = GM_ADVANCED) then
    GetWorldTransform(aCanvas.Handle, svMat);
  // Verschiebung in den Usprung
  FillChar (Mat, SizeOf(Mat), 0);
  Mat.em11 := 1.0;
  Mat.em22 := 1.0;
  Mat.eDx := -(aOffsetX + aBitmap.Width / 2);
  Mat.eDy := -(aOffsetY + aBitmap.Height / 2);
  SetWorldTransform(aCanvas.Handle, Mat);
  // Verdrehung
  SinCos (aAngle * Pi / 180, si, co);
  FillChar (Mat, SizeOf(Mat), 0);
  Mat.em11 := co;
  Mat.em12 := si;
  Mat.em21 := -si;
  Mat.em22 := co;
  ModifyWorldTransform(aCanvas.Handle, Mat, MWT_RIGHTMULTIPLY);
  // Zurückschieben
  FillChar (Mat, SizeOf(Mat), 0);
  Mat.em11 := 1.0;
  Mat.em22 := 1.0;
  Mat.eDx := (aOffsetX + aBitmap.Width / 2);
  Mat.eDy := (aOffsetY + aBitmap.Height / 2);
  ModifyWorldTransform(aCanvas.Handle, Mat, MWT_RIGHTMULTIPLY);
  // Bitmap zeichnen
  aCanvas.Draw(aOffsetX, aOffsetY, aBitmap);
  // alten Zustand wiederherstellen
  if (svMode = GM_ADVANCED) then
    SetWorldTransform(aCanvas.Handle, svMat)
  else
    SetGraphicsMode(aCanvas.Handle, svMode);
end;

Gruß Hawkeye

[torud]

Wie funktioniert das Ganze mit PNG???

Habe schon versucht BMP.Assign := blabla, aber es funzt einfach nicht...