| … | |
… | |
| 18 | use CFClient; |
18 | use CFClient; |
| 19 | use CFClient::UI; |
19 | use CFClient::UI; |
| 20 | |
20 | |
| 21 | our $VERSION = '0.1'; |
21 | our $VERSION = '0.1'; |
| 22 | |
22 | |
| 23 | my $MAX_FPS = 500; |
23 | my $MAX_FPS = 60; |
| 24 | my $MIN_FPS = 5; # unused as of yet |
24 | my $MIN_FPS = 5; # unused as of yet |
| 25 | |
25 | |
| 26 | our $FACECACHE; |
26 | our $FACECACHE; |
| 27 | |
27 | |
| 28 | our $LAST_REFRESH; |
28 | our $LAST_REFRESH; |
| … | |
… | |
| 258 | |
258 | |
| 259 | sub force_refresh { |
259 | sub force_refresh { |
| 260 | $fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05; |
260 | $fps = $fps * 0.95 + 1 / ($NOW - $LAST_REFRESH) * 0.05; |
| 261 | debug sprintf "%3.2f", $fps; |
261 | debug sprintf "%3.2f", $fps; |
| 262 | |
262 | |
| 263 | # $want_refresh = 0;#d# |
263 | $want_refresh = 0; |
| 264 | $can_refresh = 0; |
264 | $can_refresh = 0; |
| 265 | |
265 | |
| 266 | glViewport 0, 0, $WIDTH, $HEIGHT; |
266 | glViewport 0, 0, $WIDTH, $HEIGHT; |
| 267 | |
267 | |
| 268 | glMatrixMode GL_PROJECTION; |
268 | glMatrixMode GL_PROJECTION; |
