Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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 ...


Наверх

Титульная страница Поиск, карта сайта Написать письмо