From b70404bb236173de0e1cb0ea4573cde33e26632c Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 17 Dec 2012 19:55:25 +0100
Subject: [PATCH] Disable gap filling if gap fill speed is set to zero

---
 lib/Slic3r/Config.pm       | 2 +-
 lib/Slic3r/Layer/Region.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Slic3r/Config.pm b/lib/Slic3r/Config.pm
index 85b1c01491..44d7489559 100644
--- a/lib/Slic3r/Config.pm
+++ b/lib/Slic3r/Config.pm
@@ -303,7 +303,7 @@ our $Options = {
     },
     'gap_fill_speed' => {
         label   => 'Gap fill',
-        tooltip => 'Speed for filling small gaps using short zigzag moves. Keep this reasonably low to avoid too much shaking and resonance issues.',
+        tooltip => 'Speed for filling small gaps using short zigzag moves. Keep this reasonably low to avoid too much shaking and resonance issues. Set zero to disable gaps filling.',
         sidetext => 'mm/s',
         cli     => 'gap-fill-speed=f',
         type    => 'f',
diff --git a/lib/Slic3r/Layer/Region.pm b/lib/Slic3r/Layer/Region.pm
index 4226f1b2e9..18b039ce07 100644
--- a/lib/Slic3r/Layer/Region.pm
+++ b/lib/Slic3r/Layer/Region.pm
@@ -233,7 +233,7 @@ sub make_perimeters {
         }
         
         # fill gaps
-        {
+        if ($Slic3r::Config->gap_fill_speed > 0) {
             my $filler = Slic3r::Fill::Rectilinear->new(layer_id => $self->layer->id);
             
             my $w = $self->perimeter_flow->width;