2014-03-16 17:19:03 +00:00
|
|
|
#!/usr/bin/env perl
|
2011-09-01 19:06:28 +00:00
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
BEGIN {
|
|
|
|
use FindBin;
|
|
|
|
use lib "$FindBin::Bin/lib";
|
|
|
|
}
|
|
|
|
|
2014-08-03 14:08:04 +00:00
|
|
|
use File::Basename qw(basename);
|
2012-01-27 14:29:46 +00:00
|
|
|
use Getopt::Long qw(:config no_auto_abbrev);
|
2012-07-15 16:37:00 +00:00
|
|
|
use List::Util qw(first);
|
2013-11-01 08:42:22 +00:00
|
|
|
use POSIX qw(setlocale LC_NUMERIC);
|
2011-09-01 19:06:28 +00:00
|
|
|
use Slic3r;
|
2016-12-16 23:02:21 +00:00
|
|
|
use Slic3r::Geometry qw(deg2rad);
|
2013-12-15 23:54:59 +00:00
|
|
|
use Time::HiRes qw(gettimeofday tv_interval);
|
2011-11-28 09:20:12 +00:00
|
|
|
$|++;
|
2015-03-07 23:54:38 +00:00
|
|
|
binmode STDOUT, ':utf8';
|
2011-09-05 11:33:09 +00:00
|
|
|
|
2017-08-03 15:31:31 +00:00
|
|
|
# Convert all parameters from the local code page to utf8 on Windows.
|
|
|
|
@ARGV = map Slic3r::decode_path($_), @ARGV if $^O eq 'MSWin32';
|
|
|
|
|
2012-08-01 14:17:44 +00:00
|
|
|
our %opt = ();
|
2011-12-01 21:03:13 +00:00
|
|
|
my %cli_options = ();
|
|
|
|
{
|
|
|
|
my %options = (
|
|
|
|
'help' => sub { usage() },
|
2012-06-16 15:16:50 +00:00
|
|
|
'version' => sub { print "$Slic3r::VERSION\n"; exit 0 },
|
2011-12-01 21:03:13 +00:00
|
|
|
|
|
|
|
'debug' => \$Slic3r::debug,
|
2012-04-30 18:59:14 +00:00
|
|
|
'gui' => \$opt{gui},
|
2011-12-26 16:20:26 +00:00
|
|
|
'o|output=s' => \$opt{output},
|
2011-12-01 21:03:13 +00:00
|
|
|
|
|
|
|
'save=s' => \$opt{save},
|
2012-01-23 10:57:03 +00:00
|
|
|
'load=s@' => \$opt{load},
|
2013-06-02 18:03:22 +00:00
|
|
|
'autosave=s' => \$opt{autosave},
|
2011-12-20 16:44:19 +00:00
|
|
|
'ignore-nonexistent-config' => \$opt{ignore_nonexistent_config},
|
2016-05-16 21:40:24 +00:00
|
|
|
'no-controller' => \$opt{no_controller},
|
2013-03-09 15:43:09 +00:00
|
|
|
'no-plater' => \$opt{no_plater},
|
2017-06-19 09:47:16 +00:00
|
|
|
'gui-mode=s' => \$opt{obsolete_ignore_this_option_gui_mode},
|
2012-08-25 17:06:14 +00:00
|
|
|
'datadir=s' => \$opt{datadir},
|
2012-03-26 15:57:54 +00:00
|
|
|
'export-svg' => \$opt{export_svg},
|
2012-04-29 10:52:55 +00:00
|
|
|
'merge|m' => \$opt{merge},
|
2013-06-23 19:11:46 +00:00
|
|
|
'repair' => \$opt{repair},
|
2014-04-25 08:20:30 +00:00
|
|
|
'cut=f' => \$opt{cut},
|
2014-08-03 14:08:04 +00:00
|
|
|
'split' => \$opt{split},
|
2013-07-31 13:10:11 +00:00
|
|
|
'info' => \$opt{info},
|
2014-01-02 17:01:21 +00:00
|
|
|
|
|
|
|
'scale=f' => \$opt{scale},
|
2016-12-16 23:02:21 +00:00
|
|
|
'rotate=f' => \$opt{rotate},
|
2014-01-02 17:01:21 +00:00
|
|
|
'duplicate=i' => \$opt{duplicate},
|
|
|
|
'duplicate-grid=s' => \$opt{duplicate_grid},
|
2014-06-16 21:58:45 +00:00
|
|
|
'print-center=s' => \$opt{print_center},
|
2016-09-05 09:32:58 +00:00
|
|
|
'dont-arrange' => \$opt{dont_arrange},
|
2011-12-01 21:03:13 +00:00
|
|
|
);
|
2012-07-27 19:13:03 +00:00
|
|
|
foreach my $opt_key (keys %{$Slic3r::Config::Options}) {
|
|
|
|
my $cli = $Slic3r::Config::Options->{$opt_key}->{cli} or next;
|
|
|
|
# allow both the dash-separated option name and the full opt_key
|
|
|
|
$options{ "$opt_key|$cli" } = \$cli_options{$opt_key};
|
2011-12-01 21:03:13 +00:00
|
|
|
}
|
2011-09-26 10:07:29 +00:00
|
|
|
|
2016-04-09 17:10:57 +00:00
|
|
|
@ARGV = grep !/^-psn_\d/, @ARGV if $^O eq 'darwin';
|
2011-12-01 21:03:13 +00:00
|
|
|
GetOptions(%options) or usage(1);
|
|
|
|
}
|
2011-09-05 11:33:09 +00:00
|
|
|
|
2012-07-27 19:13:03 +00:00
|
|
|
# load configuration files
|
|
|
|
my @external_configs = ();
|
2011-10-05 16:13:47 +00:00
|
|
|
if ($opt{load}) {
|
2012-01-23 10:57:03 +00:00
|
|
|
foreach my $configfile (@{$opt{load}}) {
|
|
|
|
if (-e $configfile) {
|
2012-07-27 19:13:03 +00:00
|
|
|
push @external_configs, Slic3r::Config->load($configfile);
|
2012-01-23 10:57:03 +00:00
|
|
|
} elsif (-e "$FindBin::Bin/$configfile") {
|
|
|
|
printf STDERR "Loading $FindBin::Bin/$configfile\n";
|
2012-07-27 19:13:03 +00:00
|
|
|
push @external_configs, Slic3r::Config->load("$FindBin::Bin/$configfile");
|
2012-01-23 10:57:03 +00:00
|
|
|
} else {
|
|
|
|
$opt{ignore_nonexistent_config} or die "Cannot find specified configuration file ($configfile).\n";
|
|
|
|
}
|
2011-12-20 16:44:19 +00:00
|
|
|
}
|
2011-10-05 16:13:47 +00:00
|
|
|
}
|
|
|
|
|
2014-06-03 22:08:23 +00:00
|
|
|
# process command line options
|
|
|
|
my $cli_config = Slic3r::Config->new;
|
|
|
|
foreach my $c (@external_configs, Slic3r::Config->new_from_cli(%cli_options)) {
|
2014-04-05 08:18:00 +00:00
|
|
|
$c->normalize; # expand shortcuts before applying, otherwise destination values would be already filled with defaults
|
2014-06-03 22:08:23 +00:00
|
|
|
$cli_config->apply($c);
|
2014-04-05 08:18:00 +00:00
|
|
|
}
|
2012-07-27 19:13:03 +00:00
|
|
|
|
|
|
|
# save configuration
|
|
|
|
if ($opt{save}) {
|
2015-06-02 20:05:53 +00:00
|
|
|
if (@{$cli_config->get_keys} > 0) {
|
|
|
|
$cli_config->save($opt{save});
|
|
|
|
} else {
|
|
|
|
Slic3r::Config->new_from_defaults->save($opt{save});
|
|
|
|
}
|
2012-07-27 19:13:03 +00:00
|
|
|
}
|
2011-12-01 21:03:13 +00:00
|
|
|
|
2014-06-03 22:08:23 +00:00
|
|
|
# apply command line config on top of default config
|
|
|
|
my $config = Slic3r::Config->new_from_defaults;
|
|
|
|
$config->apply($cli_config);
|
|
|
|
|
2012-07-27 19:13:03 +00:00
|
|
|
# launch GUI
|
2012-07-15 16:37:00 +00:00
|
|
|
my $gui;
|
2015-02-14 11:54:06 +00:00
|
|
|
if ((!@ARGV || $opt{gui}) && !$opt{save} && eval "require Slic3r::GUI; 1") {
|
2012-08-25 17:06:14 +00:00
|
|
|
{
|
|
|
|
no warnings 'once';
|
2017-08-03 15:31:31 +00:00
|
|
|
$Slic3r::GUI::datadir = $opt{datadir} // '';
|
2016-05-16 21:40:24 +00:00
|
|
|
$Slic3r::GUI::no_controller = $opt{no_controller};
|
|
|
|
$Slic3r::GUI::no_plater = $opt{no_plater};
|
|
|
|
$Slic3r::GUI::autosave = $opt{autosave};
|
2012-08-25 17:06:14 +00:00
|
|
|
}
|
2012-07-15 16:37:00 +00:00
|
|
|
$gui = Slic3r::GUI->new;
|
2013-11-01 08:42:22 +00:00
|
|
|
setlocale(LC_NUMERIC, 'C');
|
2014-06-14 17:54:18 +00:00
|
|
|
$gui->{mainframe}->load_config_file($_) for @{$opt{load}};
|
|
|
|
$gui->{mainframe}->load_config($cli_config);
|
2017-08-03 15:31:31 +00:00
|
|
|
my @input_files = @ARGV;
|
2017-07-11 11:55:55 +00:00
|
|
|
$gui->{mainframe}{plater}->load_files(\@input_files) unless $opt{no_plater};
|
2012-07-15 15:54:57 +00:00
|
|
|
$gui->MainLoop;
|
2011-10-03 09:55:32 +00:00
|
|
|
exit;
|
2011-09-05 11:33:09 +00:00
|
|
|
}
|
2012-07-27 19:13:03 +00:00
|
|
|
die $@ if $@ && $opt{gui};
|
2011-09-05 11:33:09 +00:00
|
|
|
|
2012-07-27 19:13:03 +00:00
|
|
|
if (@ARGV) { # slicing from command line
|
|
|
|
$config->validate;
|
|
|
|
|
2013-06-23 19:11:46 +00:00
|
|
|
if ($opt{repair}) {
|
|
|
|
foreach my $file (@ARGV) {
|
|
|
|
die "Repair is currently supported only on STL files\n"
|
2017-07-11 15:15:34 +00:00
|
|
|
if $file !~ /\.[sS][tT][lL]$/;
|
2013-06-23 19:11:46 +00:00
|
|
|
|
|
|
|
my $output_file = $file;
|
2017-07-11 15:15:34 +00:00
|
|
|
$output_file =~ s/\.([sS][tT][lL])$/_fixed.obj/;
|
2013-09-09 22:40:46 +00:00
|
|
|
my $tmesh = Slic3r::TriangleMesh->new;
|
2013-06-24 17:35:49 +00:00
|
|
|
$tmesh->ReadSTLFile($file);
|
2013-09-09 21:18:33 +00:00
|
|
|
$tmesh->repair;
|
2013-06-24 17:35:49 +00:00
|
|
|
$tmesh->WriteOBJFile($output_file);
|
2013-06-23 19:11:46 +00:00
|
|
|
}
|
|
|
|
exit;
|
|
|
|
}
|
|
|
|
|
2014-04-25 08:20:30 +00:00
|
|
|
if ($opt{cut}) {
|
|
|
|
foreach my $file (@ARGV) {
|
|
|
|
my $model = Slic3r::Model->read_from_file($file);
|
|
|
|
my $mesh = $model->mesh;
|
|
|
|
$mesh->translate(0, 0, -$mesh->bounding_box->z_min);
|
|
|
|
my $upper = Slic3r::TriangleMesh->new;
|
|
|
|
my $lower = Slic3r::TriangleMesh->new;
|
|
|
|
$mesh->cut($opt{cut}, $upper, $lower);
|
|
|
|
$upper->repair;
|
|
|
|
$lower->repair;
|
2014-04-25 10:40:21 +00:00
|
|
|
$upper->write_ascii("${file}_upper.stl")
|
2014-04-25 08:20:30 +00:00
|
|
|
if $upper->facets_count > 0;
|
2014-04-25 10:40:21 +00:00
|
|
|
$lower->write_ascii("${file}_lower.stl")
|
2014-04-25 08:20:30 +00:00
|
|
|
if $lower->facets_count > 0;
|
|
|
|
}
|
|
|
|
exit;
|
|
|
|
}
|
|
|
|
|
2014-08-03 14:08:04 +00:00
|
|
|
if ($opt{split}) {
|
|
|
|
foreach my $file (@ARGV) {
|
|
|
|
my $model = Slic3r::Model->read_from_file($file);
|
|
|
|
my $mesh = $model->mesh;
|
|
|
|
$mesh->repair;
|
|
|
|
|
|
|
|
my $part_count = 0;
|
|
|
|
foreach my $new_mesh (@{$mesh->split}) {
|
|
|
|
my $output_file = sprintf '%s_%02d.stl', $file, ++$part_count;
|
|
|
|
printf "Writing to %s\n", basename($output_file);
|
2017-08-03 15:31:31 +00:00
|
|
|
$new_mesh->write_binary($output_file);
|
2014-08-03 14:08:04 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
exit;
|
|
|
|
}
|
|
|
|
|
2012-04-29 10:51:20 +00:00
|
|
|
while (my $input_file = shift @ARGV) {
|
2013-05-18 14:48:26 +00:00
|
|
|
my $model;
|
2012-04-30 12:56:01 +00:00
|
|
|
if ($opt{merge}) {
|
2013-05-18 14:48:26 +00:00
|
|
|
my @models = map Slic3r::Model->read_from_file($_), $input_file, (splice @ARGV, 0);
|
|
|
|
$model = Slic3r::Model->merge(@models);
|
|
|
|
} else {
|
|
|
|
$model = Slic3r::Model->read_from_file($input_file);
|
2012-04-30 12:56:01 +00:00
|
|
|
}
|
2013-12-12 19:19:33 +00:00
|
|
|
|
2013-07-31 13:10:11 +00:00
|
|
|
if ($opt{info}) {
|
|
|
|
$model->print_info;
|
|
|
|
next;
|
|
|
|
}
|
|
|
|
|
2014-01-02 17:01:21 +00:00
|
|
|
if (defined $opt{duplicate_grid}) {
|
|
|
|
$opt{duplicate_grid} = [ split /[,x]/, $opt{duplicate_grid}, 2 ];
|
|
|
|
}
|
2014-06-16 21:58:45 +00:00
|
|
|
if (defined $opt{print_center}) {
|
2014-09-21 08:51:36 +00:00
|
|
|
$opt{print_center} = Slic3r::Pointf->new(split /[,x]/, $opt{print_center}, 2);
|
2014-06-16 21:58:45 +00:00
|
|
|
}
|
2014-01-02 17:01:21 +00:00
|
|
|
|
2014-01-02 16:54:18 +00:00
|
|
|
my $sprint = Slic3r::Print::Simple->new(
|
2014-01-02 17:01:21 +00:00
|
|
|
scale => $opt{scale} // 1,
|
2016-12-16 23:02:21 +00:00
|
|
|
rotate => deg2rad($opt{rotate} // 0),
|
2014-01-02 17:01:21 +00:00
|
|
|
duplicate => $opt{duplicate} // 1,
|
|
|
|
duplicate_grid => $opt{duplicate_grid} // [1,1],
|
2014-09-21 08:51:36 +00:00
|
|
|
print_center => $opt{print_center} // Slic3r::Pointf->new(100,100),
|
2016-09-05 09:32:58 +00:00
|
|
|
dont_arrange => $opt{dont_arrange} // 0,
|
2014-01-02 16:54:18 +00:00
|
|
|
status_cb => sub {
|
2012-02-21 16:26:54 +00:00
|
|
|
my ($percent, $message) = @_;
|
2012-08-22 17:37:45 +00:00
|
|
|
printf "=> %s\n", $message;
|
2012-02-21 16:26:54 +00:00
|
|
|
},
|
2014-01-02 16:54:18 +00:00
|
|
|
output_file => $opt{output},
|
2012-02-21 16:26:54 +00:00
|
|
|
);
|
2014-01-02 16:54:18 +00:00
|
|
|
|
2017-06-09 11:27:35 +00:00
|
|
|
# This is delegated to C++ PrintObject::apply_config().
|
2014-01-02 16:54:18 +00:00
|
|
|
$sprint->apply_config($config);
|
|
|
|
$sprint->set_model($model);
|
2017-06-09 11:27:35 +00:00
|
|
|
# Do the apply_config once again to validate the layer height profiles at all the newly added PrintObjects.
|
|
|
|
$sprint->apply_config($config);
|
2014-01-02 16:54:18 +00:00
|
|
|
|
2012-03-26 15:57:54 +00:00
|
|
|
if ($opt{export_svg}) {
|
2014-01-02 16:54:18 +00:00
|
|
|
$sprint->export_svg;
|
2012-03-26 15:57:54 +00:00
|
|
|
} else {
|
2013-12-15 23:54:59 +00:00
|
|
|
my $t0 = [gettimeofday];
|
2014-01-02 16:54:18 +00:00
|
|
|
$sprint->export_gcode;
|
2013-12-15 23:54:59 +00:00
|
|
|
|
|
|
|
# output some statistics
|
|
|
|
{
|
|
|
|
my $duration = tv_interval($t0);
|
|
|
|
printf "Done. Process took %d minutes and %.3f seconds\n",
|
|
|
|
int($duration/60), ($duration - int($duration/60)*60); # % truncates to integer
|
|
|
|
}
|
2014-01-03 19:02:00 +00:00
|
|
|
printf "Filament required: %.1fmm (%.1fcm3)\n",
|
|
|
|
$sprint->total_used_filament, $sprint->total_extruded_volume/1000;
|
2012-03-26 15:57:54 +00:00
|
|
|
}
|
2012-02-21 16:26:54 +00:00
|
|
|
}
|
2011-10-05 16:13:47 +00:00
|
|
|
} else {
|
|
|
|
usage(1) unless $opt{save};
|
2011-09-05 11:33:09 +00:00
|
|
|
}
|
2011-09-02 19:10:20 +00:00
|
|
|
|
2011-09-05 11:33:09 +00:00
|
|
|
sub usage {
|
|
|
|
my ($exit_code) = @_;
|
|
|
|
|
2013-12-21 20:06:45 +00:00
|
|
|
my $config = Slic3r::Config->new_from_defaults->as_hash;
|
2012-07-27 19:13:03 +00:00
|
|
|
|
2012-04-10 14:26:56 +00:00
|
|
|
my $j = '';
|
|
|
|
if ($Slic3r::have_threads) {
|
|
|
|
$j = <<"EOF";
|
2012-07-27 19:13:03 +00:00
|
|
|
-j, --threads <num> Number of threads to use (1+, default: $config->{threads})
|
2012-04-10 14:26:56 +00:00
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
2011-09-05 11:33:09 +00:00
|
|
|
print <<"EOF";
|
2011-11-14 11:15:32 +00:00
|
|
|
Slic3r $Slic3r::VERSION is a STL-to-GCODE translator for RepRap 3D printers
|
2011-10-03 14:45:34 +00:00
|
|
|
written by Alessandro Ranellucci <aar\@cpan.org> - http://slic3r.org/
|
2011-09-26 14:25:26 +00:00
|
|
|
|
2013-07-31 13:10:11 +00:00
|
|
|
Usage: slic3r.pl [ OPTIONS ] [ file.stl ] [ file2.stl ] ...
|
2011-09-03 18:47:38 +00:00
|
|
|
|
2011-09-05 11:33:09 +00:00
|
|
|
--help Output this usage screen and exit
|
2012-06-16 15:16:50 +00:00
|
|
|
--version Output the version of Slic3r and exit
|
2011-10-05 16:13:47 +00:00
|
|
|
--save <file> Save configuration to the specified file
|
2012-01-23 10:57:03 +00:00
|
|
|
--load <file> Load configuration from the specified file. It can be used
|
|
|
|
more than once to load options from multiple files.
|
2011-12-26 16:20:26 +00:00
|
|
|
-o, --output <file> File to output gcode to (by default, the file will be saved
|
2014-04-27 11:21:59 +00:00
|
|
|
into the same directory as the input file using the
|
2014-04-27 10:57:36 +00:00
|
|
|
--output-filename-format to generate the filename.) If a
|
|
|
|
directory is specified for this option, the output will
|
|
|
|
be saved under that directory, and the filename will be
|
|
|
|
generated by --output-filename-format.
|
2013-07-31 13:10:11 +00:00
|
|
|
|
|
|
|
Non-slicing actions (no G-code will be generated):
|
|
|
|
--repair Repair given STL files and save them as <name>_fixed.obj
|
2014-04-25 08:20:30 +00:00
|
|
|
--cut <z> Cut given input files at given Z (relative) and export
|
|
|
|
them as <name>_upper.stl and <name>_lower.stl
|
2014-08-03 14:08:04 +00:00
|
|
|
--split Split the shells contained in given STL file into several STL files
|
2013-07-31 13:10:11 +00:00
|
|
|
--info Output information about the supplied file(s) and exit
|
|
|
|
|
2012-04-10 14:26:56 +00:00
|
|
|
$j
|
2013-03-09 15:43:09 +00:00
|
|
|
GUI options:
|
2015-02-14 11:54:06 +00:00
|
|
|
--gui Forces the GUI launch instead of command line slicing (if you
|
|
|
|
supply a model file, it will be loaded into the plater)
|
2013-03-09 15:43:09 +00:00
|
|
|
--no-plater Disable the plater tab
|
2013-06-02 18:03:22 +00:00
|
|
|
--autosave <file> Automatically export current configuration to the specified file
|
2013-03-09 15:43:09 +00:00
|
|
|
|
2011-12-26 09:20:45 +00:00
|
|
|
Output options:
|
2012-02-05 19:59:05 +00:00
|
|
|
--output-filename-format
|
2011-12-26 16:20:26 +00:00
|
|
|
Output file name format; all config options enclosed in brackets
|
|
|
|
will be replaced by their values, as well as [input_filename_base]
|
2012-07-27 19:13:03 +00:00
|
|
|
and [input_filename] (default: $config->{output_filename_format})
|
2012-02-20 11:50:05 +00:00
|
|
|
--post-process Generated G-code will be processed with the supplied script;
|
|
|
|
call this more than once to process through multiple scripts.
|
2012-03-26 15:57:54 +00:00
|
|
|
--export-svg Export a SVG file containing slices instead of G-code.
|
2012-04-30 12:56:01 +00:00
|
|
|
-m, --merge If multiple files are supplied, they will be composed into a single
|
2012-04-29 10:51:20 +00:00
|
|
|
print rather than processed individually.
|
2011-12-26 09:20:45 +00:00
|
|
|
|
2011-09-06 09:10:12 +00:00
|
|
|
Printer options:
|
2012-07-27 19:13:03 +00:00
|
|
|
--nozzle-diameter Diameter of nozzle in mm (default: $config->{nozzle_diameter}->[0])
|
2014-06-16 21:58:45 +00:00
|
|
|
--print-center Coordinates in mm of the point to center the print around
|
|
|
|
(default: 100,100)
|
2011-09-26 13:59:03 +00:00
|
|
|
--z-offset Additional height in mm to add to vertical coordinates
|
2012-07-27 19:13:03 +00:00
|
|
|
(+/-, default: $config->{z_offset})
|
2016-07-16 14:52:11 +00:00
|
|
|
--gcode-flavor The type of G-code to generate (reprap/teacup/repetier/makerware/sailfish/mach3/machinekit/smoothie/no-extrusion,
|
2012-07-27 19:13:03 +00:00
|
|
|
default: $config->{gcode_flavor})
|
2013-10-27 15:59:18 +00:00
|
|
|
--use-relative-e-distances Enable this to get relative E values (default: no)
|
|
|
|
--use-firmware-retraction Enable firmware-controlled retraction using G10/G11 (default: no)
|
2015-01-05 18:39:10 +00:00
|
|
|
--use-volumetric-e Express E in cubic millimeters and prepend M200 (default: no)
|
2017-05-20 13:29:25 +00:00
|
|
|
--set-and-wait-temperatures Use M190 instead of M140 for temperature changes past the first (default: no)
|
2012-03-26 20:33:43 +00:00
|
|
|
--gcode-comments Make G-code verbose by adding comments (default: no)
|
2011-09-06 09:10:12 +00:00
|
|
|
|
|
|
|
Filament options:
|
2012-07-27 19:13:03 +00:00
|
|
|
--filament-diameter Diameter in mm of your raw filament (default: $config->{filament_diameter}->[0])
|
2011-11-25 10:15:20 +00:00
|
|
|
--extrusion-multiplier
|
2011-11-28 17:37:53 +00:00
|
|
|
Change this to alter the amount of plastic extruded. There should be
|
|
|
|
very little need to change this value, which is only useful to
|
2012-07-27 19:13:03 +00:00
|
|
|
compensate for filament packing (default: $config->{extrusion_multiplier}->[0])
|
|
|
|
--temperature Extrusion temperature in degree Celsius, set 0 to disable (default: $config->{temperature}->[0])
|
2012-02-26 13:54:38 +00:00
|
|
|
--first-layer-temperature Extrusion temperature for the first layer, in degree Celsius,
|
|
|
|
set 0 to disable (default: same as --temperature)
|
2017-06-21 14:15:39 +00:00
|
|
|
--bed-temperature Heated bed temperature in degree Celsius, set 0 to disable (default: $config->{bed_temperature}[0])
|
2012-03-03 22:14:40 +00:00
|
|
|
--first-layer-bed-temperature Heated bed temperature for the first layer, in degree Celsius,
|
|
|
|
set 0 to disable (default: same as --bed-temperature)
|
2011-09-06 09:10:12 +00:00
|
|
|
|
|
|
|
Speed options:
|
2012-07-27 19:13:03 +00:00
|
|
|
--travel-speed Speed of non-print moves in mm/s (default: $config->{travel_speed})
|
|
|
|
--perimeter-speed Speed of print moves for perimeters in mm/s (default: $config->{perimeter_speed})
|
2011-12-04 19:50:03 +00:00
|
|
|
--small-perimeter-speed
|
2012-06-06 17:57:16 +00:00
|
|
|
Speed of print moves for small perimeters in mm/s or % over perimeter speed
|
2012-07-27 19:13:03 +00:00
|
|
|
(default: $config->{small_perimeter_speed})
|
2012-06-27 17:37:34 +00:00
|
|
|
--external-perimeter-speed
|
|
|
|
Speed of print moves for the external perimeter in mm/s or % over perimeter speed
|
2012-07-27 19:13:03 +00:00
|
|
|
(default: $config->{external_perimeter_speed})
|
|
|
|
--infill-speed Speed of print moves in mm/s (default: $config->{infill_speed})
|
2012-06-06 17:57:16 +00:00
|
|
|
--solid-infill-speed Speed of print moves for solid surfaces in mm/s or % over infill speed
|
2012-07-27 19:13:03 +00:00
|
|
|
(default: $config->{solid_infill_speed})
|
2012-06-06 17:57:16 +00:00
|
|
|
--top-solid-infill-speed Speed of print moves for top surfaces in mm/s or % over solid infill speed
|
2012-07-27 19:13:03 +00:00
|
|
|
(default: $config->{top_solid_infill_speed})
|
2012-11-23 16:20:26 +00:00
|
|
|
--support-material-speed
|
|
|
|
Speed of support material print moves in mm/s (default: $config->{support_material_speed})
|
2014-05-21 13:21:20 +00:00
|
|
|
--support-material-interface-speed
|
|
|
|
Speed of support material interface print moves in mm/s or % over support material
|
|
|
|
speed (default: $config->{support_material_interface_speed})
|
2012-07-27 19:13:03 +00:00
|
|
|
--bridge-speed Speed of bridge print moves in mm/s (default: $config->{bridge_speed})
|
2012-11-23 10:25:02 +00:00
|
|
|
--gap-fill-speed Speed of gap fill print moves in mm/s (default: $config->{gap_fill_speed})
|
2012-06-06 13:52:21 +00:00
|
|
|
--first-layer-speed Speed of print moves for bottom layer, expressed either as an absolute
|
2012-07-27 19:13:03 +00:00
|
|
|
value or as a percentage over normal speeds (default: $config->{first_layer_speed})
|
2011-09-06 09:10:12 +00:00
|
|
|
|
2013-01-10 14:29:40 +00:00
|
|
|
Acceleration options:
|
|
|
|
--perimeter-acceleration
|
|
|
|
Overrides firmware's default acceleration for perimeters. (mm/s^2, set zero
|
|
|
|
to disable; default: $config->{perimeter_acceleration})
|
|
|
|
--infill-acceleration
|
|
|
|
Overrides firmware's default acceleration for infill. (mm/s^2, set zero
|
|
|
|
to disable; default: $config->{infill_acceleration})
|
2013-03-09 19:31:09 +00:00
|
|
|
--bridge-acceleration
|
|
|
|
Overrides firmware's default acceleration for bridges. (mm/s^2, set zero
|
|
|
|
to disable; default: $config->{bridge_acceleration})
|
2013-08-09 12:30:43 +00:00
|
|
|
--first-layer-acceleration
|
|
|
|
Overrides firmware's default acceleration for first layer. (mm/s^2, set zero
|
|
|
|
to disable; default: $config->{first_layer_acceleration})
|
2013-01-10 14:29:40 +00:00
|
|
|
--default-acceleration
|
|
|
|
Acceleration will be reset to this value after the specific settings above
|
2014-09-24 20:23:51 +00:00
|
|
|
have been applied. (mm/s^2, set zero to disable; default: $config->{default_acceleration})
|
2013-01-10 14:29:40 +00:00
|
|
|
|
2011-09-06 09:10:12 +00:00
|
|
|
Accuracy options:
|
2012-07-27 19:13:03 +00:00
|
|
|
--layer-height Layer height in mm (default: $config->{layer_height})
|
|
|
|
--first-layer-height Layer height for first layer (mm or %, default: $config->{first_layer_height})
|
2011-10-18 13:57:53 +00:00
|
|
|
--infill-every-layers
|
2012-07-27 19:13:03 +00:00
|
|
|
Infill every N layers (default: $config->{infill_every_layers})
|
2012-09-28 13:46:29 +00:00
|
|
|
--solid-infill-every-layers
|
|
|
|
Force a solid layer every N layers (default: $config->{solid_infill_every_layers})
|
2011-09-06 09:10:12 +00:00
|
|
|
|
|
|
|
Print options:
|
2012-07-27 19:13:03 +00:00
|
|
|
--perimeters Number of perimeters/horizontal skins (range: 0+, default: $config->{perimeters})
|
2012-10-25 10:39:22 +00:00
|
|
|
--top-solid-layers Number of solid layers to do for top surfaces (range: 0+, default: $config->{top_solid_layers})
|
|
|
|
--bottom-solid-layers Number of solid layers to do for bottom surfaces (range: 0+, default: $config->{bottom_solid_layers})
|
|
|
|
--solid-layers Shortcut for setting the two options above at once
|
2014-03-22 15:23:33 +00:00
|
|
|
--fill-density Infill density (range: 0%-100%, default: $config->{fill_density}%)
|
2012-07-27 19:13:03 +00:00
|
|
|
--fill-angle Infill angle in degrees (range: 0-90, default: $config->{fill_angle})
|
|
|
|
--fill-pattern Pattern to use to fill non-solid layers (default: $config->{fill_pattern})
|
2014-11-26 23:38:05 +00:00
|
|
|
--external-fill-pattern Pattern to use to fill solid layers (default: $config->{external_fill_pattern})
|
2012-03-26 10:14:15 +00:00
|
|
|
--start-gcode Load initial G-code from the supplied file. This will overwrite
|
2011-10-14 14:24:55 +00:00
|
|
|
the default command (home all axes [G28]).
|
2012-03-26 10:14:15 +00:00
|
|
|
--end-gcode Load final G-code from the supplied file. This will overwrite
|
2011-10-14 14:24:55 +00:00
|
|
|
the default commands (turn off temperature [M104 S0],
|
|
|
|
home X axis [G28 X], disable motors [M84]).
|
2015-01-30 19:08:00 +00:00
|
|
|
--before-layer-gcode Load before-layer-change G-code from the supplied file (default: nothing).
|
2012-03-26 10:14:15 +00:00
|
|
|
--layer-gcode Load layer-change G-code from the supplied file (default: nothing).
|
2012-12-23 15:29:08 +00:00
|
|
|
--toolchange-gcode Load tool-change G-code from the supplied file (default: nothing).
|
2014-05-24 20:10:28 +00:00
|
|
|
--seam-position Position of loop starting points (random/nearest/aligned, default: $config->{seam_position}).
|
2013-03-16 17:56:49 +00:00
|
|
|
--external-perimeters-first Reverse perimeter order. (default: no)
|
2013-05-13 18:15:45 +00:00
|
|
|
--spiral-vase Experimental option to raise Z gradually when printing single-walled vases
|
|
|
|
(default: no)
|
2012-08-25 14:30:11 +00:00
|
|
|
--only-retract-when-crossing-perimeters
|
|
|
|
Disable retraction when travelling between infill paths inside the same island.
|
|
|
|
(default: no)
|
2012-08-24 17:38:36 +00:00
|
|
|
--solid-infill-below-area
|
|
|
|
Force solid infill when a region has a smaller area than this threshold
|
|
|
|
(mm^2, default: $config->{solid_infill_below_area})
|
2013-02-09 22:36:32 +00:00
|
|
|
--infill-only-where-needed
|
|
|
|
Only infill under ceilings (default: no)
|
2013-03-10 17:15:44 +00:00
|
|
|
--infill-first Make infill before perimeters (default: no)
|
2011-09-06 09:10:12 +00:00
|
|
|
|
2013-07-05 20:06:58 +00:00
|
|
|
Quality options (slower slicing):
|
|
|
|
--extra-perimeters Add more perimeters when needed (default: yes)
|
2016-10-16 20:11:19 +00:00
|
|
|
--ensure-vertical-shell-thickness Add solid infill near sloping surfaces to guarantee the vertical shell thickness (top+bottom solid layers). (default: no)
|
2013-07-05 20:06:58 +00:00
|
|
|
--avoid-crossing-perimeters Optimize travel moves so that no perimeters are crossed (default: no)
|
2013-07-05 20:10:43 +00:00
|
|
|
--thin-walls Detect single-width walls (default: yes)
|
2013-07-06 09:35:40 +00:00
|
|
|
--overhangs Experimental option to use bridge flow, speed and fan for overhangs
|
|
|
|
(default: yes)
|
2013-07-05 20:06:58 +00:00
|
|
|
|
2012-06-23 20:43:23 +00:00
|
|
|
Support material options:
|
|
|
|
--support-material Generate support material for overhangs
|
2012-06-23 21:54:39 +00:00
|
|
|
--support-material-threshold
|
2013-01-02 18:40:48 +00:00
|
|
|
Overhang threshold angle (range: 0-90, set 0 for automatic detection,
|
|
|
|
default: $config->{support_material_threshold})
|
2012-06-23 20:43:23 +00:00
|
|
|
--support-material-pattern
|
2012-07-27 19:13:03 +00:00
|
|
|
Pattern to use for support material (default: $config->{support_material_pattern})
|
2016-10-04 12:38:13 +00:00
|
|
|
--support-material-with-sheath
|
|
|
|
Add a sheath (a single perimeter line) around the base support.
|
|
|
|
This makes the support more reliable, but also more difficult to remove. (default: yes)
|
2012-06-24 12:39:35 +00:00
|
|
|
--support-material-spacing
|
2012-07-27 19:13:03 +00:00
|
|
|
Spacing between pattern lines (mm, default: $config->{support_material_spacing})
|
2012-06-23 20:43:23 +00:00
|
|
|
--support-material-angle
|
2012-07-27 19:13:03 +00:00
|
|
|
Support material angle in degrees (range: 0-90, default: $config->{support_material_angle})
|
2015-01-19 08:52:24 +00:00
|
|
|
--support-material-contact-distance
|
|
|
|
Vertical distance between object and support material (0+, default: $config->{support_material_contact_distance})
|
2016-03-20 03:30:02 +00:00
|
|
|
--support-material-xy-spacing
|
2017-01-05 08:12:24 +00:00
|
|
|
"XY separation between an object and its support. If expressed as percentage (for example 50%),
|
|
|
|
it will be calculated over external perimeter width (default: half of exteral perimeter width)
|
2013-02-03 16:23:50 +00:00
|
|
|
--support-material-interface-layers
|
|
|
|
Number of perpendicular layers between support material and object (0+, default: $config->{support_material_interface_layers})
|
|
|
|
--support-material-interface-spacing
|
|
|
|
Spacing between interface pattern lines (mm, set 0 to get a solid layer, default: $config->{support_material_interface_spacing})
|
2013-01-28 13:12:01 +00:00
|
|
|
--raft-layers Number of layers to raise the printed objects by (range: 0+, default: $config->{raft_layers})
|
2013-02-04 14:48:57 +00:00
|
|
|
--support-material-enforce-layers
|
|
|
|
Enforce support material on the specified number of layers from bottom,
|
|
|
|
regardless of --support-material and threshold (0+, default: $config->{support_material_enforce_layers})
|
2016-10-04 11:54:10 +00:00
|
|
|
--support-material-buildplate-only
|
|
|
|
Only create support if it lies on a build plate. Don't create support on a print. (default: no)
|
2014-04-26 15:19:50 +00:00
|
|
|
--dont-support-bridges
|
|
|
|
Experimental option for preventing support material from being generated under bridged areas (default: yes)
|
2012-06-23 20:43:23 +00:00
|
|
|
|
2012-02-25 20:01:00 +00:00
|
|
|
Retraction options:
|
2012-08-22 17:11:45 +00:00
|
|
|
--retract-length Length of retraction in mm when pausing extrusion (default: $config->{retract_length}[0])
|
2012-08-07 19:08:56 +00:00
|
|
|
--retract-speed Speed for retraction in mm/s (default: $config->{retract_speed}[0])
|
2017-05-19 19:48:32 +00:00
|
|
|
--deretract-speed Speed for deretraction (loading of filament after a retract) in mm/s (default: $config->{retract_speed}[0])
|
2011-09-05 16:52:09 +00:00
|
|
|
--retract-restart-extra
|
2011-09-06 09:10:12 +00:00
|
|
|
Additional amount of filament in mm to push after
|
2012-08-07 19:08:56 +00:00
|
|
|
compensating retraction (default: $config->{retract_restart_extra}[0])
|
2011-10-02 07:57:37 +00:00
|
|
|
--retract-before-travel
|
2012-08-07 19:08:56 +00:00
|
|
|
Only retract before travel moves of this length in mm (default: $config->{retract_before_travel}[0])
|
|
|
|
--retract-lift Lift Z by the given distance in mm when retracting (default: $config->{retract_lift}[0])
|
2015-12-18 17:36:39 +00:00
|
|
|
--retract-lift-above Only lift Z when above the specified height (default: $config->{retract_lift_above}[0])
|
|
|
|
--retract-lift-below Only lift Z when below the specified height (default: $config->{retract_lift_below}[0])
|
2013-03-09 19:05:43 +00:00
|
|
|
--retract-layer-change
|
2015-05-24 22:35:57 +00:00
|
|
|
Enforce a retraction before each Z move (default: no)
|
2013-03-17 01:22:50 +00:00
|
|
|
--wipe Wipe the nozzle while doing a retraction (default: no)
|
2012-08-22 17:11:45 +00:00
|
|
|
|
|
|
|
Retraction options for multi-extruder setups:
|
|
|
|
--retract-length-toolchange
|
2015-01-15 16:49:22 +00:00
|
|
|
Length of retraction in mm when disabling tool (default: $config->{retract_length_toolchange}[0])
|
2015-01-12 23:19:01 +00:00
|
|
|
--retract-restart-extra-toolchange
|
2012-08-22 17:11:45 +00:00
|
|
|
Additional amount of filament in mm to push after
|
2015-01-15 16:49:22 +00:00
|
|
|
switching tool (default: $config->{retract_restart_extra_toolchange}[0])
|
2011-10-02 07:57:37 +00:00
|
|
|
|
2012-02-25 20:01:00 +00:00
|
|
|
Cooling options:
|
2012-02-25 20:56:36 +00:00
|
|
|
--cooling Enable fan and cooling control
|
2017-06-21 14:15:39 +00:00
|
|
|
--min-fan-speed Minimum fan speed (default: $config->{min_fan_speed}[0]%)
|
|
|
|
--max-fan-speed Maximum fan speed (default: $config->{max_fan_speed}[0]%)
|
|
|
|
--bridge-fan-speed Fan speed to use when bridging (default: $config->{bridge_fan_speed}[0]%)
|
2012-02-25 20:01:00 +00:00
|
|
|
--fan-below-layer-time Enable fan if layer print time is below this approximate number
|
2017-06-21 14:15:39 +00:00
|
|
|
of seconds (default: $config->{fan_below_layer_time}[0])
|
2012-02-25 20:01:00 +00:00
|
|
|
--slowdown-below-layer-time Slow down if layer print time is below this approximate number
|
2017-06-21 14:15:39 +00:00
|
|
|
of seconds (default: $config->{slowdown_below_layer_time}[0])
|
|
|
|
--min-print-speed Minimum print speed (mm/s, default: $config->{min_print_speed}[0])
|
|
|
|
--disable-fan-first-layers Disable fan for the first N layers (default: $config->{disable_fan_first_layers}[0])
|
2012-03-03 21:21:30 +00:00
|
|
|
--fan-always-on Keep fan always on at min fan speed, even for layers that don't need
|
|
|
|
cooling
|
2012-02-25 20:01:00 +00:00
|
|
|
|
2011-09-06 09:10:12 +00:00
|
|
|
Skirt options:
|
2012-07-27 19:13:03 +00:00
|
|
|
--skirts Number of skirts to draw (0+, default: $config->{skirts})
|
2011-09-05 18:00:59 +00:00
|
|
|
--skirt-distance Distance in mm between innermost skirt and object
|
2012-07-27 19:13:03 +00:00
|
|
|
(default: $config->{skirt_distance})
|
|
|
|
--skirt-height Height of skirts to draw (expressed in layers, 0+, default: $config->{skirt_height})
|
2012-10-29 10:17:57 +00:00
|
|
|
--min-skirt-length Generate no less than the number of loops required to consume this length
|
|
|
|
of filament on the first layer, for each extruder (mm, 0+, default: $config->{min_skirt_length})
|
2012-06-23 20:27:59 +00:00
|
|
|
--brim-width Width of the brim that will get added to each object to help adhesion
|
2012-07-27 19:13:03 +00:00
|
|
|
(mm, default: $config->{brim_width})
|
2011-09-26 10:07:29 +00:00
|
|
|
|
|
|
|
Transform options:
|
2014-01-02 17:01:21 +00:00
|
|
|
--scale Factor for scaling input object (default: 1)
|
|
|
|
--rotate Rotation angle in degrees (0-360, default: 0)
|
|
|
|
--duplicate Number of items with auto-arrange (1+, default: 1)
|
|
|
|
--duplicate-grid Number of items with grid arrangement (default: 1,1)
|
2012-07-27 19:13:03 +00:00
|
|
|
--duplicate-distance Distance in mm between copies (default: $config->{duplicate_distance})
|
2016-09-05 09:32:58 +00:00
|
|
|
--dont-arrange Don't arrange the objects on the build plate. The model coordinates
|
|
|
|
define the absolute positions on the build plate.
|
|
|
|
The option --print-center will be ignored.
|
2017-06-26 14:28:10 +00:00
|
|
|
--clip_multipart_objects
|
|
|
|
When printing multi-material objects, this settings will make slic3r to clip the overlapping
|
2017-02-14 11:36:04 +00:00
|
|
|
object parts one by the other (2nd part will be clipped by the 1st, 3rd part will be clipped
|
|
|
|
by the 1st and 2nd etc). (default: $config->{clip_multipart_objects})";
|
2017-06-26 14:28:10 +00:00
|
|
|
--elefant-foot-compensation
|
|
|
|
Shrink the first layer by the configured value to compensate for the 1st layer squish
|
|
|
|
aka an Elefant Foot effect (mm, default: $config->{elefant_foot_compensation})
|
2014-06-10 11:28:57 +00:00
|
|
|
--xy-size-compensation
|
|
|
|
Grow/shrink objects by the configured absolute distance (mm, default: $config->{xy_size_compensation})
|
2012-05-23 09:47:52 +00:00
|
|
|
|
|
|
|
Sequential printing options:
|
|
|
|
--complete-objects When printing multiple objects and/or copies, complete each one before
|
|
|
|
starting the next one; watch out for extruder collisions (default: no)
|
|
|
|
--extruder-clearance-radius Radius in mm above which extruder won't collide with anything
|
2012-07-27 19:13:03 +00:00
|
|
|
(default: $config->{extruder_clearance_radius})
|
2012-05-23 09:47:52 +00:00
|
|
|
--extruder-clearance-height Maximum vertical extruder depth; i.e. vertical distance from
|
2012-07-27 19:13:03 +00:00
|
|
|
extruder tip and carriage bottom (default: $config->{extruder_clearance_height})
|
2012-05-23 09:47:52 +00:00
|
|
|
|
2012-02-05 19:55:17 +00:00
|
|
|
Miscellaneous options:
|
|
|
|
--notes Notes to be added as comments to the output file
|
2013-03-16 18:58:34 +00:00
|
|
|
--resolution Minimum detail resolution (mm, set zero for full resolution, default: $config->{resolution})
|
2011-12-07 18:33:59 +00:00
|
|
|
|
2012-04-11 13:58:09 +00:00
|
|
|
Flow options (advanced):
|
2012-06-06 13:23:34 +00:00
|
|
|
--extrusion-width Set extrusion width manually; it accepts either an absolute value in mm
|
|
|
|
(like 0.65) or a percentage over layer height (like 200%)
|
2012-06-06 15:29:12 +00:00
|
|
|
--first-layer-extrusion-width
|
|
|
|
Set a different extrusion width for first layer
|
2013-01-17 11:54:48 +00:00
|
|
|
--perimeter-extrusion-width
|
2012-06-06 16:05:03 +00:00
|
|
|
Set a different extrusion width for perimeters
|
2014-06-09 19:14:48 +00:00
|
|
|
--external-perimeter-extrusion-width
|
|
|
|
Set a different extrusion width for external perimeters
|
2012-06-06 16:05:03 +00:00
|
|
|
--infill-extrusion-width
|
|
|
|
Set a different extrusion width for infill
|
2013-03-16 23:02:31 +00:00
|
|
|
--solid-infill-extrusion-width
|
|
|
|
Set a different extrusion width for solid infill
|
2013-03-07 15:00:58 +00:00
|
|
|
--top-infill-extrusion-width
|
|
|
|
Set a different extrusion width for top infill
|
2012-06-28 14:33:07 +00:00
|
|
|
--support-material-extrusion-width
|
|
|
|
Set a different extrusion width for support material
|
2015-02-01 11:08:25 +00:00
|
|
|
--infill-overlap Overlap between infill and perimeters (default: $config->{infill_overlap})
|
2012-07-27 19:13:03 +00:00
|
|
|
--bridge-flow-ratio Multiplier for extrusion when bridging (> 0, default: $config->{bridge_flow_ratio})
|
2012-06-28 14:48:56 +00:00
|
|
|
|
|
|
|
Multiple extruder options:
|
2012-08-07 19:39:45 +00:00
|
|
|
--extruder-offset Offset of each extruder, if firmware doesn't handle the displacement
|
|
|
|
(can be specified multiple times, default: 0x0)
|
2013-01-17 11:54:48 +00:00
|
|
|
--perimeter-extruder
|
2014-12-16 23:45:05 +00:00
|
|
|
Extruder to use for perimeters and brim (1+, default: $config->{perimeter_extruder})
|
2013-11-15 15:01:15 +00:00
|
|
|
--infill-extruder Extruder to use for infill (1+, default: $config->{infill_extruder})
|
2014-12-16 23:34:00 +00:00
|
|
|
--solid-infill-extruder Extruder to use for solid infill (1+, default: $config->{solid_infill_extruder})
|
2012-06-28 14:48:56 +00:00
|
|
|
--support-material-extruder
|
2017-01-30 18:56:46 +00:00
|
|
|
Extruder to use for support material, raft and skirt
|
|
|
|
(1+, 0 to use the current extruder to minimize tool changes, default: $config->{support_material_extruder})
|
2013-07-29 18:49:54 +00:00
|
|
|
--support-material-interface-extruder
|
2017-01-30 18:56:46 +00:00
|
|
|
Extruder to use for support material interface
|
|
|
|
(1+, 0 to use the current extruder to minimize tool changes, default: $config->{support_material_interface_extruder})
|
2013-11-15 15:01:15 +00:00
|
|
|
--ooze-prevention Drop temperature and park extruders outside a full skirt for automatic wiping
|
|
|
|
(default: no)
|
|
|
|
--standby-temperature-delta
|
|
|
|
Temperature difference to be applied when an extruder is not active and
|
|
|
|
--ooze-prevention is enabled (default: $config->{standby_temperature_delta})
|
2011-09-05 11:33:09 +00:00
|
|
|
|
|
|
|
EOF
|
2011-09-26 13:52:41 +00:00
|
|
|
exit ($exit_code || 0);
|
2011-09-05 11:33:09 +00:00
|
|
|
}
|
2011-09-01 19:06:28 +00:00
|
|
|
|
|
|
|
__END__
|