From 079f6072a6d4b58e84b8dc2127d1f39a6f66cfff Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 10 Jul 2012 19:31:09 +0200
Subject: [PATCH] Use M109 P1 for Teacup

---
 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 ec1b535f2..838a09a16 100644
--- a/lib/Slic3r/GCode.pm
+++ b/lib/Slic3r/GCode.pm
@@ -428,7 +428,9 @@ sub set_bed_temperature {
     my ($temperature, $wait) = @_;
     
     my ($code, $comment) = $wait
-        ? (($Slic3r::gcode_flavor eq 'makerbot' ? 'M109' : 'M190'), 'wait for bed temperature to be reached')
+        ? (($Slic3r::gcode_flavor eq 'makerbot' ? 'M109'
+            : $Slic3r::gcode_flavor eq 'teacup' ? 'M109 P1'
+            : 'M190'), 'wait for bed temperature to be reached')
         : ('M140', 'set bed temperature');
     return sprintf "$code %s%d ; $comment\n",
         ($Slic3r::gcode_flavor eq 'mach3' ? 'P' : 'S'), $temperature;