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.

Sonic Silence
May not work in all terminals. Works in OS X's Terminal and ETerm on Linux.
21. April 2009 
#!/usr/bin/perl
($x, $fw) = (0, 1);
while(1){
        foreach $x (0..300){
                $x = abs($x-300) unless $fw;
                print "\n";
                $y = int(sin($x/25)*25+200);
                print "\e[3;".$x.";"."$y"."t";
                select(undef, undef, undef, 0.05);
        }
        $fw ? ($fw = 0) : ($fw = 1);
}

back to Microcodes