Use a more robust parallelism detection

This commit is contained in:
Alessandro Ranellucci 2014-05-02 13:26:59 +02:00
parent fce669dea0
commit 0a88492fdc
5 changed files with 45 additions and 2 deletions

View file

@ -247,7 +247,7 @@ sub unsupported_edges {
# split into individual segments and filter out edges parallel to the bridging angle
@$unsupported = map $_->as_polyline,
grep { abs($_->direction - $angle) < epsilon }
grep $_->parallel_to($angle),
map @{$_->lines},
@$unsupported;