3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update dump-stl.pl

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Slic3r/Model.pm
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 # this method splits objects into multiple distinct objects by walking their meshes

1
utils/dump-stl.pl
View file

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