From 314f377d7b4d1cfa349336d2435d144a25cdb7a4 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 13 Aug 2013 20:17:17 +0200
Subject: [PATCH] Debugging code

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

diff --git a/lib/Slic3r/Fill.pm b/lib/Slic3r/Fill.pm
index 5da06753..e6949f97 100644
--- a/lib/Slic3r/Fill.pm
+++ b/lib/Slic3r/Fill.pm
@@ -128,6 +128,14 @@ sub make_fill {
     # add spacing between surfaces
     @surfaces = map $_->offset(-$distance_between_surfaces / 2 * &Slic3r::INFILL_OVERLAP_OVER_SPACING), @surfaces;
     
+    if (0) {
+        require "Slic3r/SVG.pm";
+        Slic3r::SVG::output("fill_" . $layerm->print_z . ".svg",
+            expolygons      => [ map $_->expolygon, grep !$_->is_solid, @surfaces ],
+            red_expolygons  => [ map $_->expolygon, grep  $_->is_solid, @surfaces ],
+        );
+    }
+    
     my @fills = ();
     my @fills_ordering_points =  ();
     SURFACE: foreach my $surface (@surfaces) {