Ported diff_ex, intersection_ex, union_ex, xor_ex

This commit is contained in:
Alessandro Ranellucci 2013-07-17 00:29:09 +02:00
parent f7ada2b5db
commit bf8c799685
9 changed files with 72 additions and 48 deletions

View file

@ -610,7 +610,7 @@ sub discover_horizontal_shells {
my $new_internal_solid = intersection_ex(
[ map @$_, @$solid ],
[ map $_->p, grep { ($_->surface_type == S_TYPE_INTERNAL) || ($_->surface_type == S_TYPE_INTERNALSOLID) } @neighbor_fill_surfaces ],
undef, 1,
1,
);
next if !@$new_internal_solid;