mirror of
https://github.com/SoftFever/OrcaSlicer.git
synced 2025-10-31 04:31:15 -06:00
ed2ee2f6f3
When extruding supports, the support is interleaved with interface if possible (when extruded with the same extruder). Otherwise the base is extruded first.
158 lines
7.7 KiB
Perl
158 lines
7.7 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use List::Util qw(sum);
|
|
use Slic3r::XS;
|
|
use Test::More tests => 47;
|
|
|
|
{
|
|
my $square = [
|
|
[100, 100],
|
|
[200, 100],
|
|
[200, 200],
|
|
[100, 200],
|
|
];
|
|
my $square_p = Slic3r::Polygon->new(@$square);
|
|
|
|
my $loop = Slic3r::ExtrusionLoop->new;
|
|
$loop->append(Slic3r::ExtrusionPath->new(
|
|
polyline => $square_p->split_at_first_point,
|
|
role => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
|
|
mm3_per_mm => 1,
|
|
));
|
|
|
|
isa_ok $loop, 'Slic3r::ExtrusionLoop';
|
|
isa_ok $loop->polygon, 'Slic3r::Polygon', 'loop polygon';
|
|
is $loop->polygon->area, $square_p->area, 'polygon area';
|
|
is $loop->length, $square_p->length(), 'loop length';
|
|
|
|
$loop = $loop->clone;
|
|
|
|
is scalar(@$loop), 1, 'loop contains one path';
|
|
{
|
|
my $path = $loop->[0];
|
|
isa_ok $path, 'Slic3r::ExtrusionPath::Ref';
|
|
is $path->role, Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, 'role';
|
|
}
|
|
|
|
$loop->split_at_vertex($square_p->[2]);
|
|
is scalar(@$loop), 1, 'splitting a single-path loop results in a single path';
|
|
is scalar(@{$loop->[0]->polyline}), 5, 'path has correct number of points';
|
|
ok $loop->[0]->polyline->[0]->coincides_with($square_p->[2]), 'expected point order';
|
|
ok $loop->[0]->polyline->[1]->coincides_with($square_p->[3]), 'expected point order';
|
|
ok $loop->[0]->polyline->[2]->coincides_with($square_p->[0]), 'expected point order';
|
|
ok $loop->[0]->polyline->[3]->coincides_with($square_p->[1]), 'expected point order';
|
|
ok $loop->[0]->polyline->[4]->coincides_with($square_p->[2]), 'expected point order';
|
|
}
|
|
|
|
{
|
|
my $polyline1 = Slic3r::Polyline->new([100,100], [200,100], [200,200]);
|
|
my $polyline2 = Slic3r::Polyline->new([200,200], [100,200], [100,100]);
|
|
|
|
my $loop = Slic3r::ExtrusionLoop->new_from_paths(
|
|
Slic3r::ExtrusionPath->new(
|
|
polyline => $polyline1,
|
|
role => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
|
|
mm3_per_mm => 1,
|
|
),
|
|
Slic3r::ExtrusionPath->new(
|
|
polyline => $polyline2,
|
|
role => Slic3r::ExtrusionPath::EXTR_ROLE_OVERHANG_PERIMETER,
|
|
mm3_per_mm => 1,
|
|
),
|
|
);
|
|
my $tot_len = sum($polyline1->length, $polyline2->length);
|
|
is $loop->length, $tot_len, 'length';
|
|
is scalar(@$loop), 2, 'loop contains two paths';
|
|
|
|
{
|
|
# check splitting at intermediate point
|
|
my $loop2 = $loop->clone;
|
|
isa_ok $loop2, 'Slic3r::ExtrusionLoop';
|
|
$loop2->split_at_vertex($polyline1->[1]);
|
|
is $loop2->length, $tot_len, 'length after splitting is unchanged';
|
|
is scalar(@$loop2), 3, 'loop contains three paths after splitting';
|
|
ok $loop2->[0]->polyline->[0]->coincides_with($polyline1->[1]), 'expected starting point';
|
|
ok $loop2->[-1]->polyline->[-1]->coincides_with($polyline1->[1]), 'expected ending point';
|
|
ok $loop2->[0]->polyline->[-1]->coincides_with($loop2->[1]->polyline->[0]), 'paths have common point';
|
|
ok $loop2->[1]->polyline->[-1]->coincides_with($loop2->[2]->polyline->[0]), 'paths have common point';
|
|
is $loop2->[0]->role, Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, 'expected order after splitting';
|
|
is $loop2->[1]->role, Slic3r::ExtrusionPath::EXTR_ROLE_OVERHANG_PERIMETER, 'expected order after splitting';
|
|
is $loop2->[2]->role, Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, 'expected order after splitting';
|
|
is scalar(@{$loop2->[0]->polyline}), 2, 'path has correct number of points';
|
|
is scalar(@{$loop2->[1]->polyline}), 3, 'path has correct number of points';
|
|
is scalar(@{$loop2->[2]->polyline}), 2, 'path has correct number of points';
|
|
|
|
my @paths = @{$loop2->clip_end(3)};
|
|
is sum(map $_->length, @paths), $loop2->length - 3, 'returned paths have expected length';
|
|
}
|
|
|
|
{
|
|
# check splitting at endpoint
|
|
my $loop2 = $loop->clone;
|
|
$loop2->split_at_vertex($polyline2->[0]);
|
|
is $loop2->length, $tot_len, 'length after splitting is unchanged';
|
|
is scalar(@$loop2), 2, 'loop contains two paths after splitting';
|
|
ok $loop2->[0]->polyline->[0]->coincides_with($polyline2->[0]), 'expected starting point';
|
|
ok $loop2->[-1]->polyline->[-1]->coincides_with($polyline2->[0]), 'expected ending point';
|
|
ok $loop2->[0]->polyline->[-1]->coincides_with($loop2->[1]->polyline->[0]), 'paths have common point';
|
|
ok $loop2->[1]->polyline->[-1]->coincides_with($loop2->[0]->polyline->[0]), 'paths have common point';
|
|
is $loop2->[0]->role, Slic3r::ExtrusionPath::EXTR_ROLE_OVERHANG_PERIMETER, 'expected order after splitting';
|
|
is $loop2->[1]->role, Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, 'expected order after splitting';
|
|
is scalar(@{$loop2->[0]->polyline}), 3, 'path has correct number of points';
|
|
is scalar(@{$loop2->[1]->polyline}), 3, 'path has correct number of points';
|
|
}
|
|
|
|
{
|
|
my $loop2 = $loop->clone;
|
|
my $point = Slic3r::Point->new(250,150);
|
|
$loop2->split_at($point);
|
|
is $loop2->length, $tot_len, 'length after splitting is unchanged';
|
|
is scalar(@$loop2), 3, 'loop contains three paths after splitting';
|
|
my $expected_start_point = Slic3r::Point->new(200,150);
|
|
ok $loop2->[0]->polyline->[0]->coincides_with($expected_start_point), 'expected starting point';
|
|
ok $loop2->[-1]->polyline->[-1]->coincides_with($expected_start_point), 'expected ending point';
|
|
}
|
|
}
|
|
|
|
{
|
|
my @polylines = (
|
|
Slic3r::Polyline->new([59312736,4821067],[64321068,4821067],[64321068,4821067],[64321068,9321068],[59312736,9321068]),
|
|
Slic3r::Polyline->new([59312736,9321068],[9829401,9321068]),
|
|
Slic3r::Polyline->new([9829401,9321068],[4821067,9321068],[4821067,4821067],[9829401,4821067]),
|
|
Slic3r::Polyline->new([9829401,4821067],[59312736,4821067]),
|
|
);
|
|
my $loop = Slic3r::ExtrusionLoop->new;
|
|
$loop->append($_) for (
|
|
Slic3r::ExtrusionPath->new(polyline => $polylines[0], role => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, mm3_per_mm => 1),
|
|
Slic3r::ExtrusionPath->new(polyline => $polylines[1], role => Slic3r::ExtrusionPath::EXTR_ROLE_OVERHANG_PERIMETER, mm3_per_mm => 1),
|
|
Slic3r::ExtrusionPath->new(polyline => $polylines[2], role => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, mm3_per_mm => 1),
|
|
Slic3r::ExtrusionPath->new(polyline => $polylines[3], role => Slic3r::ExtrusionPath::EXTR_ROLE_OVERHANG_PERIMETER, mm3_per_mm => 1),
|
|
);
|
|
my $len = $loop->length;
|
|
my $point = Slic3r::Point->new(4821067,9321068);
|
|
$loop->split_at_vertex($point) or $loop->split_at($point);
|
|
is $loop->length, $len, 'total length is preserved after splitting';
|
|
is_deeply [ map $_->role, @$loop ], [
|
|
Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
|
|
Slic3r::ExtrusionPath::EXTR_ROLE_OVERHANG_PERIMETER,
|
|
Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
|
|
Slic3r::ExtrusionPath::EXTR_ROLE_OVERHANG_PERIMETER,
|
|
Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
|
|
], 'order is correctly preserved after splitting';
|
|
}
|
|
|
|
{
|
|
my $loop = Slic3r::ExtrusionLoop->new;
|
|
$loop->append(Slic3r::ExtrusionPath->new(
|
|
polyline => Slic3r::Polyline->new([15896783,15868739],[24842049,12117558],[33853238,15801279],[37591780,24780128],[37591780,24844970],[33853231,33825297],[24842049,37509013],[15896798,33757841],[12211841,24812544],[15896783,15868739]),
|
|
role => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, mm3_per_mm => 1
|
|
));
|
|
my $len = $loop->length;
|
|
$loop->split_at(Slic3r::Point->new(15896783,15868739));
|
|
is $loop->length, $len, 'split_at() preserves total length';
|
|
}
|
|
|
|
__END__
|