OrcaSlicer-bambulab/lib/Slic3r/Fill/Flowsnake.pm

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;