Re: Animated Fractal Tree

I think that this is an excellent obfu, but I find the requirement to reset my terminal size to exactly 80 annoying. Here is a reworked version that handles the carrige return and clear screen better IMO. Good Work!

For them that like large terminals:

#!/usr/bin/perl -w
use strict;
while(1){$:=' 'x2E3;$a+=.01;$b+=.03;$~=(sin$a+sin$b)/10+.2;system(
($^O eq 'MSWin32')?'cls':'clear');t(40.5,0,-11/7);my @rows=split(
//,$:);my $i=0;for(@rows){print $_;if($i eq 80){print "\n";$i=0;}$
i++;}}sub t{my($x,$y,$d,$D)=@_;($x,$y)=l($x,$y,$d,11/++$D);$D<4||
return;t($x,$y,$d-.6-$~*$d,$D);t($x,$y,$d+.6-$~*$d,$D--)}sub l{my(
$x,$y)=@_;for(0..pop) {p($x+=cos$_[2],$y+=sin$_[2])}($x,$y)}sub p{
substr($:,int(pop)*80+int(pop),1)='#'}
[download]

Runs much slower though... a steadier wind perhaps? :)

Spem Successus Alit

Comment on Re: Animated Fractal Tree Download Code

Replies are listed 'Best First'.

Re^2: Animated Fractal Tree
by reasonablekeith (Deacon) on May 26, 2005 at 16:28 UTC

ktross

#!/usr/bin/perl -w
use strict;
while(1){$:=' 'x2E3;$a+=.01;$b+=.03;$~=(sin$a+sin$b)/10+.2;system(
$^Oeq'MSWin32'?'cls':'clear');t(10.5,1,-11/7);$:=~s/(.{79})/$1\n/g
;print $:}sub t{my($x,$y,$d,$D)=@_;($x,$y)=l($x,$y,$d,11/++$D);$D<
4||return;t($x,$y,$d-.6-$~*$d,$D);t($x,$y,$d+.6-$~*$d,$D--)}sub l{
my($x,$y)=@_;for(0..pop) {p($x+=cos$_[2],$y+=sin$_[2])}($x,$y)}sub
p{substr($:,int(pop)*79+int(pop),1)='#'}
[download]

<    my @rows=split(//,$:);
<    my $i=0;
<    for(@rows){print $_;
<        if($i eq 80){
<            print "\n";
<            $i=0;
<        }
<        $i++;
<    }

>    $:=~s/(.{80})/$1\n/g;
>    print $:
[download]

Update:

For anyone who can't be bothered to run it, it should look something like this. (it looks better animated, honest)

     #
     #  #
      ##   ##
      #    #    #
      #   ###   #
       # #   #  #
       ##      ####
       #       #
       #      #
       #     ##     #
        #  ## ######
        # ##      #
        ##         #
        #
        #
        #
        #
        #
        #
        #
        #

---
my name's not Keith, and I'm not reasonable.

[reply]
[d/l]
[select]


go ahead... be a heretic
	PerlMonks