[BNE-PM] Meeting Today

[Tony Irvine]

Brad Marshall wrote:
> Is there likely to be another one anytime soon? 

Well I hope so!

I had a good time, it is always nice to meet people with similar
obsessions^H^H^H^H^H^H^H^H^H^Hinterests. :)

BTW attached is the 'rotating perl' script I was talking about on
friday, it is my favorite obfuscated Perl entry. I am pretty sure it
will only work as intended on *nix.

Tony
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Tony Irvine
Acting Principal Project Officer
Environmental Protection Agency
Tel:(07)3227-7991  Fax:(07)3227-6534
E-Mail: Tony.Irvine at env.qld.gov.au
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-------------- next part --------------
#!/usr/bin/perl
for(;print"\e[2J";$d--){for$i(0..31){for(0..7){$|=1;$c=cos$d/($P=4*atan2(1,1));
$s=sin$d/$P;(1,2,4,8,16,32,64,128)[$_]&(63,127,63,1,65,1,65,1,65,1,65,1,65,1,65
,1,63,31,63,1,1,1,65,1,1,1,65,1,1,127,65,127)[$i]&&print"\e[",25+int$c*($Y=-4+
int$i/4)-$s*($X=($i%4-2)*9+$_),";",40+int$s*$Y+$c*$X,"H*"}}select('','','',.1)}