Remove ->ToPerl and add ->vertices and ->facets
This commit is contained in:
parent
6f1a1b546f
commit
a0bd152243
4 changed files with 46 additions and 40 deletions
|
@ -18,7 +18,8 @@ my $cube = {
|
|||
my $m = Slic3r::TriangleMesh::XS->new;
|
||||
$m->ReadFromPerl($cube->{vertices}, $cube->{facets});
|
||||
$m->Repair;
|
||||
my ($vertices, $facets) = @{$m->ToPerl};
|
||||
my ($vertices, $facets) = ($m->vertices, $m->facets);
|
||||
|
||||
is_deeply $vertices, $cube->{vertices}, 'vertices arrayref roundtrip';
|
||||
is_deeply $facets, $cube->{facets}, 'facets arrayref roundtrip';
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue