diff options
| -rw-r--r-- | doc/manuel_utilisateur.txt | 3 | ||||
| -rw-r--r-- | src/MTools/Anim/MPath.pm | 4 |
2 files changed, 2 insertions, 5 deletions
diff --git a/doc/manuel_utilisateur.txt b/doc/manuel_utilisateur.txt index 255b705..1db8e8a 100644 --- a/doc/manuel_utilisateur.txt +++ b/doc/manuel_utilisateur.txt @@ -531,9 +531,6 @@ Les fonctions applicables à un objet MPath sont : - stop: arrête l'animation - isRunning : détermine si l'animation est en cours -*** Au moment du "rebouclage" de l'animation, il y a parfois un -clignottement. Voir comment on peut régler ce problème - Exemple d'utilisation : use MTools; use MTools::GUI::MRect; 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 ++) |