From 27ae23343fa7487a0b366297a50187987c6250da Mon Sep 17 00:00:00 2001 From: ribet Date: Tue, 17 Apr 2007 13:49:18 +0000 Subject: Typo fix and more obvious gradient --- exemples/exemple_MMover_MInertie.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'exemples') 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) -- cgit v1.1