| … | |
… | |
| 212 | $last_refresh = $next_refresh; |
212 | $last_refresh = $next_refresh; |
| 213 | |
213 | |
| 214 | if ($interval) { |
214 | if ($interval) { |
| 215 | $FPS ||= 1 / $interval; |
215 | $FPS ||= 1 / $interval; |
| 216 | $FPS = $FPS * 0.96 + (1 / $interval) * 0.04; |
216 | $FPS = $FPS * 0.96 + (1 / $interval) * 0.04; |
| 217 | debug sprintf "%5.02f\n", $FPS; |
217 | debug sprintf "%5.02f", $FPS; |
| 218 | } |
218 | } |
| 219 | |
219 | |
| 220 | force_refresh; |
220 | force_refresh; |
| 221 | $_->animate ($interval) for grep $_, values %ANIMATE; |
221 | $_->animate ($interval) for grep $_, values %ANIMATE; |
| 222 | |
222 | |
