juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-18 11:02:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

New --start-gcode and --end-gcode options. #12

Browse Source
This commit is contained in:
Alessandro Ranellucci
2011-10-14 16:24:55 +02:00
parent f7335b6d1e
commit 2d784fac9b
5 changed files with 63 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
lib/Slic3r/Config.pm
View File

@@ -86,6 +86,18 @@ our $Options = {
label => 'Fill angle (°)',
type => 'i',
},
'start_gcode' => {
label => 'Start GCODE',
type => 's',
serialize => sub { join '\n', split /\R+/, $_[0] },
deserialize => sub { join "\n", split /\\n/, $_[0] },
},
'end_gcode' => {
label => 'End GCODE',
type => 's',
serialize => sub { join '\n', split /\R+/, $_[0] },
deserialize => sub { join "\n", split /\\n/, $_[0] },
},
# retraction options
'retract_length' => {
@@ -179,6 +191,25 @@ sub load {
close $fh;
}
sub validate_cli {
my $class = shift;
my ($opt) = @_;
for (qw(start end)) {
if (defined $opt->{$_."_gcode"}) {
if ($opt->{$_."_gcode"} eq "") {
set($_."_gcode", "");
} else {
die "Invalid value for --${_}-gcode: file does not exist"
if !-e $opt->{$_."_gcode"};
open my $fh, "<", $opt->{$_."_gcode"};
set($_."_gcode", do { local $/; <$fh> });
close $fh;
}
}
}
}
sub validate {
my $class = shift;