More unfinished work

This commit is contained in:
Alessandro Ranellucci 2013-11-22 02:16:10 +01:00
parent 518798beb3
commit df8d889481
16 changed files with 74 additions and 48 deletions

View file

@ -38,7 +38,7 @@ sub BUILD {
my $crossing_edges = $self->_crossing_edges;
# simplify islands
$_->simplify($self->_inner_margin) for @{$self->islands};
@{$self->islands} = map @{$_->simplify($self->_inner_margin)}, @{$self->islands};
# process individual islands
for my $i (0 .. $#{$self->islands}) {