New option for disabling thin wall detection

lib/Slic3r/Config.pm

@@ -587,6 +587,13 @@ our $Options = {
         type    => 'bool',
         default => 0,
     },
+    'thin_walls' => {
+        label   => 'Detect thin walls',
+        tooltip => 'Detect single-width walls (parts where two extrusions don\'t fit and we need to collapse them into a single trace).',
+        cli     => 'thin-walls!',
+        type    => 'bool',
+        default => 1,
+    },
     'avoid_crossing_perimeters' => {
         label   => 'Avoid crossing perimeters',
         tooltip => 'Optimize travel moves in order to minimize the crossing of perimeters. This is mostly useful with Bowden extruders which suffer from oozing. This feature slows down both the print and the G-code generation.',

lib/Slic3r/GUI/Tab.pm

@@ -412,7 +412,7 @@ sub build {
         },
         {
             title => 'Quality (slower slicing)',
-            options => [qw(extra_perimeters avoid_crossing_perimeters start_perimeters_at_concave_points start_perimeters_at_non_overhang)],
+            options => [qw(extra_perimeters avoid_crossing_perimeters start_perimeters_at_concave_points start_perimeters_at_non_overhang thin_walls)],
             lines => [
                 Slic3r::GUI::OptionsGroup->single_option_line('extra_perimeters'),
                 Slic3r::GUI::OptionsGroup->single_option_line('avoid_crossing_perimeters'),
@@ -420,6 +420,7 @@ sub build {
                     label   => 'Start perimeters at',
                     options => [qw(start_perimeters_at_concave_points start_perimeters_at_non_overhang)],
                 },
+                Slic3r::GUI::OptionsGroup->single_option_line('thin_walls'),
             ],
         },
         {

lib/Slic3r/Layer/Region.pm

@@ -96,7 +96,7 @@ sub make_surfaces {
     $self->slices([ _merge_loops($loops) ]);
     
     # detect thin walls by offsetting slices by half extrusion inwards
-    {
+    if ($Slic3r::Config->thin_walls) {
         my $width = $self->perimeter_flow->scaled_width;
         my $diff = diff_ex(
             [ map $_->p, @{$self->slices} ],