| … | |
… | |
| 420 | undef |
420 | undef |
| 421 | }; |
421 | }; |
| 422 | } |
422 | } |
| 423 | |
423 | |
| 424 | sub face_update { |
424 | sub face_update { |
| 425 | my ($self, $facenum, $face) = @_; |
425 | my ($self, $facenum, $face, $changed) = @_; |
| 426 | |
426 | |
| 427 | $self->{tilecache}->put ($face->{id} => $face->{image}); #TODO: try to avoid duplicate writes |
427 | $self->{tilecache}->put ($face->{id} => $face->{image}) if $changed; |
| 428 | |
428 | |
| 429 | $self->set_texture ($face->{id} => delete $face->{image}); |
429 | $self->set_texture ($face->{id} => delete $face->{image}); |
| 430 | } |
430 | } |
| 431 | |
431 | |
| 432 | sub set_texture { |
432 | sub set_texture { |
