#!/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)='#'}