3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-12 09:17:52 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Bugfix: retract speed was applied to travel

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-03-08 17:52:33 +01:00
parent f494335f77
commit 4fc435f0fd
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/Slic3r/GCode.pm
View file

@ -245,7 +245,6 @@ sub travel_to {
my $self = shift; my $self = shift;
my ($point, $role, $comment) = @_; my ($point, $role, $comment) = @_;
$self->speed('travel');
my $gcode = ""; my $gcode = "";
my $travel = Slic3r::Line->new($self->last_pos->clone, $point->clone); my $travel = Slic3r::Line->new($self->last_pos->clone, $point->clone);
@ -260,10 +259,12 @@ sub travel_to {
|| ($role == EXTR_ROLE_SUPPORTMATERIAL && $self->layer->support_islands_enclose_line($travel)) || ($role == EXTR_ROLE_SUPPORTMATERIAL && $self->layer->support_islands_enclose_line($travel))
) { ) {
$self->straight_once(0); $self->straight_once(0);
$self->speed('travel');
$gcode .= $self->G0($point, undef, 0, $comment || ""); $gcode .= $self->G0($point, undef, 0, $comment || "");
} elsif (!$Slic3r::Config->avoid_crossing_perimeters || $self->straight_once) { } elsif (!$Slic3r::Config->avoid_crossing_perimeters || $self->straight_once) {
$self->straight_once(0); $self->straight_once(0);
$gcode .= $self->retract(travel_to => $point); $gcode .= $self->retract(travel_to => $point);
$self->speed('travel');
$gcode .= $self->G0($point, undef, 0, $comment || ""); $gcode .= $self->G0($point, undef, 0, $comment || "");
} else { } else {
my $plan = sub { my $plan = sub {
@ -289,6 +290,7 @@ sub travel_to {
$gcode .= $self->retract(travel_to => $point) if $need_retract; $gcode .= $self->retract(travel_to => $point) if $need_retract;
# append the actual path and return # append the actual path and return
$self->speed('travel');
$gcode .= join '', map $self->G0($_->[B], undef, 0, $comment || ""), @travel; $gcode .= join '', map $self->G0($_->[B], undef, 0, $comment || ""), @travel;
return $gcode; return $gcode;
}; };