From 8d851c24a943e90f48c39f04f73081ac97f9d595 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 16 Apr 2012 14:12:27 +0200
Subject: [PATCH] Increase the flow rate for support material

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

diff --git a/lib/Slic3r/Extruder.pm b/lib/Slic3r/Extruder.pm
index 7ecafa186..eee0e2533 100644
--- a/lib/Slic3r/Extruder.pm
+++ b/lib/Slic3r/Extruder.pm
@@ -118,7 +118,10 @@ sub extrude_path {
     $gcode .= $self->unretract if $self->retracted;
     
     # calculate extrusion length per distance unit
-    my $s = $path->flow_spacing || $Slic3r::flow_spacing;
+    my $s = $path->flow_spacing
+        || $path->role eq 'support-material'
+            ? ($Slic3r::flow_spacing * 1.5)
+            : $Slic3r::flow_spacing;
     my $h = $path->depth_layers * $self->layer->height;
     my $w = ($s - $Slic3r::min_flow_spacing * $Slic3r::overlap_factor) / (1 - $Slic3r::overlap_factor);