diff options
| author | ribet | 2007-04-17 13:49:18 +0000 |
|---|---|---|
| committer | ribet | 2007-04-17 13:49:18 +0000 |
| commit | 27ae23343fa7487a0b366297a50187987c6250da (patch) | |
| tree | 3c33d4c93844f7c17cd672c199835dac3f72dee6 /exemples | |
| parent | a13b26ac132f1d34588053735ee3a2e387288d8e (diff) | |
| download | mtc-27ae23343fa7487a0b366297a50187987c6250da.zip mtc-27ae23343fa7487a0b366297a50187987c6250da.tar.gz mtc-27ae23343fa7487a0b366297a50187987c6250da.tar.bz2 mtc-27ae23343fa7487a0b366297a50187987c6250da.tar.xz | |
Typo fix and more obvious gradient
Diffstat (limited to 'exemples')
| -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) |