juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-17 10:32:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

New build script to install dependencies automatically

Browse Source
This commit is contained in:
Alessandro Ranellucci
2011-10-02 11:57:47 +02:00
parent 21d287504c
commit a311220c19
4 changed files with 70 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
t/clean_polylines.t
View File

@@ -49,10 +49,10 @@ my $gear = [
];
$polyline = Slic3r::Polyline::Closed->cast($gear);
$polyline->merge_continuous_lines;
diag sprintf "original points: %d\nnew points: %d", scalar(@$gear), scalar(@{$polyline->points});
ok (@{$polyline->points} < @$gear), 'gear was simplified using merge_continuous_lines';
note sprintf "original points: %d\nnew points: %d", scalar(@$gear), scalar(@{$polyline->points});
ok @{$polyline->points} < @$gear, 'gear was simplified using merge_continuous_lines';
my $num_points = scalar @{$polyline->points};
$polyline->cleanup;
diag sprintf "original points: %d\nnew points: %d", $num_points, scalar(@{$polyline->points});
ok (@{$polyline->points} < $num_points), 'gear was further simplified using Douglas-Peucker';
note sprintf "original points: %d\nnew points: %d", $num_points, scalar(@{$polyline->points});
ok @{$polyline->points} < $num_points, 'gear was further simplified using Douglas-Peucker';