Multiple solid layers near external surfaces

This commit is contained in:
Alessandro Ranellucci 2011-09-25 22:11:56 +02:00
parent f892fde123
commit 03341f3485
7 changed files with 96 additions and 7 deletions

View file

@ -16,11 +16,9 @@ has 'holes' => (
default => sub { [] },
);
# TODO: to allow for multiple solid skins to be filled near external
# surfaces, a new type should be defined: internal-solid
has 'surface_type' => (
is => 'rw',
#isa => enum([qw(internal bottom top)]),
#isa => enum([qw(internal internal-solid bottom top)]),
);
sub add_hole {
@ -78,6 +76,11 @@ sub clipper_polygon {
};
}
sub p {
my $self = shift;
return ($self->contour->p, map $_->p, @{$self->holes});
}
sub lines {
my $self = shift;
return @{ $self->contour->lines }, map @{ $_->lines }, @{ $self->holes };