mirror of
https://github.com/OrcaSlicer/OrcaSlicer.git
synced 2026-05-20 11:53:48 +00:00
XS interface completed, including new Line class
This commit is contained in:
@@ -14,11 +14,11 @@ my $square = [
|
||||
];
|
||||
|
||||
my $loop = Slic3r::ExtrusionLoop->new(
|
||||
polygon => Slic3r::Polygon::XS->new(@$square),
|
||||
polygon => Slic3r::Polygon->new(@$square),
|
||||
role => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
|
||||
);
|
||||
isa_ok $loop->as_polygon, 'Slic3r::Polygon::XS', 'loop polygon';
|
||||
is_deeply [ @{ $loop->as_polygon->arrayref_pp } ], [ @$square ], 'polygon points roundtrip';
|
||||
isa_ok $loop->as_polygon, 'Slic3r::Polygon', 'loop polygon';
|
||||
is_deeply $loop->as_polygon->pp, $square, 'polygon points roundtrip';
|
||||
|
||||
$loop = $loop->clone;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user