Made mocks more believable. Fixes.

lib/ev3/body/mock/mock_color_sensor.ex

@@ -57,26 +57,23 @@ defmodule Ev3.Mock.ColorSensor do
 	end
 
   def nudge_color(value, previous_value) do
-    if previous_value == nil or :random.uniform(4) == 1 do
+    if previous_value == nil or :random.uniform(10) == 1 do
       value
     else
       previous_value
     end 
   end
 
-
 	def ambient_light(sensor) do
-		value = :random.uniform(5)
+		value = :random.uniform(10) - 5
 		{value, sensor}
 	end
 
-  def nudge_ambient_light(_value, nil) do
-    :random.uniform(101) - 1
-  end
-
   def nudge_ambient_light(value, previous_value) do
-    IO.puts("Value = #{value}, Previous = #{previous_value}")
-    (previous_value + value) |> max(0) |> min(100)
+    case previous_value do
+      nil -> 30 + :random.uniform(10)
+      _ -> (previous_value + value) |> max(0) |> min(100)
+    end
   end
 
 	def reflected_light(sensor) do

lib/ev3/body/mock/mock_infrared_sensor.ex

@@ -65,25 +65,21 @@ defmodule Ev3.Mock.InfraredSensor do
 	end
 
   defp nudge_heading(_channel, value, previous_value) do
-    case previous_value do
-      nil -> 25 - :random.uniform(50)
-      _ -> value + previous_value |> max(-25) |> min(25)
+    if previous_value == nil or :random.uniform(10) == 1 do
+      25 - :random.uniform(50)
+    else
+      value + previous_value |> max(-25) |> min(25)
     end
   end
 
 	defp seek_distance(sensor, _channel) do
-		value =
-			if :random.uniform(2) == 2 do
-				:random.uniform(101) - 1
-			else
-				-128
-			end
+		value = :random.uniform(10) - 7
     {value, sensor}
 	end
 
   defp nudge_distance(_channel, value, previous_value) do
     case previous_value do
-      nil -> :random.uniform(101) - 1
+      nil -> 50 + :random.uniform(50)
       _ -> value + previous_value |> max(0) |> min(100)
     end
   end

lib/ev3/body/mock/mock_touch_sensor.ex

@@ -24,7 +24,7 @@ defmodule Ev3.Mock.TouchSensor do
 		{value, sensor}
 	end
 
-	def nudge(_sensor, _sense, previous_value, value) do
+	def nudge(_sensor, _sense, value, previous_value) do
 		case previous_value do
       nil -> value
       _ ->