amd/orcaslicer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Bugfix: bottom layer speed settings were ignored.

Browse source
This commit is contained in:
Alessandro Ranellucci 2011-11-15 12:02:31 +01:00
parent e65349469b
commit 2abd8fe240
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/Slic3r/Extruder.pm
View file

@ -1,6 +1,7 @@
package Slic3r::Extruder;
use Moo;
has 'layer' => (is => 'rw');
has 'shift_x' => (is => 'ro', default => sub {0} );
has 'shift_y' => (is => 'ro', default => sub {0} );
has 'z' => (is => 'rw', default => sub {0} );
@ -34,9 +35,12 @@ has 'retract_speed' => (
use Slic3r::Geometry qw(points_coincide PI X Y);
use XXX;
sub move_z {
sub change_layer {
my $self = shift;
my ($z) = @_;
my ($layer) = @_;
$self->layer($layer);
my $z = $Slic3r::z_offset + $layer->print_z * $Slic3r::resolution;
my $gcode = "";
@ -236,7 +240,7 @@ sub _Gx {
my $dec = $self->dec;
# apply the speed reduction for print moves on bottom layer
my $speed_multiplier = $e && $self->z == $Slic3r::z_offset
my $speed_multiplier = $e && $self->layer->id == 0
? $Slic3r::bottom_layer_speed_ratio
: 1;

2
lib/Slic3r/Print.pm
View file

@ -464,7 +464,7 @@ sub export_gcode {
# write gcode commands layer by layer
foreach my $layer (@{ $self->layers }) {
# go to layer
printf $fh $extruder->move_z($Slic3r::z_offset + $layer->print_z * $Slic3r::resolution);
printf $fh $extruder->change_layer($layer);
# extrude skirts
printf $fh $extruder->extrude_loop($_, 'skirt') for @{ $layer->skirts };