Fix regression in lift, includes regression test

This commit is contained in:
Alessandro Ranellucci 2015-12-19 12:44:22 +01:00
parent fd7795da59
commit a2ea191d84
2 changed files with 23 additions and 14 deletions

View File

@ -1,4 +1,4 @@
use Test::More tests => 21;
use Test::More tests => 22;
use strict;
use warnings;
@ -205,11 +205,11 @@ use Slic3r::Test qw(_eq);
my $config = Slic3r::Config->new_from_defaults;
$config->set('start_gcode', '');
$config->set('retract_lift', [3]);
$config->set('retract_lift_above', [5]);
$config->set('retract_lift_below', [15]);
my $print = Slic3r::Test::init_print('20mm_cube', config => $config);
my @lifted_at = ();
my $test = sub {
my $print = Slic3r::Test::init_print('20mm_cube', config => $config);
@lifted_at = ();
Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub {
my ($self, $cmd, $args, $info) = @_;
@ -217,8 +217,17 @@ use Slic3r::Test qw(_eq);
push @lifted_at, $info->{new_Z};
}
});
};
ok !!@lifted_at, 'lift takes place';
$config->set('retract_lift_above', [0]);
$config->set('retract_lift_below', [0]);
$test->();
ok !!@lifted_at, 'lift takes place when above/below == 0';
$config->set('retract_lift_above', [5]);
$config->set('retract_lift_below', [15]);
$test->();
ok !!@lifted_at, 'lift takes place when above/below != 0';
ok !(any { $_ < $config->get_at('retract_lift_above', 0) } @lifted_at),
'Z is not lifted below the configured value';
ok !(any { $_ > $config->get_at('retract_lift_below', 0) } @lifted_at),

View File

@ -500,7 +500,7 @@ GCodeWriter::lift()
{
double above = this->config.retract_lift_above.get_at(0);
double below = this->config.retract_lift_below.get_at(0);
if (this->_pos.z >= above && this->_pos.z <= below && below > 0)
if (this->_pos.z >= above && (below == 0 || this->_pos.z <= below))
target_lift = this->config.retract_lift.get_at(0);
}
if (this->_lifted == 0 && target_lift > 0) {