From 79d55efa0ea981264d10ad5ecbf4b97075c4b11a Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Wed, 23 Jul 2014 15:18:57 +0200
Subject: [PATCH] Relax collision checks when Detect thin walls is disabled

---
 lib/Slic3r/Layer/Region.pm | 36 +++++++++++++++++++++++++-----------
 1 file changed, 25 insertions(+), 11 deletions(-)

diff --git a/lib/Slic3r/Layer/Region.pm b/lib/Slic3r/Layer/Region.pm
index 0b52e6f0d..eeaa40b5c 100644
--- a/lib/Slic3r/Layer/Region.pm
+++ b/lib/Slic3r/Layer/Region.pm
@@ -105,11 +105,18 @@ sub make_perimeters {
                 if ($i == 1) {
                     # the minimum thickness of a single loop is:
                     # ext_width/2 + ext_spacing/2 + spacing/2 + width/2
-                    @offsets = @{offset2(
-                        \@last,
-                        -(0.5*$ext_pwidth + 0.5*$ext_min_spacing - 1),
-                        +(0.5*$ext_min_spacing - 1),
-                    )};
+                    if ($self->config->thin_walls) {
+                        @offsets = @{offset2(
+                            \@last,
+                            -(0.5*$ext_pwidth + 0.5*$ext_min_spacing - 1),
+                            +(0.5*$ext_min_spacing - 1),
+                        )};
+                    } else {
+                        @offsets = @{offset(
+                            \@last,
+                            -0.5*$ext_pwidth,
+                        )};
+                    }
                     
                     # look for thin walls
                     if ($self->config->thin_walls) {
@@ -123,12 +130,19 @@ sub make_perimeters {
                 } else {
                     my $distance = ($i == 2) ? $ext_pspacing : $pspacing;
                     
-                    @offsets = @{offset2(
-                        \@last,
-                        -($distance + 0.5*$min_spacing - 1),
-                        +(0.5*$min_spacing - 1),
-                    )};
-                
+                    if ($self->config->thin_walls) {
+                        @offsets = @{offset2(
+                            \@last,
+                            -($distance + 0.5*$min_spacing - 1),
+                            +(0.5*$min_spacing - 1),
+                        )};
+                    } else {
+                        @offsets = @{offset(
+                            \@last,
+                            -$distance,
+                        )};
+                    }
+                    
                     # look for gaps
                     if ($self->region->config->gap_fill_speed > 0 && $self->config->fill_density > 0) {
                         # not using safety offset here would "detect" very narrow gaps