3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix t/geometry.t

Browse Source
This commit is contained in:
Alessandro Ranellucci 2013-11-24 00:59:45 +01:00
parent a93c862338
commit a29eeb7789
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Slic3r/Geometry.pm
View File

@ -16,7 +16,7 @@ our @EXPORT_OK = qw(
dot perp polygon_points_visibility dot perp polygon_points_visibility
line_intersection bounding_box bounding_box_intersect line_intersection bounding_box bounding_box_intersect
angle3points three_points_aligned line_direction angle3points three_points_aligned line_direction
chained_path collinear scale unscale chained_path chained_path_from collinear scale unscale
rad2deg_dir bounding_box_center line_intersects_any douglas_peucker rad2deg_dir bounding_box_center line_intersects_any douglas_peucker
polyline_remove_short_segments normal triangle_normal polygon_is_convex polyline_remove_short_segments normal triangle_normal polygon_is_convex
scaled_epsilon bounding_box_3D size_3D size_2D scaled_epsilon bounding_box_3D size_3D size_2D

4
t/geometry.t
View File

@ -11,7 +11,7 @@ BEGIN {
use Slic3r; use Slic3r;
use Slic3r::Geometry qw(PI polygon_is_convex use Slic3r::Geometry qw(PI polygon_is_convex
chained_path epsilon scale); chained_path_from epsilon scale);
#========================================================== #==========================================================
@ -162,7 +162,7 @@ my $polygons = [
# if chained_path() works correctly, these points should be joined with no diagonal paths # if chained_path() works correctly, these points should be joined with no diagonal paths
# (thus 26 units long) # (thus 26 units long)
my @points = map Slic3r::Point->new_scale(@$_), [26,26],[52,26],[0,26],[26,52],[26,0],[0,52],[52,52],[52,0]; my @points = map Slic3r::Point->new_scale(@$_), [26,26],[52,26],[0,26],[26,52],[26,0],[0,52],[52,52],[52,0];
my @ordered = @points[@{chained_path(\@points, $points[0])}]; my @ordered = @points[@{chained_path_from(\@points, $points[0])}];
ok !(grep { abs($ordered[$_]->distance_to($ordered[$_+1]) - scale 26) > epsilon } 0..$#ordered-1), 'chained_path'; ok !(grep { abs($ordered[$_]->distance_to($ordered[$_+1]) - scale 26) > epsilon } 0..$#ordered-1), 'chained_path';
} }