… | |
… | |
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}}); |