$surface->thickness was erroneously defaulting to 1 mm

This commit is contained in:
Alessandro Ranellucci 2013-03-17 14:58:10 +01:00
parent 83065b0789
commit 442fb0e82a

View File

@ -27,7 +27,7 @@ sub new {
my $self = [
map delete $args{$_}, qw(expolygon surface_type thickness thickness_layers bridge_angle extra_perimeters),
];
$self->[$_] //= 1 for S_THICKNESS, S_THICKNESS_LAYERS;
$self->[S_THICKNESS_LAYERS] = 1;
bless $self, $class;
$self;
@ -72,8 +72,8 @@ sub group {
foreach my $surface (@surfaces) {
my $type = join '_',
($params->{merge_solid} && $surface->is_solid) ? 'solid' : $surface->surface_type,
($surface->bridge_angle // ''),
$surface->thickness,
$surface->bridge_angle // '',
$surface->thickness // '',
$surface->thickness_layers;
$unique_types{$type} ||= [];
push @{ $unique_types{$type} }, $surface;