From abb5d1256f956e91dc249f219c3fc6f5d2d0f077 Mon Sep 17 00:00:00 2001 From: Alessandro Ranellucci 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;