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):

Augmented reality
20. January 2010 
#!/usr/bin/perl
$reality = "real text\n";
$augmented_reality = "\e[31;40m augmented ".$reality."\e[0m";
print $reality;
print $augmented_reality;
Eric Dymond
TK window opens
#!/usr/bin/perl -w

use Tk;
require Tk;
use English;
use LWP::Simple;
my $Version="1.0";
my $main=MainWindow->new();
$main->minsize(qw(550 450));
$main->maxsize(qw(525 450));
$main->title("Art can go here");
$main->configure(-background=>'lemonchiffon');
$main->geometry('+10+140');
my $body =$main->Frame(-background=>'red',)->pack(-side=>'top',-fill=>'y');
my $inFrm =$body->Frame(-background=>'orange',)->pack(-side=>'top',-fill=>'x');
my $message = $inFrm->Label(-background=>'red')->pack(-side=>'top');
$code  = get('http://pallit.lhi.is/microcodes/contr.php?code_id=12');
$message->configure(-text=>$code);
MainLoop();

back to Microcodes