103 lines
2.8 KiB
Perl
103 lines
2.8 KiB
Perl
#!/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->new(
|
||
enable_loop_clipping => 0, # better bonding
|
||
);
|
||
$gcodegen->set_extruders([0]);
|
||
print $fh $gcodegen->set_extruder(0);
|
||
print $fh $gcodegen->writer->preamble;
|
||
|
||
foreach my $z (map $_*$opt{step_height}, 0..($vertical_steps-1)) {
|
||
print $fh $gcodegen->writer->travel_to_z($z + $flow->height);
|
||
print $fh $gcodegen->extrude_loop($section_loop, "contour");
|
||
}
|
||
|
||
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__
|