Perl code by Pall Thyer. Command line formulated by James W. Morris.
$ diff --ignore-all-space --unchanged-line-format="%L" jasperjohns flag
#!/usr/bin/perl
binmode STDOUT, ':utf8';
@colors = ("\e[0;31m", "\e[0;34m");
@symbols = (chr(0x268c), chr(0x272a));
while(1){
($x, $y) = (int(rand(`tput cols`)), int(rand(`tput lines`)));
system 'tput', 'cup', $y, $x;
$select = int(rand(2));
print $colors[$select].$symbols[$select];
}
_______________________________________________
NetBehaviour mailing list
[email protected]
http://www.netbehaviour.org/mailman/listinfo/netbehaviour
