diff options
Diffstat (limited to 'src/MTools/Anim')
| -rw-r--r-- | src/MTools/Anim/MPath.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/MTools/Anim/MPath.pm b/src/MTools/Anim/MPath.pm index cfb87d0..d24e740 100644 --- a/src/MTools/Anim/MPath.pm +++ b/src/MTools/Anim/MPath.pm @@ -141,8 +141,8 @@ sub __getPoint { my ($self, $percentage) = @_; my @points = @{$self -> mget ('path')}; my $length = $self -> {__length} * $percentage / 100; - my $x = 0; - my $y = 0; + my $x = $points [$#points] -> [0]; + my $y = $points [$#points] -> [1]; my $vx = 0; my $vy = 0; for (my $i = 0; $i < @points - 1; $i ++) |