Fix regression in Avoid Crossing Perimeters. #1531
This commit is contained in:
parent
abe56f96da
commit
583fc767d8
@ -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;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user