3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-08-05 04:54:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Refactoring: use indexed vertices

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-02-17 13:49:33 +01:00
parent 2e44f60c61
commit f814ccf062
3 changed files with 45 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/Slic3r/STL.pm
View file

@ -10,7 +10,6 @@ sub read_file {
my ($file) = @_;
open my $fh, '<', $file or die "Failed to open $file\n";
my $facets = [];
# let's detect whether file is ASCII or binary
my $mode;
@ -35,12 +34,28 @@ sub read_file {
$mode = ($size == $expected_size) ? 'binary' : 'ascii';
}
my $facets = [];
$mode eq 'ascii'
? _read_ascii($fh, $facets)
: _read_binary($fh, $facets);
close $fh;
return Slic3r::TriangleMesh->new(facets => $facets);
my $vertices = [];
{
my %vertices_map = ();
foreach my $facet (@$facets) {
for (1..3) {
if ($vertices_map{$facet->[$_]}) {
$facet->[$_] = $vertices_map{$facet->[$_]};
} else {
push @$vertices, $facet->[$_];
$facet->[$_] = $vertices_map{$facet->[$_]} = $#$vertices;
}
}
}
}
return Slic3r::TriangleMesh->new(vertices => $vertices, facets => $facets);
}
sub _read_ascii {