3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-02 20:51:23 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

$surface->thickness was erroneously defaulting to 1 mm

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-03-17 14:58:10 +01:00
parent 8117bc88a0
commit 8d2c651ef2
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/Slic3r/Surface.pm
View file

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