[NetBehaviour] coding Jasper Johns

Pall Thayer pallthay at gmail.com
Sun Sep 20 23:32:54 CEST 2009


Flag
20. September 2009

#!/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];
}

http://pallit.lhi.is/microcodes/index.php?code_id=36



More information about the NetBehaviour mailing list