DGL • Thema anzeigen - Problem mit Timebased Movement

Problem mit Timebased Movement

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Spessi

Betreff des Beitrags: Problem mit Timebased Movement

Verfasst: Mo Aug 15, 2005 19:47

DGL Member

Registriert: Mo Aug 15, 2005 19:29
Beiträge: 38

Hi ihr.. ist mein erster Post hier und schon gleich ein Problem

Ich habe mir für meine 2d-Anwendung aus dem Bomberman-Tut das Teil mit der Zeitbasierten Bewegung durchgelesen und versucht, bei mir umzusetzen. Ging auch soweit, nur jetzt hab ich was gemacht und wenn ich bei Speed mehr als 5 mache, "springt" das richtig, also vorher konnte ich Speed auf 100 setzen und es ging Flüssig voran, jetzt muss ich Speed auf 1 bzw. 2 setzen, damit es wenigstens etwas schneller geht, als ohne Speed. Naja ich geb euch mal den Bereich, wo es drin steht:

Code:

 
procedure TGLForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
var
 QPCStartCount, QPCEndCount : Int64;
begin
QueryPerformanceCounter(QPCStartCount);  // Timer
// In die Projektionsmatrix wechseln
glMatrixMode(GL_PROJECTION);
// Identitätsmatrix laden
glLoadIdentity;
// Viewport an Clientareal des Fensters anpassen
glViewPort(0, 0, ClientWidth, ClientHeight);
// Perspective, FOV und Tiefenreichweite setzen
gluPerspective(60, ClientWidth/ClientHeight, 1, 128);
 
// In die Modelansichtsmatrix wechseln
glMatrixMode(GL_MODELVIEW);
// Identitätsmatrix laden
glLoadIdentity;
// Farb- und Tiefenpuffer löschen
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
ShowText;
 
// Hinteren Puffer nach vorne bringen
SwapBuffers(DC);
// Windows denken lassen, das wir noch nicht fertig wären
Done := False;
 
// Nummer des gezeichneten Frames erhöhen
inc(Frames);
// FPS aktualisieren
if GetTickCount - StartTick >= 500 then
 begin
 FPS       := Frames/(GetTickCount-StartTick)*1000;
 Frames    := 0;
 StartTick := GetTickCount
 end;
QueryPerformanceCounter(QPCEndCount);        // Timer
timefactor := (QPCEndCount-QPCStartCount)/PerfCounterFreq*100; // Faktor berechnen
end;

Und dann eben noch bei OnCreate:

Code:

QueryPerformanceFrequency(PerfCounterFreq); // Timer

Ja und so beweg ich sie:

Code:

 
procedure TGLForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Re: TRectangle;
begin
Re:=TRectangle(RechtListe[1]);
  if GetAsyncKeyState(vk_right) <> 0 then begin
    Re.pos.x:=Re.pos.x+timefactor*Re.speed;
  end;
  if GetAsyncKeyState(vk_left) <> 0 then begin
    Re.pos.x:=Re.pos.x-timefactor*re.speed;
  end;
  if GetAsyncKeyState(vk_up) <> 0 then begin
    Re.pos.y:=Re.pos.y-timefactor*re.speed;
  end;
  if GetAsyncKeyState(vk_down) <> 0 then begin
    Re.pos.y:=Re.pos.y+timefactor*re.speed;
  end;
end;
 

Re.Speed = 1.5, Jetzt...
Also schonmal Danke im voraus, ich hoffe dass ihr mir weiterhelfen könnt, ich hab jetzt echt kein Plan mehr, woran es liegen könnte.. SInd hoffentlich genug Informationen (an Code)..

mfg Spessi

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.