Added some debugging code

2013-08-09 21:27:57 +02:00 · 2013-08-09 21:27:57 +02:00 · abb5d1256f
commit abb5d1256f
parent 4862d832b5
1 changed files with 8 additions and 0 deletions
--- 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;