One more slight optimization
This commit is contained in:
parent
a412291690
commit
cab51d4581
@ -163,10 +163,10 @@ sub check_manifoldness {
|
|||||||
sub unpack_line {
|
sub unpack_line {
|
||||||
my ($packed) = @_;
|
my ($packed) = @_;
|
||||||
|
|
||||||
my @data = unpack I_FMT, $packed;
|
my $data = [ unpack I_FMT, $packed ];
|
||||||
splice @data, 0, 2, [ @data[0,1] ];
|
splice @$data, 0, 2, [ @$data[0,1] ];
|
||||||
$data[$_] = undef for grep $data[$_] == -1, I_A_ID, I_B_ID, I_FACET_EDGE, I_PREV_FACET_INDEX, I_NEXT_FACET_INDEX;
|
$data->[$_] = undef for grep $data->[$_] == -1, I_A_ID, I_B_ID, I_FACET_EDGE, I_PREV_FACET_INDEX, I_NEXT_FACET_INDEX;
|
||||||
return [@data];
|
return $data;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub make_loops {
|
sub make_loops {
|
||||||
|
Loading…
Reference in New Issue
Block a user