3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-30 20:21:12 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

New command to combine multiple STL files into a single multi-material AMF file

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-09-23 14:48:58 +02:00
parent bbe0a45b58
commit 77625894ff
5 changed files with 89 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

16
utils/stl-to-amf.pl
View file

@ -35,19 +35,11 @@ my %opt = ();
my $new_object = $new_model->add_object;
for my $m (0 .. $#models) {
my $model = $models[$m];
my $v_offset = @{$new_object->vertices};
push @{$new_object->vertices}, @{$model->objects->[0]->vertices};
my @new_facets = map {
my $f = [@$_];
$f->[$_] += $v_offset for -3..-1;
$f;
} @{ $model->objects->[0]->volumes->[0]->facets };
my $material_id = scalar keys %{$new_model->materials};
$new_model->set_material($material_id, { Name => basename($ARGV[$m]) });
$new_model->set_material($m, { Name => basename($ARGV[$m]) });
$new_object->add_volume(
material_id => $material_id,
facets => [@new_facets],
material_id => $m,
facets => $model->objects->[0]->volumes->[0]->facets,
vertices => $model->objects->[0]->vertices,
);
}
} else {