Timebased Movement
Inhaltsverzeichnis
Kurz-Beschreibung
Timebased Movement sorgt dafür, dass die Bewegungsgeschwindikeiten nicht vom Rechner abhängen.
Prinzip
Anstatt Bewegungs-Änderungen mit festen Werten durchzuführen, wird dieser Betrag vorher anhand der vergangenen Zeit berechnet. Dadurch wird verhindert das die Spielgeschwindigkeit an die Bildwiederholungs Frequenz gekoppelt ist.
Berechnung
Der Faktor um wieviel sich alles bewegt, kann zum Beispiel über die seit der letzen Abfage vergangen Zeit ermittelt werden.
Allgemein:
VergangeneZeit:= (Zeit1-Zeit0)/Frequenz;
Diese vergangende Zeit(eigentlich immer in Sekunden) ist nun der ZeitFaktor, den wir nutzen um zu bestimmen um wieviel sicht etwas bewegt.
Die Bewegung dann:
Position := Position + Geschwindikeit*VergangeneZeit;
Möglichkeiten
Millisekunden genau unter Windows
Die wohl einfachste Möglichkeit unter Windows so etwas zu realisieren besteht darin mit Hilfe von GetTickCount die Zeit (in Millisekunden) seit dem letzen Windows-Start zu ermitteln.
//Benötigte Variablen var BerechnungsZeit:LongWord;
procedure BeimStart;//Was hier drinnen steht sollte zum Start ausgeführt werden begin BerechnungsZeit := GetTickCount(); end;
procedure BerechnungsCheck;//Alle nötigen Berechnungen durchführen const Frequenz=1000;//Durch Windows festgelegt var AktuelleZeit:LongWord; begin AktuelleZeit := GetTickCount(); Berechne((AktuelleZeit - BerechnungsZeit) /Frequenz); BerechnungsZeit := AktuelleZeit; end;
procedure Berechne(ZeitFaktor:Double); begin {Alle Berechnungen stehen hier } //z.B Pos.X := Pos.X + Speed.X*ZeitFaktor; if Pos.X > 20 then Pos.X := 0; end;
Absolute Genauigkeit per Hardware
Man kann auch die Hardware zur Zeitmessung nutzen um so noch genauere Ergebnisse zu erziehlen. Es kann jedoch theoretisch sein(auch jetzt noch?), dass diese nicht zur verfügung steht.
//Benötigte Variablen
var
BerechnungsZeit:Int64;
Frequenz:Int64;
procedure BeimStart;//Was hier drinnen steht sollte zum Start ausgeführt werden
begin
if not QueryPerformanceFrequency(Frequenz) then//Frequenz ermitteln
raise Exception.create('Kein Hardware Timer vorhanden');
QueryPerformanceCounter(BerechnungsZeit);//Aktuelle Zeit ermitteln
end;
procedure BerechnungsCheck;//Alle nötigen Berechnungen durchführen
var
AktuelleZeit:Int64;
begin
QueryPerformanceCounter(AktuelleZeit);
Berechne((AktuelleZeit - BerechnungsZeit) /Frequenz);
BerechnungsZeit := AktuelleZeit;
end;
procedure Berechne(ZeitFaktor:Double);
begin
{Alle Berechnungen stehen hier }
//z.B
Pos.X := Pos.X + Speed.X*ZeitFaktor;
if Pos.X > 20 then Pos.X := 0;
end;
