Extrusion of perimeters

This commit is contained in:
Alessandro Ranellucci 2011-09-02 21:10:20 +02:00
parent 55a523e1fa
commit febd655e22
11 changed files with 206 additions and 5 deletions

View file

@ -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);
}