[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/deliantra

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.15 by root, Wed Dec 26 18:20:46 2007 UTC vs.
Revision 1.16 by root, Wed Dec 26 19:11:13 2007 UTC

    if ($ENV{CFPLUS_DEBUG} & 4) {
       $fps = $fps * 0.98 + 1 / (($NOW - $LAST_REFRESH) || 0.1) * 0.02;
       debug sprintf "%3.2f", $fps;
    }
-   $WANT_REFRESH->stop;
+   undef $WANT_REFRESH;
+   $_[0]->stop;
    $CFPlus::UI::ROOT->draw;
    CFPlus::SDL_GL_SwapBuffers;
    $LAST_REFRESH = $NOW;
 }
-$WANT_REFRESH = EV::idle_ns \&force_refresh;
+my $want_refresh = EV::idle_ns \&force_refresh;
-# 0.015 is server tick time / 8 ~~ 66.6...hz
-my $input = EV::periodic 0, 0.015, undef, sub {
+my $input = EV::periodic 0, 1/60, undef, sub {
    $NOW = time;
    ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
       for CFPlus::poll_events;
    if (%animate_object) {
       $_->animate ($LAST_REFRESH - $NOW) for values %animate_object;
-      $WANT_REFRESH->start;
+      $WANT_REFRESH = 1;
    }
+   $want_refresh->start
+      if $WANT_REFRESH;
 };
 sub animation_start {
    my ($widget) = @_;
    $animate_object{$widget} = $widget;
 EV::loop;
 #video_shutdown;
 #audio_shutdown;
+CFPlus::OpenGL::quit;
 CFPlus::SDL_Quit;
 CFPlus::DB::Server::stop;
 =head1 NAME

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines