From de8a845d818c4ad1aaf3f6e900ee5f23b2371244 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 19 Nov 2012 18:03:20 +0100
Subject: [PATCH] Disable retraction for support material

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

diff --git a/lib/Slic3r/GCode.pm b/lib/Slic3r/GCode.pm
index f5114cbd4..e25479e46 100644
--- a/lib/Slic3r/GCode.pm
+++ b/lib/Slic3r/GCode.pm
@@ -139,9 +139,9 @@ sub extrude_path {
     
     my $gcode = "";
     
-    # retract if distance from previous position is greater or equal to the one
-    # specified by the user
-    {
+    # skip retract for support material
+    if ($path->role != EXTR_ROLE_SUPPORTMATERIAL) {
+        # retract if distance from previous position is greater or equal to the one specified by the user
         my $travel = Slic3r::Line->new($self->last_pos->clone, $path->points->[0]->clone);
         if ($travel->length >= scale $self->extruder->retract_before_travel) {
             # move travel back to original layer coordinates.