Fix regression in Avoid Crossing Perimeters. #1531

This commit is contained in:
Alessandro Ranellucci 2013-11-18 17:20:48 +01:00
parent abe56f96da
commit 583fc767d8

View File

@ -790,7 +790,7 @@ sub write_gcode {
$expolygon->translate(scale $shift[X], scale $shift[Y]); $expolygon->translate(scale $shift[X], scale $shift[Y]);
my @island = @{$expolygon->offset_ex(scale $distance_from_objects, 1, JT_SQUARE)}; my @island = @{$expolygon->offset_ex(scale $distance_from_objects, 1, JT_SQUARE)};
foreach my $copy (@{ $self->objects->[$obj_idx]->copies }) { foreach my $copy (@{ $self->objects->[$obj_idx]->copies }) {
push @islands, map $_->clone->translate(@$copy), @island; push @islands, map { my $c = $_->clone; $c->translate(@$copy); $c } @island;
} }
} }
} }