Fix tests

This commit is contained in:
Alessandro Ranellucci 2014-06-25 11:02:09 +02:00
parent a11f31c0a8
commit 8b60db55de
2 changed files with 2 additions and 3 deletions

View File

@ -64,7 +64,6 @@ sub concave_points {
my $vertex_angle = Slic3r::Geometry::angle3points(@points_pp[$i, $i-1, $i+1]); my $vertex_angle = Slic3r::Geometry::angle3points(@points_pp[$i, $i-1, $i+1]);
if ($vertex_angle <= $ccw_angle) { if ($vertex_angle <= $ccw_angle) {
push @concave, $points[$i]; push @concave, $points[$i];
use XXX; YYY ($points[$i]->pp);
} }
} }
return [@concave]; return [@concave];

View File

@ -191,7 +191,7 @@ my $polygons = [
#========================================================== #==========================================================
{ {
my $square = Slic3r::Polygon->new( my $square = Slic3r::Polygon->new_scale(
[150,100], [150,100],
[200,100], [200,100],
[200,200], [200,200],
@ -203,7 +203,7 @@ my $polygons = [
} }
{ {
my $square = Slic3r::Polygon->new( my $square = Slic3r::Polygon->new_scale(
[200,200], [200,200],
[100,200], [100,200],
[100,100], [100,100],