diff options
| author | ribet | 2007-05-24 12:40:14 +0000 |
|---|---|---|
| committer | ribet | 2007-05-24 12:40:14 +0000 |
| commit | 624331f5632af8fb549eeea42f74a872283400a5 (patch) | |
| tree | bb28ca259fddd6f9328f07d20ecad613b8a3a296 /src/MTools/Anim | |
| parent | f37be14560ef9d1bcef7bf214a61513ca3289442 (diff) | |
| download | mtc-624331f5632af8fb549eeea42f74a872283400a5.zip mtc-624331f5632af8fb549eeea42f74a872283400a5.tar.gz mtc-624331f5632af8fb549eeea42f74a872283400a5.tar.bz2 mtc-624331f5632af8fb549eeea42f74a872283400a5.tar.xz | |
Correction du clignottement lors du bouclage.
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 ++) |