10.06.2012, 22:24
|
#6
|
Нуждающийся
Регистрация: 24.04.2012
Сообщений: 57
Написано 7 полезных сообщений (для 10 пользователей)
|
Ответ: Алгоритм отображение FPS
Вот моя версия:
var lastSavedTime,n,kolvofps:integer; Procedure fps; begin n:=n+1; if ((lastSavedTime-getRelativeTimeMs) < -1000) or (getRelativeTimeMs < lastSavedTime) then begin kolvofps:=n; lastSavedTime:=getRelativeTimeMs; n:=0; end; SetColor(255, 255, 255); drawtext(integertostring(kolvofps),2,2); end;
|
(Offline)
|
|