find_key, find_tuning: add -q (quiet); ztunekey: added (GUI wrapper for find_key and find_tuning).

2 files changed, 65 insertions, 16 deletions

diff --git a/find_key b/find_key
index 5e5e035..c391e65 100755
--- a/find_key
+++ b/find_key
@@ -55,8 +55,9 @@ $0: Find key of music in audio (or maybe video) files.
 
 Usage: $0 [-m|-M] file.wav [file.wav ...]
 
--m: Force major keys to relative minor
--M: Force minor keys to relative major
+-q: Quiet, only output the most likely key.
+-m: Force major keys to relative minor.
+-M: Force minor keys to relative major.
 EOF
 	exit 0;
 }
@@ -70,6 +71,9 @@ for(@ARGV) {
 		$fold_major = 0;
 		$fold_minor = 1;
 		next;
+	} elsif(/^-q/) {
+		$quiet++;
+		next;
 	}
 
 	my $sec;
@@ -79,22 +83,23 @@ for(@ARGV) {
 			$sf = Audio::SndFile->open("<", $_);
 		};
 		if($@) {
-			warn "Extracting to tmp.wav\n";
-			system("mplayer -vo null -ao pcm:fast:file=tmp.wav \"$_\"");
+			my $rq = $quiet ? "-really-quiet" : "";
+			warn "Extracting to tmp.wav\n" unless $quiet;
+			system("mplayer $rq -vo null -ao pcm:fast:file=tmp.wav \"$_\"");
 			$sf = Audio::SndFile->open("<", "tmp.wav");
 			$_ = "tmp.wav";
 		}
 		$sec = ($sf->frames) * (1 / $sf->samplerate);
 	}
-	printf "file is %03.2f sec\n", $sec;
+	printf "file is %03.2f sec\n", $sec unless $quiet;
 
 	my $oldstamp = -1;
 	my $oldkey = -1;
 
-	my $got = `vamp-simple-host qm-vamp-plugins:qm-keydetector "$_" 2`;
+	my $got = `vamp-simple-host qm-vamp-plugins:qm-keydetector "$_" 2 2>/dev/null`;
 	die "Analysis failed\n" unless defined $got;
 
-	print "\n";
+	print "\n" unless $quiet;
 
 	my @got = split "\n", $got;
 ## 	for my $line (@got) {
@@ -122,24 +127,25 @@ for(@ARGV) {
 		} elsif($fold_minor) {
 			$key = get_relative_minor($key);
 		}
-		if($key =~ /m$/) {
-			$relkey = get_relative_major($key);
-		} else {
-			$relkey = get_relative_minor($key);
-		}
+		$relkey = get_relative_key($key);
 		if($oldstamp != -1) {
 			$times{$oldkey} += ($stamp - $oldstamp);
 		}
 		$oldstamp = $stamp;
 		$oldkey = $key;
-		print "$stamp: $key ($relkey)\n";
+		print "$stamp: $key ($relkey)\n" unless $quiet;
 	}
 
 	$times{$oldkey} += ($sec - $oldstamp);
 
-	print "\n";
-	for(sort { $times{$b} <=> $times{$a} } keys %times) {
-		printf "%3s: %4.2f sec, %4.2f%%\n", $_, $times{$_}, $times{$_} / $sec * 100;
+	print "\n" unless $quiet;
+	my @sorted = sort { $times{$b} <=> $times{$a} } keys %times;
+	if($quiet) {
+		print $sorted[0] . " (" . get_relative_key($sorted[0]) . ")\n";
+	} else {
+		for(@sorted) {
+			printf "%3s: %4.2f sec, %4.2f%%\n", $_, $times{$_}, $times{$_} / $sec * 100;
+		}
 	}
 }
 
@@ -153,6 +159,16 @@ sub get_relative_minor {
 	return $relative_minors{$key} || $key;
 }
 
+sub get_relative_key {
+	my $key = shift || die "missing key";
+	if($key =~ /m$/) {
+		$relkey = get_relative_major($key);
+	} else {
+		$relkey = get_relative_minor($key);
+	}
+	return $relkey;
+}
+
 __END__
 Output of plugin:
 - Estimated key (from C major = 1 to B major = 12 and C minor = 13 to B minor = 24)
diff --git a/ztunekey b/ztunekey
new file mode 100755
index 0000000..da69d56
--- /dev/null
+++ b/ztunekey
@@ -0,0 +1,33 @@
+#!/bin/sh
+
+# icon from:
+# https://vectorified.com/images/guitar-tuner-icon-28.jpg
+# ...installed via:
+# convert guitar-tuner-icon-28.jpg .local/share/icons/hicolor/256x256/apps/ztunekey.png
+
+ICON=ztunekey
+ZOPT='--width 300 --height 100 --title Tuning/Key'
+file="$1"
+
+if [ "$file" = "" ]; then
+  file="$( audtool --current-song-filename )"
+  if [ "$file" = "" ]; then
+    zenity --error $ZOPT --text="No song is playing!"
+    exit 1
+  fi
+fi
+
+if [ ! -e "$file" ]; then
+  zenity --error $ZOPT --text="No such file:
$file"
+  exit 1
+fi
+
+bn="$( basename "$file" )"
+
+( find_tuning -q "$file" > /tmp/tuning.$$ &
+  find_key    -q "$file" > /tmp/key.$$    &
+  wait ) | zenity --progress $ZOPT --icon-name=ztunekey --text="$bn" --pulsate --auto-close
+
+zenity --info $ZOPT --icon-name=ztunekey --text="$bn
Tuning: $( cat /tmp/tuning.$$ ) cents
Key: $( cat /tmp/key.$$ )"
+
+rm -f /tmp/tuning.$$ /tmp/key.$$