| … | |
… | |
| 245 | |
245 | |
| 246 | $window |
246 | $window |
| 247 | } |
247 | } |
| 248 | |
248 | |
| 249 | sub sdl_init { |
249 | sub sdl_init { |
|
|
250 | SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO | SDL_INIT_NOPARACHUTE |
| 250 | SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO |
251 | #SDL::Init SDL_INIT_AUDIO | SDL_INIT_VIDEO |
| 251 | and die "SDL::Init failed!\n"; |
252 | and die "SDL::Init failed!\n"; |
| 252 | } |
253 | } |
| 253 | |
254 | |
| 254 | sub init_screen { |
255 | sub init_screen { |
| 255 | sdl_init; |
256 | sdl_init; |
| … | |
… | |
| 430 | sub conn::face_update { |
431 | sub conn::face_update { |
| 431 | my ($self, $facenum, $face) = @_; |
432 | my ($self, $facenum, $face) = @_; |
| 432 | |
433 | |
| 433 | $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image}; |
434 | $FACECACHE->{"$face->{chksum},$face->{name}"} = $face->{image}; |
| 434 | |
435 | |
| 435 | my $tex = $face->{texture} = new_from_image CFClient::Texture delete $face->{image}; |
436 | my $tex = $face->{texture} = |
|
|
437 | new_from_image CFClient::Texture |
|
|
438 | delete $face->{image}, minify => 1; |
| 436 | |
439 | |
| 437 | $MAP->set_texture ($facenum, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
440 | $MAP->set_texture ($facenum, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
| 438 | $MAPWIDGET->update; |
441 | $MAPWIDGET->update; |
| 439 | } |
442 | } |
| 440 | |
443 | |
