Assign default material to OBJ files too

This commit is contained in:
Alessandro Ranellucci 2014-03-25 15:39:13 +01:00
parent 25191bd405
commit 9b2445f0f5

View file

@ -1,6 +1,8 @@
package Slic3r::Format::OBJ; package Slic3r::Format::OBJ;
use Moo; use Moo;
use File::Basename qw(basename);
sub read_file { sub read_file {
my $self = shift; my $self = shift;
my ($file) = @_; my ($file) = @_;
@ -22,8 +24,12 @@ sub read_file {
$mesh->repair; $mesh->repair;
my $model = Slic3r::Model->new; my $model = Slic3r::Model->new;
my $material_id = basename($file);
$model->set_material($material_id);
my $object = $model->add_object; my $object = $model->add_object;
my $volume = $object->add_volume(mesh => $mesh); my $volume = $object->add_volume(mesh => $mesh, material_id => $material_id);
return $model; return $model;
} }