Bugfix, last commit was incomplete

degen-loop-screen
Alessandro Ranellucci 2012-10-28 12:22:30 +01:00
parent a0fe93e8cf
commit f9b6caaecb
1 changed files with 11 additions and 0 deletions

View File

@ -48,8 +48,19 @@ has 'perimeters' => (is => 'rw', default => sub { [] });
# ordered collection of extrusion paths to fill surfaces
has 'fills' => (is => 'rw', default => sub { [] });
sub BUILD {
my $self = shift;
$self->_update_flows;
}
sub _trigger_layer {
my $self = shift;
$self->_update_flows;
}
sub _update_flows {
my $self = shift;
return if !$self->region;
$self->perimeter_flow($self->id == 0
? $self->region->first_layer_flows->{perimeter}