#! /usr/bin/perl
          ($.,$;)=@ENV{LINES,COLUMNS};$_='
          .2:2/5.=:2.69A..6:9D..6>.G;1.29J
         ..                              6;
         .M                              ;1
        .2                                9P
        ..                                6;
        .S                                6.
         .6                              9V
         ..                              0>
         .Z                              :2
          .6                            9a
          ..                            6>
          .d;1.29g..6;.j;1.29m..6;';for$w(
          0..29){$,="\e[H";for($i=$.*2;$i;
           --$i){$@=(B^b)x$;if--$|;$h=$.*
           2/($.*2-$i+1);s/\s//g;$v=($h-1
           )*$./2;while(/(.{6})/g){($t,$x
           ,$y,$r,$k,$l)=map-46+$_,unpack
            c6,$1;$p=$t?+$k:$y;$q=$t?$l:
            $y;$z=$r+.8;(next)if$v<$w+$p
            -$z||$v>$w+$q+$z;$y+=$w;for(
            0..$;*2-1){$u=($h*($_-$;)+$;
             )*32/$;;(next)if$u<$x-$z||
             $u>$x+$z;if(!$t){$d=sqrt((
             $v-$y)**2+($u-$x)**2);next
             if$d<$r-.8||$z<$d;$d=atan2
              ($y-$v,$x-$u)/atan2(0,-1
              )*4+4;(next)if$d<$k||$l<
              $d}substr$@,$_/2,1,'*'}}
	      $|||($,.=$@.$/)}print$,}