Bugfix: wrong inwards moves were calculated for 2+ copies because ExtrusionLoop objects were modified in place. Includes regression test. #1842

This commit is contained in:
Alessandro Ranellucci 2014-03-24 19:56:18 +01:00
parent 2a52a318fe
commit 630004d156
2 changed files with 10 additions and 0 deletions

View file

@ -175,6 +175,10 @@ sub extrude {
sub extrude_loop {
my ($self, $loop, $description) = @_;
# make a copy; don't modify the orientation of the original loop object otherwise
# next copies (if any) would not detect the correct orientation
$loop = $loop->clone;
# extrude all loops ccw
my $was_clockwise = $loop->make_counter_clockwise;
my $polygon = $loop->polygon;