3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-08-06 21:44:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

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';