3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 04:31:15 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Merge branch 'master' into newslice

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-06-23 22:23:25 +02:00
commit 86c4f5c5b0
4 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Build.PL
View file

@ -69,8 +69,14 @@ EOF
my %modules = (%prereqs, %recommends); my %modules = (%prereqs, %recommends);
foreach my $module (sort keys %modules) { foreach my $module (sort keys %modules) {
my $version = $modules{$module}; my $version = $modules{$module};
system $cpanm, '--sudo', "$module~$version"; if ($ENV{SLIC3R_NO_AUTO}) {
print "Missing prerequisite $module $version\n"
if !eval "use $module $version; 1";
} else {
system $cpanm, "$module~$version";
} }
}
exit if $ENV{SLIC3R_NO_AUTO};
if (eval "use App::Prove; 1") { if (eval "use App::Prove; 1") {
App::Prove->new->run; App::Prove->new->run;

4
lib/Slic3r/Config.pm
View file

@ -1071,8 +1071,7 @@ sub new_from_cli {
for (qw(start end layer toolchange)) { for (qw(start end layer toolchange)) {
my $opt_key = "${_}_gcode"; my $opt_key = "${_}_gcode";
if ($args{$opt_key}) { if ($args{$opt_key}) {
die "Invalid value for --${_}-gcode: file does not exist\n" if (-e $args{$opt_key}) {
if !-e $args{$opt_key};
Slic3r::open(\my $fh, "<", $args{$opt_key}) Slic3r::open(\my $fh, "<", $args{$opt_key})
or die "Failed to open $args{$opt_key}\n"; or die "Failed to open $args{$opt_key}\n";
binmode $fh, ':utf8'; binmode $fh, ':utf8';
@ -1080,6 +1079,7 @@ sub new_from_cli {
close $fh; close $fh;
} }
} }
}
$args{$_} = $Options->{$_}{deserialize}->($args{$_}) $args{$_} = $Options->{$_}{deserialize}->($args{$_})
for grep exists $args{$_}, qw(print_center bed_size duplicate_grid extruder_offset retract_layer_change wipe); for grep exists $args{$_}, qw(print_center bed_size duplicate_grid extruder_offset retract_layer_change wipe);

4
lib/Slic3r/GCode/Layer.pm
View file

@ -44,7 +44,9 @@ sub process_layer {
$self->gcodegen->move_z_callback(sub { $self->gcodegen->move_z_callback(sub {
$self->gcodegen->move_z_callback(undef); # circular ref or not? $self->gcodegen->move_z_callback(undef); # circular ref or not?
return "" if !$Slic3r::Config->layer_gcode; return "" if !$Slic3r::Config->layer_gcode;
return $Slic3r::Config->replace_options($Slic3r::Config->layer_gcode) . "\n"; return $Slic3r::Config->replace_options($Slic3r::Config->layer_gcode, {
layer_num => $self->gcodegen->layer->id,
}) . "\n";
}); });
# extrude skirt # extrude skirt

4
lib/Slic3r/Print/Object.pm
View file

@ -738,8 +738,8 @@ sub combine_infill {
my @layerms = map $self->layers->[$_]->regions->[$region_id], my @layerms = map $self->layers->[$_]->regions->[$region_id],
($layer_id - ($combine[$layer_id]-1) .. $layer_id); ($layer_id - ($combine[$layer_id]-1) .. $layer_id);
# process internal and internal-solid infill separately # only combine internal infill
for my $type (S_TYPE_INTERNAL, S_TYPE_INTERNALSOLID) { for my $type (S_TYPE_INTERNAL) {
# we need to perform a multi-layer intersection, so let's split it in pairs # we need to perform a multi-layer intersection, so let's split it in pairs
# initialize the intersection with the candidates of the lowest layer # initialize the intersection with the candidates of the lowest layer