Animated Fractal Tree

This isn't really an obfu, but it seemed more appropriate to put it here than anywhere else. It's my first attempt at anything like this.

It requires an 80 character width screen, and because of the 'cls' needs windows. Should work on *nix with a 'clear' though.

It prints an animated fractal ascii-art tree blowing in the wind.

Any comments welcome.

#!/usr/bin/perl -w
use strict;
while(1){$:=' 'x2E3;$a+=.01;$b+=.03;$~=(sin$a+sin$b)/10+.2;system(
"cls");t(40.5,0,-11/7);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)*80+int(pop),1)='#'}
[download]

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

Comment on Animated Fractal Tree Download Code

Replies are listed 'Best First'.
Re: Animated Fractal Tree by ktross (Deacon) on May 26, 2005 at 15:43 UTC
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*	[reply] [d/l]
Re^2: Animated Fractal Tree by reasonablekeith (Deacon) on May 26, 2005 at 16:28 UTC
Thanks ktross. The comments are appreciated. Glad you liked it. Ok comments onboard, I've changed it print okay at screen widths at or above 80, but still running at the original speed. The new complete code is `#!/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] The sum of the changes being... `< 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]