From 58d92ac36aa8dd2cd1bd4d7d005aa07bb5df9eb1 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 27 Oct 2013 18:54:52 +0100
Subject: [PATCH] Support interface_layers == 0

---
 lib/Slic3r/Print/SupportMaterial.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lib/Slic3r/Print/SupportMaterial.pm b/lib/Slic3r/Print/SupportMaterial.pm
index 3a6d02029..02644fbf1 100644
--- a/lib/Slic3r/Print/SupportMaterial.pm
+++ b/lib/Slic3r/Print/SupportMaterial.pm
@@ -304,10 +304,17 @@ sub generate_base_layers {
             my @overlapping_layers = $self->overlapping_layers($i, $support_z);
             my @overlapping_z = map $support_z->[$_], @overlapping_layers;
             
+            # in case we have no interface layers, look at upper contact
+            my @upper_contact = ();
+            if ($self->config->support_material_interface_layers == 0) {
+                @upper_contact = @{ $contact->{$support_z->[$i+1]} || [] };
+            }
+            
             $base->{$i} = diff(
                 [
                     @{ $base->{$i+1} || [] },         # support regions on upper layer
                     @{ $interface->{$i+1} || [] },    # interface regions on upper layer
+                    @upper_contact,                   # contact regions on upper layer
                 ],
                 [
                     (map @$_, map $top->{$_}, grep exists $top->{$_}, @overlapping_z),  # top slices on this layer
@@ -383,7 +390,11 @@ sub generate_toolpaths {
         
         # contact
         my $contact_infill = [];
-        if (@$contact && $contact_loops > 0) {
+        if ($self->config->support_material_interface_layers == 0) {
+            # if no interface layers were requested we treat the contact layer
+            # exactly as a generic base layer
+            push @$base, @$contact;
+        } elsif (@$contact && $contact_loops > 0) {
             # generate the outermost loop
             my @loops0;
             {