![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Fps
D@rk © (2006-02-06 22:38:00)Использую OpenGL...
Подскажите пожалуйста как посчитать Fps...
grouzd[E]v (2006-02-06 23:05:00) [1]var
count_new, count_last, count_sec, fps : integer;
procedure Render;
count_new := GetTickCount;
fps := fps + 1;
if (count_new - count_sec) >= 1000 then
begin
count_sec := count_sec + 1000;
fps_string := 'fps: '+inttostr(fps);
fps := 0;
end;
global_count := count_new - count_last;
//рисуем сцену
//получаем fps - в строке fps_string
count_last := count_new;
end;
---
... we are walking on a thin line and you better avoid the risk ...