3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-02 20:51:23 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Additions to the polygon library

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-10-04 20:06:17 +02:00
parent 706586f150
commit f1a36502e1
2 changed files with 102 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
t/polyclip.t Normal file
View file

@ -0,0 +1,31 @@
use Test::More;
plan tests => 4;
BEGIN {
use FindBin;
use lib "$FindBin::Bin/../lib";
}
use Slic3r;
my $square = [
[10, 10],
[20, 10],
[20, 20],
[10, 20],
];
my $line = [ [5, 15], [30, 15] ];
my $intersection = Slic3r::Geometry::clip_segment_polygon($line, $square);
is_deeply $intersection, [ [10, 15], [20, 15] ], 'line is clipped to square';
$intersection = Slic3r::Geometry::clip_segment_polygon([ [0, 15], [8, 15] ], $square);
is $intersection, undef, 'external lines are ignored 1';
$intersection = Slic3r::Geometry::clip_segment_polygon([ [30, 15], [40, 15] ], $square);
is $intersection, undef, 'external lines are ignored 2';
$intersection = Slic3r::Geometry::clip_segment_polygon([ [12, 12], [18, 16] ], $square);
is_deeply $intersection, [ [12, 12], [18, 16] ], 'internal lines are preserved';