From 2f279dbca6f54856ed9569573f325acb309130b8 Mon Sep 17 00:00:00 2001
From: ribet
Date: Mon, 17 Mar 2008 13:53:08 +0000
Subject: Modification du seuil pour un effet plus naturel lors de l'arret de
 l'inertie, les seuils sont abaissés

---
 src/MTools/Comp/MInertie.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/MTools/Comp/MInertie.pm b/src/MTools/Comp/MInertie.pm
index 2faa1b9..c9cbbdd 100644
--- a/src/MTools/Comp/MInertie.pm
+++ b/src/MTools/Comp/MInertie.pm
@@ -138,7 +138,7 @@ sub inertie {
 	my $rate = $self -> mget ('rate');
 	$self -> {__vx} *= $rate;
  	$self -> {__vy} *= $rate;
-	if ((abs $self -> {__vx} <= 2) and (abs $self -> {__vy} <= 2)) {
+	if ((abs $self -> {__vx} <= 1) and (abs $self -> {__vy} <= 1)) {
 		$self -> interrupt ();
 		return;
   	}
-- 
cgit v1.1