99 lines
2.6 KiB
Perl
Executable File
99 lines
2.6 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# This script exports experimental G-code for wireframe printing
|
|
# (inspired by the brilliant WirePrint concept)
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN {
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../lib";
|
|
}
|
|
|
|
use Getopt::Long qw(:config no_auto_abbrev);
|
|
use PDF::API2;
|
|
use Slic3r;
|
|
use Slic3r::ExtrusionPath ':roles';
|
|
use Slic3r::Geometry qw(scale unscale X Y);
|
|
|
|
my %opt = (
|
|
step_height => 10,
|
|
);
|
|
{
|
|
my %options = (
|
|
'help' => sub { usage() },
|
|
'output|o=s' => \$opt{output_file},
|
|
'step-height|h=f' => \$opt{step_height},
|
|
'nozzle-angle|a=f' => \$opt{nozzle_angle},
|
|
);
|
|
GetOptions(%options) or usage(1);
|
|
$opt{output_file} or usage(1);
|
|
### Input file is not needed until we use hard-coded geometry:
|
|
### $ARGV[0] or usage(1);
|
|
}
|
|
|
|
{
|
|
my $flow = Slic3r::Flow->new(
|
|
width => 0.35,
|
|
height => 0.35,
|
|
nozzle_diameter => 0.35,
|
|
bridge => 1,
|
|
);
|
|
|
|
my $section;
|
|
|
|
# build a square section
|
|
{
|
|
my $dist = 2 * $opt{step_height}; # horizontal step
|
|
my $side_modules = 3;
|
|
my @points = (
|
|
[0,0],
|
|
(map [$_*$dist, 0], 1..$side_modules),
|
|
(map [$side_modules*$dist, $_*$dist], 1..$side_modules),
|
|
(map [($_-1)*$dist, $side_modules*$dist], reverse 1..$side_modules),
|
|
(map [0, ($_-1)*$dist], reverse 1..$side_modules),
|
|
);
|
|
pop @points; # prevent coinciding endpoints
|
|
$section = Slic3r::Polygon->new_scale(@points);
|
|
}
|
|
my $section_loop = Slic3r::ExtrusionLoop->new_from_paths(
|
|
Slic3r::ExtrusionPath->new(
|
|
polyline => $section->split_at_first_point,
|
|
role => EXTR_ROLE_BRIDGE,
|
|
mm3_per_mm => $flow->mm3_per_mm,
|
|
width => $flow->width,
|
|
height => $flow->height,
|
|
)
|
|
);
|
|
|
|
my $vertical_steps = 3;
|
|
|
|
open my $fh, '>', $opt{output_file};
|
|
my $gcodegen = Slic3r::GCode::Base->new;
|
|
|
|
print $fh "G21 ; set units to millimeters\n";
|
|
print $fh "G90 ; use absolute coordinates\n";
|
|
|
|
# print one section on layer 0
|
|
$gcodegen->extrude_loop($section_loop);
|
|
|
|
close $fh;
|
|
}
|
|
|
|
sub usage {
|
|
my ($exit_code) = @_;
|
|
|
|
print <<"EOF";
|
|
Usage: wireframe.pl [ OPTIONS ] file.stl
|
|
|
|
--help Output this usage screen and exit
|
|
--output, -o Write to the specified file
|
|
--step-height, -h Use the specified step height
|
|
--nozzle-angle, -a Max nozzle angle
|
|
|
|
EOF
|
|
exit ($exit_code || 0);
|
|
}
|
|
|
|
__END__
|