($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 | / | |
| 2023-03-07 | |||||