From d813aea59ad9bb219680095f8defd95f5d7c9d06 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Thu, 8 Dec 2011 10:28:23 +0100
Subject: [PATCH] Don't slow down retractions on bottom layer. #101

---
 lib/Slic3r/Extruder.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Slic3r/Extruder.pm b/lib/Slic3r/Extruder.pm
index e5e4a561b..3d12412aa 100644
--- a/lib/Slic3r/Extruder.pm
+++ b/lib/Slic3r/Extruder.pm
@@ -269,7 +269,7 @@ sub _Gx {
     my $dec = $self->dec;
     
     # apply the speed reduction for print moves on bottom layer
-    my $speed_multiplier = $e && $self->layer->id == 0
+    my $speed_multiplier = $e && $self->layer->id == 0 && $comment !~ /retract/
         ? $Slic3r::bottom_layer_speed_ratio 
         : 1;