--- recepies/netpipe-tcp/np2graphviz.pl	2009/05/25 22:11:20	100
+++ recepies/netpipe-tcp/np2graphviz.pl	2010/02/20 16:32:01	165
@@ -45,7 +45,7 @@
 	my $node = $_;
 	my $speed = $graph->{$_}->{speed};
 	my $c = 'ff0000';
-	$c = '00ff00' if ( $speed /  100 ) > 1;
+	$c = '00ff00' if ( $speed /  100 ) > 1.5;
 	$c = '0000ff' if ( $speed / 1000 ) > 1;
 	$c = '8888ff' if ( $speed / 1000 ) > 2;
 	my $label = $speed;