Another 'prettyfu' for your amusment, ladeez an' gennlemen - a mere bagatelle, but fun to write.
Cheers, Ben.@s=map{[ (' ')x 60]}(0..40); ($m,$h )=(localtime) [1,2];t( 20,$_/5,$_%5 ?".":$_/5) for(1..60);t( $_*1.5,$m/5 ,p($_))for(1.. 12);t($_*1.5, $h%12+($m/60) ,p($_+14))for( 0..10);print join("\n", map{ join('',@$_) }@s);sub t{ $s[ 20-$_[0]*cos (.52*$_[1])][30 +$_[0]*1.50 *sin(0.52*$_[1 ])]=$_[2]} sub p{substr( " Just Another Perl ". "Clock",$_[0],1)}
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Clock
by rob_au (Abbot) on Sep 24, 2003 at 14:19 UTC | |
by benn (Vicar) on Sep 24, 2003 at 14:47 UTC |
Back to
Obfuscated Code