Fix regression introduced with f2e1fe5241

This commit is contained in:
Alessandro Ranellucci 2012-02-21 20:16:03 +01:00
parent 9ac92facdd
commit c3fc6ee66b
4 changed files with 10 additions and 13 deletions

View file

@ -77,7 +77,10 @@ sub extrude {
sub extrude_loop {
my $self = shift;
my ($loop, $description) = @_;
# extrude all loops ccw
$loop->polygon->make_counter_clockwise;
# find the point of the loop that is closest to the current extruder position
my $start_at = $loop->nearest_point_to($self->last_pos);