1
package Slic3r::Fill::Flowsnake;
4
extends 'Slic3r::Fill::PlanePath';
6
use Math::PlanePath::Flowsnake;
7
use Slic3r::Geometry qw(X);
9
# Sorry, this fill is currently broken.
11
sub process_polyline {
13
my ($polyline, $bounding_box) = @_;
15
$_->[X] += $bounding_box->center->[X] for @$polyline;