Update dump-stl.pl

This commit is contained in:
Alessandro Ranellucci 2013-09-17 19:25:10 +02:00
parent 39449f9245
commit f79ba8cec0
2 changed files with 4 additions and 1 deletions

View File

@ -225,7 +225,9 @@ sub mesh {
}
}
return Slic3r::TriangleMesh->merge(@meshes);
my $mesh = Slic3r::TriangleMesh->new;
$mesh->merge($_) for @meshes;
return $mesh;
}
# this method splits objects into multiple distinct objects by walking their meshes

View File

@ -19,6 +19,7 @@ $ARGV[0] or usage(1);
if (-e $ARGV[0]) {
my $model = Slic3r::Format::STL->read_file($ARGV[0]);
my $mesh = $model->mesh;
$mesh->repair;
printf "VERTICES = %s\n", join ',', map "[$_->[0],$_->[1],$_->[2]]", @{$mesh->vertices};
printf "FACETS = %s\n", join ',', map "[$_->[0],$_->[1],$_->[2]]", @{$mesh->facets};
exit 0;