#!/usr/bin/perl
# dango3.pl - Don Yang (uguu.org)
#
# 12/08/07

$c = q{

$l = 23 - 2 * ($a = sin(($n = (time() % 100) / 50) * atan2(0, -1)));
$p = 10.5 + $a;
$q = 6.5 - $a;

if( $n < 1 )
{
   $s = 56 - 33 * $n;
   $x = 2 * $n - 1;
   $t = 11 + $x * $x * 7;
}
else
{
   $s = 23 + 33 * ($n - 1);
   $t = 18;
}

for($y = 0; $y < 24; $y++)
{
   $v = ($y - $t) / ($y < $t ? $p : $q);
   for($x = 0; $x < 79; $x++)
   {
      $u = ($x - $s) / $l;

      $z .=
         chr
         (
            $y == int($t + $q) && abs($x - $s) < 10
            ?  33
            :  (
                  $u * $u + $v * $v <= 1 &&
                  !($y > $t - 5 - 2 * $a && $y <= $t - 2 - 2 * $a &&
                    ($x == int($s - 6) || $x == int($s) ||
                     $x == int($s - 5) || $x == int($s + 1)))
                  ? 33 : 32
               )
         );
   }
   $z .= "\n";
}

$n = ($z =~ y/!/x/);
$c = '$c=q{' . $c . '#'x($n - length($c) - 26) . '};$c=~s/\s//g;eval$c;';
$y = 0;
foreach $x ($z =~ /./gs)
{
   print 'x' eq $x ? substr($c, $y++, 1) : $x;
}

};

$c=~s/\s//g;eval$c;