Fixed typo preventing support material to work with new simplify() syntax

This commit is contained in:
Alessandro Ranellucci 2013-03-16 19:11:49 +01:00
parent db2e76a0df
commit f4b8185698

View file

@ -776,7 +776,7 @@ sub generate_support_material {
);
$layers_contact_areas{$i} = [
map $_->simplify($flow->scaled_spacing),
collapse_ex([ map @$_, @{$layers_contact_areas{$i}} ], $flow->scaled_width),
@{collapse_ex([ map @$_, @{$layers_contact_areas{$i}} ], $flow->scaled_width)},
];
# to define interface regions of this layer we consider the overhangs of all the upper layers
@ -790,7 +790,7 @@ sub generate_support_material {
);
$layers_interfaces{$i} = [
map $_->simplify($flow->scaled_spacing),
collapse_ex([ map @$_, @{$layers_interfaces{$i}} ], $flow->scaled_width),
@{collapse_ex([ map @$_, @{$layers_interfaces{$i}} ], $flow->scaled_width)},
];
# generate support material in current layer (for upper layers)
@ -812,7 +812,7 @@ sub generate_support_material {
);
$layers{$i} = [
map $_->simplify($flow->scaled_spacing),
collapse_ex([ map @$_, @{$layers{$i}} ], $flow->scaled_width),
@{collapse_ex([ map @$_, @{$layers{$i}} ], $flow->scaled_width)},
];
# get layer overhangs and put them into queue for adding support inside lower layers;