Ehm, some 'thingie' for perl-owners...

Yeah, well...ehm...
This is best viewed on a terminal with VT100 settings (Archaic, no?)

It oesn't really do anything but draw circles, enfin...
judge for yourself...

perl can be found (for most platforms) @ http://www.perl.com

-- 
  .        .       *    . Ojosh!ro '98|                         
     +  /   .'`-.  .         .        |                         
       /| .'`-.  `-.    .-""""-.   +  |                        
.  *  / !'     `-. /   /   0  . \     |                        
   . /`/`-.     / /   |     ( )  |    |                        
     `/  _ `-.-` /   . \   . o  /     |                        
  ___Z__//   -  /\_____/`-.__.-'  . * |                        
 /     //   -  /      /            .  |                        
 ~-._ //   -.-`-./`-,/  .  +          |                        
+  / ~ `-.-'/    `-./         *       |                        
  '   '/   /   .      *   .         * |                         
--------------------------------------+-------------------------
                                      | The universe is just big
                                      | enough to contain all we
                                      | can imagine to be in it.
                                      | mailto:ojoshiro


#!/usr/bin/perl
require "AText.pm";
my @golden = ( 1,2,3,5,8,13,21,34,55,89,144,233 );
my ( $y , $x ) = ( 23 , 78 );
$x /= 2;
sub circle
{	my $straal = shift;
	my $t;
	for ( $t = 0.0 ; $t <= 2*3.1415 ; $t += .0333 )
	{	$field[ int( sin($t)*$straal+$y ) ][ int( cos($t)*(1.4*$straal)+$x )] = 1;
	}
	return;

}	

sub horline
{	my $height = shift;
	for ( 0..$x*2 )
	{	$field[ int($height) ][ int($_)] = 1;
	}
	return;
}

	my $field = [[]];
my $dir = -1;
my $k =  8;
while ( $k != -1 )
{	print Key( 'home');
	$k += $dir;
	for ( $t = 0.0 ; $t <= 3.1415*.5 ; $t += 3.1415/$golden[$k] )
	{	circle( cos( $t )*$y );
	}
	my $line = "";
	for ( $t = 0 ; $t <= $y*2 ; $t += 2 )
	{	for ( $u = 0 ; $u <= $x*2 ; $u++ )
		{	if ( !$field[$t][$u] && !$field[$t+1][$u] )
			{	$line .= " ";
			} elsif ( !$field[$t][$u] && $field[$t+1][$u] )
			{	$line .= "o";
			} elsif ( $field[$t][$u] && !$field[$t+1][$u] )
			{	$line .= "\"";
			} elsif ( $field[$t][$u] && $field[$t+1][$u] )
			{	$line .= "8";
			}
			$field[$t][$u] = 0;
			$field[$t+1][$u] = 0;
		}	
		$line .= "\n";
	}
	print $line."";	
	if ($k<1||$k>9)
	{ $dir = -$dir;
	}

}