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

One more speed optimization in STL.pm

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-05-14 14:17:46 +02:00
parent 745cea8e6c
commit e51dbb994d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/Slic3r/Format/STL.pm
View file

@ -48,7 +48,7 @@ sub read_file {
sub _read_ascii {
my ($fh, $facets, $vertices) = @_;
my $point_re = qr/([^ ]+)\s+([^ ]+)\s+([^ ]+)/;
my $point_re = qr/(([^ ]+)\s+([^ ]+)\s+([^ ]+))/;
my $facet;
my %vertices_map = ();
@ -63,12 +63,12 @@ sub _read_ascii {
undef $facet;
} else {
/^\s*vertex\s+$point_re/o or next;
my $vertex_id = join ',', $1, $2, $3;
my $vertex_id = $1;
my $vertex_idx;
if (exists $vertices_map{$vertex_id}) {
$vertex_idx = $vertices_map{$vertex_id};
} else {
push @$vertices, [map $_ * 1, $1, $2, $3];
push @$vertices, [map $_ * 1, $2, $3, $4];
$vertex_idx = $vertices_map{$vertex_id} = $#$vertices;
}
push @$facet, $vertex_idx;