From: Tomas Mudrunka <tomas@mudrunka.cz>
Date: Thu, 2 Aug 2012 15:52:47 +0000 (+0200)
Subject: Histogram improvements
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=0661907083b523ecf0bc9986cba4a39b46015afc;hp=b16207097440cb1b73dc230cdd8e7d1739805c49;p=mirrors%2FPrograms.git

Histogram improvements
---

diff --git a/c/goertzel/histogram.pl b/c/goertzel/histogram.pl
index c27f28c..0a8ccb3 100755
--- a/c/goertzel/histogram.pl
+++ b/c/goertzel/histogram.pl
@@ -29,7 +29,7 @@ while(<STDIN>) {
 	my $i=0;
 	print "\033[H";
 	foreach my $i (1..$#values) {
-		print bar($values[$i],10,sprintf("%8s ",trim($header[$i])))."\n";
+		print bar($values[$i],50,sprintf("%8s ",trim($header[$i])))."\n";
 	}
 	print "Time: ".$values[0]."                   \n";
 	print "                           \n";
diff --git a/c/goertzel/histogram.sh b/c/goertzel/histogram.sh
index ac26b7e..e8576af 100755
--- a/c/goertzel/histogram.sh
+++ b/c/goertzel/histogram.sh
@@ -1,2 +1,2 @@
 #!/bin/sh
-./goertzel -f 10 -f 20 -f 40 -f 60 -f 100 -f 200 -f 300 -f 400 -f 500 -f 1000 -f 2000 -f 4000 -f 6100 -f 10000 -f 20000 2>/dev/null | ./histogram.pl
+./goertzel -f 10 -f 20 -f 40 -f 60 -f 100 -f 200 -f 300 -f 400 -f 500 -f 1000 -f 2000 -f 4000 -f 6100 -f 10000 -f 20000 $@ 2>/dev/null | ./histogram.pl