#!/usr/bin/perl
# kiku2.pl - Don Yang (uguu.org)
#
# 07/09/03


($q = q!
($K,$i,$k,$u,$c,$h,$a,$n) = gmtime;

$h -= 100;
$d = $n + $h * 365
   + int(($h + 3) / 4)
   - int(($h - 1) / 100)
   + int(($h - 1) / 400)
   + ($k + ($i + $K / 60) / 60) / 24
   + 23.686;

$n = 29.530588853;
$p = ($d - $n * int($d / $n)) / $n;


$c = atan2(0, -1);
$w = 48;
$h = 32;

for($y = -$h; $y <= $h; $y++)
{
   $l = -($r = $x = $w * sqrt(1 - ($y * $y) / ($h * $h)));
   (($i = 4 * $p) < 2)
      ?  ($l = $x * (1 - $i))
      :  ($r = $x * (3 - $i));
   for($x = -$w; $x <= $w; $x++)
   {
      $z{$x}{$y} = ($x >= $l && $x <= $r) ? '1' : '0';
   }
}

for($a = 0; $a < 256; $a++)
{
   $z{int($w * cos($a * $c / 128))}
     {int($h * sin($a * $c / 128))} ||= '2';
}

@m = unpack 'a' xj64,
   q/j`'"j`'"j`'"+++"/ .
   q/,;:X,(|7+XXX+<89/ .
   q/.::X+|XX.X)P+8>P/ .
   q/.XXX,dX).Xb(odb8/;
@n = unpack 'a' xj64,
   q/j`'"-`'"j''"-'`"/ .
   q/,::X,:::.:::.:::/ .
   q/.:::,:::.:::,:::/ .
   q/.:::,:::.:::.:::/;
for($y = -$h; $y < $h; $y += 3)
{
   for($x = -$w; $x < $w; $x += 2)
   {
      @i =
      (
         $z{$x + 1}{$y    }, $z{$x}{$y    },
         $z{$x + 1}{$y + 1}, $z{$x}{$y + 1},
         $z{$x + 1}{$y + 2}, $z{$x}{$y + 2}
      );
      for($d = $a = $b = 0; $d < 6; $d++)
      {
         ($i[$d] == 1) && ($a += (1 << $d));
         ($i[$d] == 2) && ($b += (1 << $d));
      }
      (($o = $m[$a]) eq 'j') && ($o = $n[$b]);
      print $o;
   }
   print "\n";
}
!) =~ s/\s//g;
$q =~ s/j/ /g;
eval $q;