107 lines
4.1 KiB
Perl
107 lines
4.1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN {
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../../lib";
|
|
}
|
|
|
|
use Slic3r::XS;
|
|
use Test::More tests => 22;
|
|
|
|
my $square = Slic3r::Polygon->new( # ccw
|
|
[100, 100],
|
|
[200, 100],
|
|
[200, 200],
|
|
[100, 200],
|
|
);
|
|
my $hole_in_square = Slic3r::Polygon->new( # cw
|
|
[140, 140],
|
|
[140, 160],
|
|
[160, 160],
|
|
[160, 140],
|
|
);
|
|
$_->scale(1/0.000001) for $square, $hole_in_square;
|
|
|
|
my $expolygon = Slic3r::ExPolygon->new($square, $hole_in_square);
|
|
|
|
{
|
|
my $mp = Slic3r::MotionPlanner->new([ $expolygon ]);
|
|
isa_ok $mp, 'Slic3r::MotionPlanner';
|
|
|
|
my $from = Slic3r::Point->new(120, 120);
|
|
my $to = Slic3r::Point->new(180,180);
|
|
$_->scale(1/0.000001) for $from, $to;
|
|
my $path = $mp->shortest_path($from, $to);
|
|
require "Slic3r.pm";
|
|
require "Slic3r/SVG.pm";
|
|
Slic3r::SVG::output(
|
|
"path.svg",
|
|
expolygons => [$expolygon],
|
|
polylines => [$path],
|
|
);
|
|
use XXX; YYY [
|
|
$from->pp,
|
|
$path->pp,
|
|
$to->pp,
|
|
];
|
|
ok $path->is_valid(), 'return path is valid';
|
|
ok $path->length > Slic3r::Line->new($from, $to)->length, 'path length is greater than straight line';
|
|
ok $path->first_point->coincides_with($from), 'first path point coincides with initial point';
|
|
ok $path->last_point->coincides_with($to), 'last path point coincides with destination point';
|
|
ok $expolygon->contains_polyline($path), 'path is fully contained in expolygon';
|
|
}
|
|
|
|
{
|
|
my $mp = Slic3r::MotionPlanner->new([ $expolygon ]);
|
|
isa_ok $mp, 'Slic3r::MotionPlanner';
|
|
|
|
my $from = Slic3r::Point->new(80, 100);
|
|
my $to = Slic3r::Point->new(220,200);
|
|
$_->scale(1/0.000001) for $from, $to;
|
|
|
|
my $path = $mp->shortest_path($from, $to);
|
|
ok $path->is_valid(), 'return path is valid';
|
|
ok $path->length > Slic3r::Line->new($from, $to)->length, 'path length is greater than straight line';
|
|
ok $path->first_point->coincides_with($from), 'first path point coincides with initial point';
|
|
ok $path->last_point->coincides_with($to), 'last path point coincides with destination point';
|
|
is scalar(@{ Slic3r::Geometry::Clipper::intersection_pl([$path], [@$expolygon]) }), 0, 'path has no intersection with expolygon';
|
|
}
|
|
|
|
{
|
|
my $expolygon2 = $expolygon->clone;
|
|
$expolygon2->translate(300/0.000001, 0);
|
|
my $mp = Slic3r::MotionPlanner->new([ $expolygon, $expolygon2 ]);
|
|
isa_ok $mp, 'Slic3r::MotionPlanner';
|
|
|
|
my $from = Slic3r::Point->new(120, 120);
|
|
my $to = Slic3r::Point->new(120 + 300, 120);
|
|
$_->scale(1/0.000001) for $from, $to;
|
|
ok $expolygon->contains_point($from), 'start point is contained in first expolygon';
|
|
ok $expolygon2->contains_point($to), 'end point is contained in second expolygon';
|
|
my $path = $mp->shortest_path($from, $to);
|
|
ok $path->is_valid(), 'return path is valid';
|
|
ok $path->length > Slic3r::Line->new($from, $to)->length, 'path length is greater than straight line';
|
|
}
|
|
|
|
{
|
|
my $expolygons = [
|
|
Slic3r::ExPolygon->new([[123800962,89330311],[123959159,89699438],[124000004,89898430],[124000012,110116427],[123946510,110343065],[123767391,110701303],[123284087,111000001],[102585791,111000009],[102000004,110414223],[102000004,89585787],[102585790,89000000],[123300022,88999993]]),
|
|
Slic3r::ExPolygon->new([[97800954,89330311],[97959151,89699438],[97999996,89898430],[98000004,110116427],[97946502,110343065],[97767383,110701303],[97284079,111000001],[76585783,111000009],[75999996,110414223],[75999996,89585787],[76585782,89000000],[97300014,88999993]]),
|
|
];
|
|
my $mp = Slic3r::MotionPlanner->new($expolygons);
|
|
isa_ok $mp, 'Slic3r::MotionPlanner';
|
|
|
|
my $from = Slic3r::Point->new(79120520, 107839491);
|
|
my $to = Slic3r::Point->new(104664164, 108335852);
|
|
ok $expolygons->[1]->contains_point($from), 'start point is contained in second expolygon';
|
|
ok $expolygons->[0]->contains_point($to), 'end point is contained in first expolygon';
|
|
my $path = $mp->shortest_path($from, $to);
|
|
ok $path->is_valid(), 'return path is valid';
|
|
ok $path->length > Slic3r::Line->new($from, $to)->length, 'path length is greater than straight line';
|
|
}
|
|
|
|
__END__
|