diff options
| -rwxr-xr-x | exemples/exemple_MMover_MInertie.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/exemples/exemple_MMover_MInertie.pl b/exemples/exemple_MMover_MInertie.pl index fd1f4f1..569396b 100755 --- a/exemples/exemple_MMover_MInertie.pl +++ b/exemples/exemple_MMover_MInertie.pl @@ -28,10 +28,10 @@ use MTools::Comp::MInertie; new MTools (800, 600, 'Exemple MMover et MInertie'); # Creation des objets delimitant l'espace -new MTools::GUI::MRect (1, 0, 0, 650, 450, -fillcolor => "=axial 90 | #526266 | #667C80", -filled => 1); +new MTools::GUI::MRect (1, 0, 0, 650, 450, -fillcolor => "=axial 90 | #526266 | #A2C4CB", -filled => 1); new MTools::GUI::MRect (1, 250, 300, 400, 150, -linecolor => 'black'); -# Creation de l'objet deplace +# Creation de l'objet deplacable my $target = minstanciate ('Ampoule.svg#on', 1); # Ajout du comportement MMover à l'objet @@ -44,8 +44,8 @@ new MTools::Comp::MInertie ($mover); mrun; # La fonction permet de conserver l'objet dans un espace controle -# Elle recoit en parametre l'ancienne position de l'objet ainsi que le deplacement suggerer -# Elle retourne un vecteur correspondant a la correction effectuee sur le deplacement +# Elle recoit en parametre l'ancienne position de l'objet ainsi que le deplacement suggeré +# Elle retourne un vecteur correspondant à la correction à effectuer sur le deplacement sub allowmove { my ($x, $y, $dx, $dy) = @_; if ($x > 200) |