From 5fec13353ce62d71062520ac83e87a517c934e0b Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 25 Sep 2011 20:09:30 +0200
Subject: [PATCH] Use latest Math::Clipper updated to Clipper 4.4.4 to get
 sharp corners

---
 lib/Slic3r/Fill/Rectilinear.pm | 2 +-
 lib/Slic3r/Perimeter.pm        | 5 +----
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/lib/Slic3r/Fill/Rectilinear.pm b/lib/Slic3r/Fill/Rectilinear.pm
index caf88123f..65013ec1e 100644
--- a/lib/Slic3r/Fill/Rectilinear.pm
+++ b/lib/Slic3r/Fill/Rectilinear.pm
@@ -160,7 +160,7 @@ sub make_fill {
         
         # save into layer
         FINISH: push @{ $layer->fills }, map Slic3r::ExtrusionPath->cast([ @$_ ]), @paths;
-    }#exit if $layer->id == 1;
+    }
 }
 
 # this function will select the first contiguous block of 
diff --git a/lib/Slic3r/Perimeter.pm b/lib/Slic3r/Perimeter.pm
index 8d48d526e..2e15c6139 100644
--- a/lib/Slic3r/Perimeter.pm
+++ b/lib/Slic3r/Perimeter.pm
@@ -125,10 +125,7 @@ sub offset_polygon {
     my ($contour_p, @holes_p) = ($polygon->{outer}, @{$polygon->{holes}});
     
     # generate offsets
-    my $offsets = offset([ $contour_p, @holes_p ], -$distance, 1);
-    
-    # fix order of holes
-    @$offsets = map [ reverse @$_ ], @$offsets;
+    my $offsets = offset([ $contour_p, @holes_p ], -$distance, 100, JT_MITER, 2);
     
     # defensive programming
     my (@contour_offsets, @hole_offsets) = ();