| … | |
… | |
| 759 | } |
759 | } |
| 760 | |
760 | |
| 761 | sub set_texture { |
761 | sub set_texture { |
| 762 | my ($self, $id, $data) = @_; |
762 | my ($self, $id, $data) = @_; |
| 763 | |
763 | |
|
|
764 | return unless $self->{map}; |
|
|
765 | |
| 764 | $self->{texture}[$id] = my $tex = |
766 | $self->{texture}[$id] = my $tex = |
| 765 | new_from_image CFPlus::Texture |
767 | new_from_image CFPlus::Texture |
| 766 | $data, minify => 1, mipmap => 1; |
768 | $data, minify => 1, mipmap => 1; |
| 767 | |
769 | |
| 768 | $self->{map}->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
770 | $self->{map}->set_texture ($id, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
