Fixed regression causing a long string between copies

This commit is contained in:
Alessandro Ranellucci 2012-11-06 19:54:21 +01:00
parent 68c2ac601b
commit ab2b31672f
2 changed files with 14 additions and 8 deletions

View file

@ -47,6 +47,16 @@ my %role_speeds = (
&EXTR_ROLE_SUPPORTMATERIAL => 'perimeter',
);
sub set_shift {
my $self = shift;
my @shift = @_;
$self->shift_x($shift[X]);
$self->shift_y($shift[Y]);
$self->last_pos->translate(map -$_, @shift);
}
# this method accepts Z in scaled coordinates
sub move_z {
my $self = shift;