From 37ae2e1e2d067c22c47e78a08f6e47ef8ae48f56 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Thu, 6 Sep 2012 11:01:44 +0200
Subject: [PATCH] Use support material extruder for brim. #653

---
 lib/Slic3r/Config.pm | 3 +++
 lib/Slic3r/Print.pm  | 1 +
 2 files changed, 4 insertions(+)

diff --git a/lib/Slic3r/Config.pm b/lib/Slic3r/Config.pm
index 71363c7261..3123523126 100644
--- a/lib/Slic3r/Config.pm
+++ b/lib/Slic3r/Config.pm
@@ -178,6 +178,7 @@ our $Options = {
     # extruder mapping
     'perimeter_extruder' => {
         label   => 'Perimeter extruder',
+        tooltip => 'The extruder to use when printing perimeters.',
         cli     => 'perimeter-extruder=i',
         type    => 'i',
         aliases => [qw(perimeters_extruder)],
@@ -185,12 +186,14 @@ our $Options = {
     },
     'infill_extruder' => {
         label   => 'Infill extruder',
+        tooltip => 'The extruder to use when printing infill.',
         cli     => 'infill-extruder=i',
         type    => 'i',
         default => 1,
     },
     'support_material_extruder' => {
         label   => 'Support material extruder',
+        tooltip => 'The extruder to use when printing support material. This affects brim too.',
         cli     => 'support-material-extruder=i',
         type    => 'i',
         default => 1,
diff --git a/lib/Slic3r/Print.pm b/lib/Slic3r/Print.pm
index f9aac1505b..e38b20a712 100644
--- a/lib/Slic3r/Print.pm
+++ b/lib/Slic3r/Print.pm
@@ -643,6 +643,7 @@ sub write_gcode {
         
         # extrude brim
         if ($layer_id == 0 && !$brim_done) {
+            $gcode .= $gcodegen->set_tool($Slic3r::Config->support_material_extruder-1);
             $gcodegen->shift_x($shift[X]);
             $gcodegen->shift_y($shift[Y]);
             $gcode .= $gcodegen->extrude_loop($_, 'brim') for @{$self->brim};