Acceleration control. #185

This commit is contained in:
Alessandro Ranellucci 2012-02-10 14:53:44 +01:00
parent ad8c9d4ea1
commit 74c71b4ef2
5 changed files with 38 additions and 1 deletions

View file

@ -233,6 +233,15 @@ sub unretract {
return $gcode;
}
sub set_acceleration {
my $self = shift;
my ($acceleration) = @_;
return unless $Slic3r::acceleration;
return sprintf "M201 E%s%s\n",
$acceleration, ($Slic3r::gcode_comments ? ' ; adjust acceleration' : '');
}
sub G0 {
my $self = shift;
return $self->G1(@_) if !$Slic3r::g0;