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

New script to generate vertical section cuts from any given G-code file

Browse Source
This commit is contained in:
Alessandro Ranellucci
2013-05-02 11:42:51 +02:00
parent dde3e6e870
commit 855ba90332
4 changed files with 143 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Slic3r/SVG.pm
View File

@@ -9,7 +9,7 @@ use constant Y => 1;
our $filltype = 'evenodd';
sub factor {
sub factor {return 30;
return &Slic3r::SCALING_FACTOR * 10;
}

15
lib/Slic3r/Test.pm
View File

@@ -94,7 +94,7 @@ sub parse {
my $self = shift;
my ($cb) = @_;
foreach my $line (split /\n/, $self->gcode) {
foreach my $line (split /\R+/, $self->gcode) {
print "$line\n" if $Verbose || $ENV{SLIC3R_TESTS_GCODE};
$line =~ s/\s*;(.*)//; # strip comment
next if $line eq '';
@@ -107,15 +107,14 @@ sub parse {
# check retraction
if ($command =~ /^G[01]$/) {
if (!exists $args{E}) {
$info{travel} = 1;
}
foreach my $axis (@AXES) {
if (!exists $args{$axis}) {
if (exists $args{$axis}) {
$info{"dist_$axis"} = $args{$axis} - $self->$axis;
$info{"new_$axis"} = $args{$axis};
} else {
$info{"dist_$axis"} = 0;
next;
$info{"new_$axis"} = $self->$axis;
}
$info{"dist_$axis"} = $args{$axis} - $self->$axis;
}
$info{dist_XY} = Slic3r::Line->new([0,0], [@info{qw(dist_X dist_Y)}])->length;
if (exists $args{E}) {
@@ -124,6 +123,8 @@ sub parse {
} elsif ($info{dist_E} < 0) {
$info{retracting} = 1
}
} else {
$info{travel} = 1;
}
}