Extrusion of perimeters

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/Slic3r/Layer.pm b/lib/Slic3r/Layer.pm
index 0cbf07969..733caa4b4 100644
--- a/lib/Slic3r/Layer.pm
+++ b/lib/Slic3r/Layer.pm
@@ -32,6 +32,12 @@ has 'surfaces' => (
     default => sub { [] },
 );
 
+has 'perimeters' => (
+    is      => 'rw',
+    isa     => 'ArrayRef[Slic3r::Polyline]',
+    default => sub { [] },
+);
+
 sub z {
     my $self = shift;
     return $self->id * $Slic3r::layer_height / $Slic3r::resolution;
@@ -313,7 +319,7 @@ sub merge_contiguous_surfaces {
                 );
                 
                 printf "  merging into new surface %s\n", $new_surface->id;
-                push @{ $self->surfaces }, $surface;
+                push @{ $self->surfaces }, $new_surface;
                 
                 $self->remove_surface($_) for ($surface, $neighbor_surface);
             }