Hiho,
da ich damals vielleicht noch etwas wenig Mathe konnte, wollte ich nun alles neu anpacken:
Das "rotierte" Zeichnen und Bewegen von Dingen wie Autos etc.
Hab zwar bis heute keinen Kosinus, Sinus oder sonstwas gehabt, aber nun hab ichs zumindest mal hinbekommen.
Ein "Fehler" hat es aber noch:
Wenn ich den Spieler bewege, sieht das immer so abgehackt aus.
Kann man das nicht irgendwie ändern?
Ich gehe wie folgt vor:
Ich hab einen DXTImer, in dem per GetAsyncKeyState auf Links/Rechts geprüft wird und die Variable "PAngle" dementsprechend +/- 0.02 gesetzt wird.
Meine Prozedur zum neu-Berechnen und Zeichnen sieht wie folgt aus:
Delphi-Quellcode:
procedure TForm1.Draw;
begin
if not Form1.DXDraw1.CanDraw then
Exit;
PPos.X := Floor(PPos.X + (sin(PAngle) * 1.5));
PPos.Y := Floor(PPos.Y - (cos(PAngle) * 1.5));
Form1.DXDraw1.Surface.Fill(0);
Form1.DXImageList1.Items.Find('Player').DrawRotate(Form1.DXDraw1.Surface, PPos.X, PPos.Y, 10, 10, 0, 0.5, 0.5, Floor(PAngle));
Form1.DXDraw1.Flip;
end;
PPos ist ein TPoint und PAngle ein Extended.
Wie gesagt, das alles funktioniert zwar, ist aber sehr abgehackt.
What do do?
Danke schonmal
air
P.S.: Das alles ist nur ein Testprojekt für mich, also noch nicht so sehr darauf achten, dass ich das nicht in ein record packe oder so
