| … | … | ||
|---|---|---|---|
| 3 | use strict; | 3 | use strict; |
| 4 | use utf8; | 4 | use utf8; |
| 5 | 5 | ||
| 6 | use Time::HiRes 'time'; | 6 | use Time::HiRes 'time'; |
| 7 | use Event; | 7 | use Event; |
| 8 | |||
| 9 | use SDL::OpenGL; | ||
| 10 | 8 | ||
| 11 | use Crossfire; | 9 | use Crossfire; |
| 12 | use Crossfire::Protocol; | 10 | use Crossfire::Protocol; |
| 13 | 11 | ||
| 14 | use Compress::LZF; | 12 | use Compress::LZF; |
| … | … | ||
| 522 | $want_refresh = 0; | 520 | $want_refresh = 0; |
| 523 | $can_refresh = 0; | 521 | $can_refresh = 0; |
| 524 | 522 | ||
| 525 | $CFClient::UI::ROOT->draw; | 523 | $CFClient::UI::ROOT->draw; |
| 526 | 524 | ||
| 527 | SDL::GLSwapBuffers; | 525 | CFClient::SDL_GL_SwapBuffers; |
| 528 | 526 | ||
| 529 | $LAST_REFRESH = $NOW; | 527 | $LAST_REFRESH = $NOW; |
| 530 | } | 528 | } |
| 531 | 529 | ||
| 532 | my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub { | 530 | my $refresh_watcher = Event->timer (after => 0, hard => 1, interval => 1 / $MAX_FPS, cb => sub { |
| … | … | ||
| 911 | video_init; | 909 | video_init; |
| 912 | audio_init; | 910 | audio_init; |
| 913 | 911 | ||
| 914 | Event::loop; | 912 | Event::loop; |
| 915 | 913 | ||
| 916 | END { SDL::Quit } | 914 | END { CFClient::SDL_Quit } |
| 917 | 915 | ||
| 918 | 916 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |