vitalif
/
Slic3r
mirror of https://github.com/vitalif/Slic3r
1
0
Fork 0
Code Issues Releases Wiki Activity

Add regression test to ensure fan is enabled when printing overhangs. #432

xs
Alessandro Ranellucci 2013-06-21 15:38:58 +02:00
parent c707073a73
commit 19b40baf55
3 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Slic3r/Config.pm
View File

@ -860,7 +860,7 @@ END
},
'bridge_fan_speed' => {
label => 'Bridges fan speed',
tooltip => 'This fan speed is enforced during all bridges.',
tooltip => 'This fan speed is enforced during all bridges and overhangs.',
sidetext => '%',
cli => 'bridge-fan-speed=i',
type => 'i',

2
lib/Slic3r/GCode.pm
View File

@ -590,7 +590,7 @@ sub _Gx {
$gcode .= sprintf " ; %s", $comment if $comment && $self->config->gcode_comments;
if ($append_bridge_off) {
$gcode .= "\n;_BRIDGE_FAN_END";
$gcode = ";_BRIDGE_FAN_END\n$gcode";
}
return "$gcode\n";
}

20
t/perimeters.t
View File

@ -17,8 +17,8 @@ use Slic3r::Test;
$config->set('perimeters', 3);
$config->set('top_solid_layers', 0);
$config->set('bottom_solid_layers', 0);
$config->set('cooling', 0); # to prevent speeds to be altered
$config->set('first_layer_speed', '100%'); # to prevent speeds to be altered
$config->set('cooling', 0); # to prevent speeds from being altered
$config->set('first_layer_speed', '100%'); # to prevent speeds from being altered
{
my $print = Slic3r::Test::init_print('overhang', config => $config);
@ -45,18 +45,34 @@ use Slic3r::Test;
$config->set('perimeter_speed', 77);
$config->set('external_perimeter_speed', 66);
$config->set('bridge_speed', 99);
$config->set('cooling', 1);
$config->set('fan_below_layer_time', 0);
$config->set('slowdown_below_layer_time', 0);
$config->set('bridge_fan_speed', 100);
my $print = Slic3r::Test::init_print('overhang', config => $config);
my %layer_speeds = (); # print Z => [ speeds ]
my $fan_speed = 0;
Slic3r::GCode::Reader->new(gcode => Slic3r::Test::gcode($print))->parse(sub {
my ($self, $cmd, $args, $info) = @_;
$fan_speed = 0 if $cmd eq 'M107';
$fan_speed = $args->{S} if $cmd eq 'M106';
if ($info->{extruding} && $info->{dist_XY} > 0) {
$layer_speeds{$self->Z} ||= {};
$layer_speeds{$self->Z}{my $feedrate = $args->{F} // $self->F} = 1;
fail 'wrong speed found'
if $feedrate != $config->perimeter_speed*60
&& $feedrate != $config->external_perimeter_speed*60
&& $feedrate != $config->bridge_speed*60;
if ($feedrate == $config->bridge_speed*60) {
fail 'printing overhang but fan is not enabled or running at wrong speed'
if $fan_speed != 255;
} else {
fail 'fan is running when not supposed to'
if $fan_speed > 0;
}
}
});
is scalar(grep { keys %$_ > 1 } values %layer_speeds), 1,