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

$z = q{

$ah = 23 - 2 * ($a = sin(($t = (time() % 100) / 50) * atan2(0, -1)));
$av1 = 10.5 + $a;
$av2 = 5.5 - $a;

if( $t < 1 )
{
   $ax = 56 - 33 * $t;
   $d = 2 * $t - 1;
   $ay = 11 + $d * $d * 7;
}
else
{
   $ax = 23 + 33 * ($t - 1);
   $ay = 18;
}

for($sy = $i = 0; $sy < 24; $sy++)
{
   $dya = ($sy - $ay) / ($sy < $ay ? $av1 : $av2);
   for($sx = 0; $sx < 79; $sx++)
   {
      $dxa = ($sx - $ax) / $ah;

      $template .=
      chr
      (
         $sy == int($ay + $av2) && abs($sx - $ax) < 10
         ?  33
         :  (
               $dxa * $dxa + $dya * $dya <= 1 &&
               !($sy > $ay - 5 - 2 * $a && $sy <= $ay - 2 - 2 * $a &&
                ($sx == int($ax - 6) || $sx == int($ax)))
               ? 33 : 32
            )
      );
   }
   $template .= "\n";
}

$count = ($template =~ y/!/x/);
$z = $z . '#'x($count - length($z)) . '$z=~s/\s//g;eval$z;';

print $template;
};

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