Apply Douglas-Peucker to all paths before generating G-code

lib/Slic3r/ExtrusionPath.pm

@@ -15,7 +15,7 @@ use Slic3r::Geometry qw(PI X Y epsilon deg2rad rotate_points);
 has 'polyline' => (
     is          => 'rw',
     required    => 1,
-    handles     => [qw(merge_continuous_lines lines length reverse clip_end)],
+    handles     => [qw(merge_continuous_lines lines length reverse clip_end simplify)],
 );
 
 # height is the vertical thickness of the extrusion expressed in mm

lib/Slic3r/GCode.pm

@@ -119,6 +119,7 @@ sub extrude_path {
     my ($path, $description, $recursive) = @_;
     
     $path = $path->unpack if $path->isa('Slic3r::ExtrusionPath::Packed');
+    $path->simplify(&Slic3r::SCALED_RESOLUTION);
     
     # detect arcs
     if ($Slic3r::Config->gcode_arcs && !$recursive) {

lib/Slic3r/Layer/Region.pm

@@ -228,7 +228,7 @@ sub make_perimeters {
         # create one more offset to be used as boundary for fill
         {
             my @fill_boundaries = map $_->offset_ex(-$distance), @last_offsets;
-            $_->simplify(scale &Slic3r::RESOLUTION) for @fill_boundaries;
+            $_->simplify(&Slic3r::SCALED_RESOLUTION) for @fill_boundaries;
             push @{ $self->surfaces }, @fill_boundaries;
         }
         

lib/Slic3r/Print.pm

@@ -341,7 +341,7 @@ sub export_gcode {
     # simplify slices (both layer and region slices),
     # we only need the max resolution for perimeters
     foreach my $layer (map @{$_->layers}, @{$self->objects}) {
-        $_->simplify(scale &Slic3r::RESOLUTION)
+        $_->simplify(&Slic3r::SCALED_RESOLUTION)
             for @{$layer->slices}, (map $_->expolygon, map @{$_->slices}, @{$layer->regions});
     }