One more little speed optimization in STL.pm
This commit is contained in:
parent
25bafe7ff1
commit
745cea8e6c
@ -55,8 +55,8 @@ sub _read_ascii {
|
||||
seek $fh, 0, 0;
|
||||
while (my $_ = <$fh>) {
|
||||
if (!$facet) {
|
||||
/^\s*facet\s+normal\s+$point_re/ or next;
|
||||
$facet = []; # ignore normal: [$1, $2, $3]
|
||||
/^\s*facet\s+normal\s+/ or next;
|
||||
$facet = []; # ignore normal
|
||||
} else {
|
||||
if (/^\s*endfacet/) {
|
||||
push @$facets, $facet;
|
||||
|
Loading…
Reference in New Issue
Block a user