Move 1988-2004 entries into subdirs

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.
2022-09-18 23:37:49 -07:00
1 parent 1e82e8aa3e
commit d2a42f42e8
@@ -0,0 +1,56 @@
+#		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); } }