… | |
… | |
1246 | |
1246 | |
1247 | my %demo;#d# |
1247 | my %demo;#d# |
1248 | |
1248 | |
1249 | sub force_refresh { |
1249 | sub force_refresh { |
1250 | $fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05; |
1250 | $fps = $fps * 0.95 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.05; |
1251 | debug sprintf "%3.2f", $fps; |
1251 | debug sprintf "%3.2f", $fps if $ENV{CFPLUS_DEBUG} & 4; |
1252 | |
1252 | |
1253 | $CFClient::UI::ROOT->draw; |
1253 | $CFClient::UI::ROOT->draw; |
1254 | |
1254 | |
1255 | $WANT_REFRESH = 0; |
1255 | $WANT_REFRESH = 0; |
1256 | $CAN_REFRESH = 0; |
1256 | $CAN_REFRESH = 0; |