From c2009af1c648d73460a8d92337aac6c023c35eac Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 6 Mar 2015 10:25:31 +0100
Subject: [PATCH] Remove ;_WIPE marks in G-code which were left between objects
 in sequential printing

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

diff --git a/lib/Slic3r/GCode.pm b/lib/Slic3r/GCode.pm
index 62a8f2ab5..307beb1e0 100644
--- a/lib/Slic3r/GCode.pm
+++ b/lib/Slic3r/GCode.pm
@@ -584,7 +584,7 @@ sub wipe {
             $gcode .= $gcodegen->writer->extrude_to_xy(
                 $gcodegen->point_to_gcode($line->b),
                 -$dE,
-                'retract' . ($gcodegen->enable_cooling_markers ? ';_WIPE' : ''),
+                'wipe and retract' . ($gcodegen->enable_cooling_markers ? ';_WIPE' : ''),
             );
             $retracted += $dE;
         }
diff --git a/lib/Slic3r/Print/GCode.pm b/lib/Slic3r/Print/GCode.pm
index e9901b192..ccaf8c39c 100644
--- a/lib/Slic3r/Print/GCode.pm
+++ b/lib/Slic3r/Print/GCode.pm
@@ -195,12 +195,14 @@ sub export {
                 # no collision happens hopefully.
                 if ($finished_objects > 0) {
                     $gcodegen->set_origin(Slic3r::Pointf->new(map unscale $copy->[$_], X,Y));
+                    $gcodegen->enable_cooling_markers(0);  # we're not filtering these moves through CoolingBuffer
                     print $fh $gcodegen->retract;
                     print $fh $gcodegen->travel_to(
                         Slic3r::Point->new(0,0),
                         undef,
                         'move to origin position for next object',
                     );
+                    $gcodegen->enable_cooling_markers(1);
                 }
                 
                 my @layers = sort { $a->print_z <=> $b->print_z } @{$object->layers}, @{$object->support_layers};