Bad memory access in regular_points()
This commit is contained in:
parent
58d92ac36a
commit
a99d34a91a
@ -113,7 +113,7 @@ sub clip_start {
|
|||||||
my ($distance) = @_;
|
my ($distance) = @_;
|
||||||
|
|
||||||
my @my_points = @$self;
|
my @my_points = @$self;
|
||||||
my $points = [ $my_points[0] ];
|
my $points = [ $my_points[0]->clone ];
|
||||||
|
|
||||||
for (my $i = 1; $distance > 0 && $i <= $#my_points; $i++) {
|
for (my $i = 1; $distance > 0 && $i <= $#my_points; $i++) {
|
||||||
my $point = $my_points[$i];
|
my $point = $my_points[$i];
|
||||||
@ -140,7 +140,7 @@ sub regular_points {
|
|||||||
my ($distance) = @_;
|
my ($distance) = @_;
|
||||||
|
|
||||||
my @my_points = @$self;
|
my @my_points = @$self;
|
||||||
my @points = ($my_points[0]);
|
my @points = ($my_points[0]->clone);
|
||||||
my $len = 0;
|
my $len = 0;
|
||||||
|
|
||||||
for (my $i = 1; $i <= $#my_points; $i++) {
|
for (my $i = 1; $i <= $#my_points; $i++) {
|
||||||
|
@ -396,7 +396,7 @@ sub generate_toolpaths {
|
|||||||
push @$base, @$contact;
|
push @$base, @$contact;
|
||||||
} elsif (@$contact && $contact_loops > 0) {
|
} elsif (@$contact && $contact_loops > 0) {
|
||||||
# generate the outermost loop
|
# generate the outermost loop
|
||||||
my @loops0;
|
my @loops0 = ();
|
||||||
{
|
{
|
||||||
# find centerline of the external loop of the contours
|
# find centerline of the external loop of the contours
|
||||||
my @external_loops = @{offset($contact, -$flow->scaled_width/2)};
|
my @external_loops = @{offset($contact, -$flow->scaled_width/2)};
|
||||||
|
Loading…
Reference in New Issue
Block a user