Party time! be able to set foreground color

Reset is not yet implemented for that…

Idea is from http://www.reddit.com/r/linux/comments/2ds0he/xterm_party/

1 files changed, 11 insertions, 0 deletions

diff --git a/tools/party.pl b/tools/party.pl
new file mode 100755
index 0000000..905fdcb
--- /dev/null
+++ b/tools/party.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use Time::HiRes qw(sleep);
+$|++;
+$A=0;
+$F=0.1;
+while (1) {
+    $A == 628318 ? $A=0 : ++$A;
+    ($R, $B, $G) = map { sin($F*$A + $_) * 127 + 128 } qw(0 2 4);
+    printf "\033]10;#%02x%02x%02x\007", $R, $B, $G;
+    sleep 0.01;
+}