Bad memory access in regular_points()

This commit is contained in:
Alessandro Ranellucci 2013-10-27 20:48:50 +01:00
parent 58d92ac36a
commit a99d34a91a
2 changed files with 3 additions and 3 deletions

View File

@ -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++) {

View File

@ -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)};