From 4fc435f0fdb4ab47fc9d544dbe97e56f11491bad Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 8 Mar 2013 17:52:33 +0100
Subject: [PATCH] Bugfix: retract speed was applied to travel

---
 lib/Slic3r/GCode.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Slic3r/GCode.pm b/lib/Slic3r/GCode.pm
index cb1613d3b..4c40ee329 100644
--- a/lib/Slic3r/GCode.pm
+++ b/lib/Slic3r/GCode.pm
@@ -245,7 +245,6 @@ sub travel_to {
     my $self = shift;
     my ($point, $role, $comment) = @_;
     
-    $self->speed('travel');
     my $gcode = "";
     
     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))
         ) {
         $self->straight_once(0);
+        $self->speed('travel');
         $gcode .= $self->G0($point, undef, 0, $comment || "");
     } elsif (!$Slic3r::Config->avoid_crossing_perimeters || $self->straight_once) {
         $self->straight_once(0);
         $gcode .= $self->retract(travel_to => $point);
+        $self->speed('travel');
         $gcode .= $self->G0($point, undef, 0, $comment || "");
     } else {
         my $plan = sub {
@@ -289,6 +290,7 @@ sub travel_to {
             $gcode .= $self->retract(travel_to => $point) if $need_retract;
             
             # append the actual path and return
+            $self->speed('travel');
             $gcode .= join '', map $self->G0($_->[B], undef, 0, $comment || ""), @travel;
             return $gcode;
         };