1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
// procedure de rendu
begin
// on prend les ms actuelle
NewTicks:=GetTickCount;
// si on une ancienne valeur calculer le delta, sinon c'est le premier passage
if OldTicks=0 then DeltaTicks:=0 else DeltaTicks:=NewTicks-OldTicks;
// animation du personnage
while DeltaTicks>TicksPerFrame do begin
NextFrame; // changement de frame dans le MD2
dec(DeltaTicks,TicksPerFrame);
end;
// affichage du personnage
DrawFrame;
// pour le prochain passage (on retire les ticks restant dans le delta)
OldTicks:=NewTicks-DeltaTicks;
end; |
Partager