KIKU.PL   

<

^

>



                        ($q=                                  q!($K,$i
                      ,$k ,                           $u,$c,$h    ,$a
                      ,$  n                       )=gmtime;$h-=100;
                      $d  =                     $n+$h*36
                       5  +                   int(($
                       h+ 3)                /4 )-
                       in t(               ($ h-
                        1) /1             00 )+
                         in t(           ($ h-
                          1) /4          0 0)
                           +($k+         ( $
                             i+$K/6     0)/6
                             0)/24+23.686;$w=48;$h=32;$n
                       =29.53                     0588853;$p=
                   ($d-$                  n            *in   t($d
               /$n)         )            /$               n;@   n=u
            npac           k          '  a                  'xj    64,
          q/j             `          '   "                    -`     '"j
        ''"       -'     `           "  ,:      ::              ,:     ::
       .:        :      :.          :   ::      .                ::     :,:
      ::        .      ::           :   ,:      :     :.          ::      :,
     ::        :      .:: :         .  ::: /;   @     m=           un      pa
    ck   '     a      'xj64        ,q  /j`'"j`'"j`    '"            ++     +"
   ,;   :     8,    (|7 +88        8+  < 89.::  8+|88 .8            )P      +8
  >P   .      88   8,d8).8b (o     db 8/  ;for  (  $ y=-$h           ;$     y<
  =$ h;       $y  ++){   $l=-(     $r=$x  =$w*s qrt(   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($  c=a tan    2  ($ a=   0,
   -1);  $      a<2 56;$a++)    {$z       {int($w*co   s ($a*   $c /12 8)  )}{
    int( $h     *si n($a*$c/              128))}||=2   ;  }f    or($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});       f                         or(   $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]);                  prin     t$o
                  ;  } pri nt"\n";}!      )=~s/\s       //gx
                                    ;;$q=~    s/j/ /g;eval
                                                $q;;

  NFO RAR ZIP DETAILS /
2016-11-24