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

No modified codes have been submitted for this Microcode.

In praise of circular reasons
13. April 2009 
#!/usr/bin/perl
$pi = 3.14195;
while(1){
        system 'clear';
        ($offsetx, $offsety) = (int(rand(`tput cols`/2)), int(rand(`tput lines`/2)));
        ($radius, $angle) = (int(rand(`tput cols`/8)), 0);
        while($angle < 2 * $pi){
                $x = int($radius * cos($angle))+$offsetx;
                $y = int($radius * sin($angle))+$offsety;
                unless($x < 0 || $y < 0){
                        system 'tput', 'cup', $y, $x; print "O";
                }
                $angle += 0.1; select(undef, undef, undef, 0.05);
        }
}

back to Microcodes