Landon Curt Noll
d2a42f42e8
We we move 1988-2004 entries from all of a year's winning entries in a single directory to each winner being in their own sub-directory under the given year directory.
57 lines
2.9 KiB
C
57 lines
2.9 KiB
C
# include <X11/Xlib.h>
|
|
# include <math.h>
|
|
# include <time.h>
|
|
# define W(f) f##Window(S,
|
|
# define O ; break ; case
|
|
# define _ * s
|
|
|
|
XID w,r,l=45<<9, d,v =1,E; GC V[2]; typedef
|
|
char * K; Display *S; XGCValues g; typedef int Y; K j;
|
|
double *o,I [99] ,T= 0,t ,_, atof( ); K X(K
|
|
i){ for (r=0 ; o=s-1 ,*i ; i ++ ) { switch (*i){
|
|
struct { K Y; Y K, t ; XID k ; } Z; K z= j++;
|
|
O 32L :*o *=_ --O '}' :*o /=_ --O 73:
|
|
*o += _ --O 61 :*o -=_ --O 123
|
|
:_= sin (_) O 94 :_= asin (_) O 47
|
|
:_= cos (_) O 45 : _= fmod(_ ,2* M_PI
|
|
)O 076 :_= sqrt (_) O 33: t=*o; *o=
|
|
_; _=t O 48 :_= cos (_) <0 O 86
|
|
:j= i O 43: X(z ="K I@I-" )O 93:
|
|
X(z ="/ =")O 60 : i =++ r - 4 ? j-1 :i O 79
|
|
:XDrawArc(S, d,V [(Y )_] ,(Y ) ( 399 +14 _ [
|
|
-2] ),( Y)( *"' "+14 _ [ -1]) ,2,2 ,0,l
|
|
) ; { Z. Y = i - 127 +r/ 3*2 ; Z.K= r%3+
|
|
r/3 +1; Z.t =0; Z.k=E ; XDrawText (S,d,*V,(Y
|
|
) ( 399 +14 *1[s-= strlen(z) ]),20,
|
|
|
|
&Z,1); } O 1:default:*i>90?I[*i-32]=_--:(*++s
|
|
=I[*i+(*i<73)*r]); } } } Y main
|
|
(Y G,K*A){ *A=
|
|
|
|
" 8<$ $li >d# -d8Z'Et#)wWP]WM C\\TI)#%!DcUAvz% H2&08M\\%YaHAW}4+%g ;|XN%W|l!_Kz+$UgBix41r=H7b@_:X 4zS EFo1i}= _D.%biA xF>)k*T(7&m \"G~ )TY *.^@$0.#yl< 66,/dI ;\\[![:- $u6 VnD X+ )TY-L38 :%\" )TY%8Z$ \"G|BfCb <Il8EC} \"b \037ST I{kT I-lT I!K ImT I!K =-`LQ { !L{ I[MQ { !M{ Ip@;P=I`L]!LQ ][M]!MQ ]lLL ;; IL;Q @]>m@{;M} ^`K !T PIIIV[;I{ k;I/@{ K!=k;!={LM=M} K!=jM!}T!=k@P=`+e+f+g+hK I-[K I-pEF=Q `FG=Q k@]aK]b;]cP]d@{ EIeK{ FIf;{ GIgP{ HIhVAE{ J{AE/ E0\117<";
|
|
|
|
w = DefaultScreen ( S =
|
|
XOpenDisplay(0)); W( XMap
|
|
)d =W(XCreateSimple ) W(
|
|
Root )w),0,0,800,80 ,0,0
|
|
,BlackPixel(S,w ))) ; g.
|
|
foreground=WhitePixel (S,w
|
|
); *(Y *) &g=6; for (; v
|
|
[V ]=XCreateGC( S,d ,4 +
|
|
v, &g),!--v; ); for ( E=
|
|
XLoadFont(S,"10x20" ),81
|
|
[I]=2; I[84]=( G>2?
|
|
atof(2[A]) -2451545
|
|
:time (0 )/ 3.75
|
|
/l - 10957.5)+ (T+=G
|
|
> 1? atof(A[1]):0); ){ t
|
|
=5e4 *6013; s=I; for(j=*A
|
|
;_++ =pow (t,(j[ 2]*'_'-
|
|
3028 +3[j])/t)*pow(6e-4+
|
|
1,j[ sizeof* X(++j) ]+95
|
|
**j- 3072.)-1; )j+=4; s-=
|
|
2; W (XClear)d); XFillArc
|
|
(S,d ,*V,385,25,0x1c,28,
|
|
0,l) ; X( j+4); XSync(S,
|
|
0) ; usleep(10000); } }
|