Microcodes
by Pall Thayer
Microcodes are very small code-based artworks. Each one is a fully contained work of art. On this page you can see contributed modifications of the original Microcodes that can be seen here.

Original code:

Enter your name (will be displayed):

Here you can enter extra info, such as warnings if the code can cause damage:

Enter code (must be complete and runnable):

CNN dada
04. March 2009 
#!/usr/bin/perl
use LWP::Simple;
system 'clear';
$width = `tput cols`;
$height = `tput lines`;
$text = get('http://rss.cnn.com/rss/edition.rss');
$text =~ s/<[^>]*?>//g;
@words = split(' ', $text);
while(1){
	($horiz, $vert) = (int(rand($width)), int(rand($height)));
	system 'tput', 'cup', ($vert, $horiz);
	print $words[int(rand(scalar @words))];
}
Gudmundur Hreidarsson
#!/usr/bin/perl
use LWP::Simple;
`clear`;
$width  = `tput cols`;
$height = `tput lines`;
$text   = get 'http://rss.cnn.com/rss/edition.rss';
$text   =~ s/<[^>]+>//g;
@words  = split ' ', $text;
 
sub color { "\e[", 31+int(rand(7)), ";40m", @_, "\e[0m" }
 
while(1){
  system 'tput', 'cup', int(rand $height), int(rand $width);
  print color $words[int(rand @words)];
}

back to Microcodes