Some incomplete work for per-region config

This commit is contained in:
Alessandro Ranellucci 2014-02-14 22:24:30 +01:00
parent 2e7b29fbdd
commit 691db31da0
9 changed files with 151 additions and 92 deletions

View file

@ -1,6 +1,8 @@
package Slic3r::Format::STL;
use Moo;
use File::Basename qw(basename);
sub read_file {
my $self = shift;
my ($file) = @_;
@ -10,8 +12,11 @@ sub read_file {
$mesh->repair;
my $model = Slic3r::Model->new;
my $material_id = basename($file);
$model->set_material($material_id);
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;
}