19 lines
338 B
Perl
19 lines
338 B
Perl
package Slic3r::Fill::Flowsnake;
|
|
use Moo;
|
|
|
|
extends 'Slic3r::Fill::PlanePath';
|
|
|
|
use Math::PlanePath::Flowsnake;
|
|
use Slic3r::Geometry qw(X);
|
|
|
|
# Sorry, this fill is currently broken.
|
|
|
|
sub process_polyline {
|
|
my $self = shift;
|
|
my ($polyline, $bounding_box) = @_;
|
|
|
|
$_->[X] += $bounding_box->center_2D->[X] for @$polyline;
|
|
}
|
|
|
|
1;
|