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

Added failing test case for Clipper regression causing extra points in polyline intersection, thus crash with circular bed shape

Browse source
This commit is contained in:
Alessandro Ranellucci 2015-02-22 17:03:23 +01:00
parent edbc11477c
commit 2eca094170
2 changed files with 45 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/Slic3r/GUI/BedShapeDialog.pm
View file

@ -299,14 +299,24 @@ sub _repaint_canvas {
my $step = 10; # 1cm grid
my @polylines = ();
for (my $x = $bb->x_min - ($bb->x_min % $step) + $step; $x < $bb->x_max; $x += $step) {
push @polylines, Slic3r::Polyline->new_scale([$x, $bb->y_min], [$x, $bb->y_max]);
push @polylines, Slic3r::Polyline->new_scale([$x, $bb->y_min], [$x, $bb->y_max]);last;
}
for (my $y = $bb->y_min - ($bb->y_min % $step) + $step; $y < $bb->y_max; $y += $step) {
push @polylines, Slic3r::Polyline->new_scale([$bb->x_min, $y], [$bb->x_max, $y]);
}
}my @orig = @polylines;
@polylines = @{intersection_pl(\@polylines, [$bed_polygon])};
$dc->SetPen(Wx::Pen->new(Wx::Colour->new(230,230,230), 1, wxSOLID));
use Slic3r::SVG;
Slic3r::SVG::output(
"grid.svg",
no_arrows => 1,
polylines => \@polylines,
);
use XXX; YYY [
[map $_->dump_perl, @orig],
$bed_polygon->dump_perl,
];
$dc->DrawLine(map @{$to_pixel->([map unscale($_), @$_])}, @$_) for @polylines;
}