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

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

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

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

      print
      (
         ( $dxa * $dxa + $dya * $dya <= 1 &&
           !($sy > $ay - 5 - 2 * $a && $sy <= $ay - 2 - 2 * $a &&
             ($sx == int($ax - 6) || $sx == int($ax))) )
         ? 'X' : ' '
      );
   }
   print "\n";
}