Renamed perimeter_offsets to perimeters

This commit is contained in:
Alessandro Ranellucci 2011-11-17 10:38:23 +01:00
parent 6ec7069f8e
commit 6e02c8f117
5 changed files with 9 additions and 8 deletions

View file

@ -78,9 +78,10 @@ our $Options = {
},
# print options
'perimeter_offsets' => {
'perimeters' => {
label => 'Perimeters',
type => 'i',
aliases => [qw(perimeter_offsets)],
},
'solid_layers' => {
label => 'Solid layers',
@ -287,7 +288,7 @@ sub validate {
# --perimeters
die "Invalid value for --perimeters\n"
if $Slic3r::perimeter_offsets < 1;
if $Slic3r::perimeters < 1;
# --solid-layers
die "Invalid value for --solid-layers\n"

View file

@ -33,7 +33,7 @@ sub new {
},
print => {
title => 'Print settings',
options => [qw(perimeter_offsets solid_layers fill_density fill_angle fill_pattern solid_fill_pattern)],
options => [qw(perimeters solid_layers fill_density fill_angle fill_pattern solid_fill_pattern)],
},
retract => {
title => 'Retraction',

View file

@ -12,7 +12,7 @@ sub make_perimeter {
# at least one perimeter is required
die "Can't slice object with no perimeters!\n"
if $Slic3r::perimeter_offsets == 0;
if $Slic3r::perimeters == 0;
# this array will hold one arrayref per original surface;
# each item of this arrayref is an arrayref representing a depth (from inner
@ -40,7 +40,7 @@ sub make_perimeter {
# create other offsets
push @perimeters, [];
for (my $loop = 0; $loop < $Slic3r::perimeter_offsets; $loop++) {
for (my $loop = 0; $loop < $Slic3r::perimeters; $loop++) {
# offsetting a polygon can result in one or many offset polygons
@last_offsets = map $_->offset_ex(-$distance), @last_offsets;
push @{ $perimeters[-1] }, [@last_offsets];