From abb5d1256f956e91dc249f219c3fc6f5d2d0f077 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 9 Aug 2013 21:27:57 +0200
Subject: [PATCH] Added some debugging code

---
 lib/Slic3r/Print/Object.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lib/Slic3r/Print/Object.pm b/lib/Slic3r/Print/Object.pm
index 524716f47..547a6b8df 100644
--- a/lib/Slic3r/Print/Object.pm
+++ b/lib/Slic3r/Print/Object.pm
@@ -914,6 +914,14 @@ sub generate_support_material {
             
             $contact{$contact_z}  = [ @contact ];
             $overhang{$contact_z} = [ @overhang ];
+            
+            if (0) {
+                require "Slic3r/SVG.pm";
+                Slic3r::SVG::output("contact_" . $layer->print_z . ".svg",
+                    expolygons      => union_ex(\@contact),
+                    red_expolygons  => \@overhang,
+                );
+            }
         }
     }
     my @contact_z = sort keys %contact;