Best X11 Program

最高のX11プログラム

Line wrap

Highlight

#include <X11/Xlib.h>
#define M     typedef
#define N(	 a)=r=(a)+j
#define S f(; G; )D[B[R=i[--G]]=F+=F<p]++
#define	f for
#define g [H]









  M short a;					       M int b; M
  unsigned  c ;					       M unsigned
  char*d; M XPoint				       *e; M void
  _; b*h,*i,j,k,l,m,n,o,p			       ; b O; d A
  ,B,C; _*q,*r,*calloc(); e s			       ,t; Window
  u,v; GC x[256]; b D[256]; b w,y,		       z;_ Q(b E)
  { XMapWindow(q,v=XCreateSimpleWindow(q,	      XRootWindow
  (q,z=XDefaultScreen(q)),!v*n,0,n,n,0,0,0));	      XSelectInput
  ( q,v,E); }	_ P(){ C N(h N(i N(s N(t N(A N(B=calloc(C-B+256,1)
  ) )) ))); }	      _ J(){ b F,G,H; c R =w %4; F=G=m; f(H=0; H<j
  ; H++){ h g		     =l+(R-2?R?R-1?(G-F*F/n)+F*n:(G*G-F*F)
  /m*n+2*F*G/			    m: 2*(F*F- G*G)/m+4*F*G/m*n:G+
  F*n);( s g.				 x= m-F--,s +H) ->y=m-G;F=
  F+m?F:(G--,				       m);}} _ K(){ b H,R;
  f(H=0;H<j;H					   ++)D[ B g=(c)(R
  =h g+k)< j?					       (A[ R]<p)+A


				 [R
				 ]:
				 1]
				 ++
			    ; } _ I ( d F)
			     { F?(_)0:(_
			       ) (F=B,
				gets(
				 B))
				  ;

  y=atoi(F);}					       _ Y(){ b F,
  G; c R ; F = G					= 0; K( );
  f( R = k + l ; R <					j && ( F =
  B[ R ] ) < p; R = h [R				] + k) { D
  [ F ] -- ; B [ i [ G ++ ] =R				] =p; } if
  ( R >= j) F = 1; S; } _ L() { b H,			F,G; c R ;
  f( H =0; H < j; H ++) B g =0; O =-1; f(		G = R = 0;
  R < j; R++	 ){ f(; R < j && !( F = B[ R ]);	R = h[ R ]
  + k) B [i[	       G ++] = R ] = p; S; } } _ U() { e X [ 256 ]
  ,W; b H; W		     = t; f ( H = 0; H < o; H ++ ) { X g =
  W; W +=D g			      ;} f( H =0; H < j; H ++) if(
  A g - B g)				    * X[ B g ] ++ = s g; {
 XMotionEvent					   * V = r = t ; W
  = t; f ( H						= 0; H < o
  ; H ++ ) {						XDrawPoints


									 (q ,
							      v		  ,x g,
							      W,X	g -W,
							      CoordModeOrigin
							      ) ;    W +=  D
							      g ;      D g

				= 0 ;
				} f(;
			    XPending(q)+!
			    ++O; V->type-
			    ButtonPress?(
				k =V
				->x+


			   V -> y * n - l) : (
		    O = - 42 ) )  XNextEvent ( q , r
	      = V ) ; } } _ main ( b X , d * W ) { b H, F
	,G; c R; if ( X < 3 ) { puts( "tvr: mode size < cmap"
    ); exit(0);} P(); I(*++ W); w = y %12; I(*++ W); n = y *2; j
   = n * n ; P ( ) ; m =			 y ; l = j / 2 + m
  ; q=XOpenDisplay				     ( 0 ) ; Q ( 0 )
  ; u = v ; Q (					     PointerMotionMask
  |ButtonPressMask				      ) ; I ( 0 ) ; o
   =y ; p = o -1				     ; { XColor F ;
    Colormap G; f				   ( H = 0 ; H < o
      ; H++){ I(0);				  XParseColor(q,G
       =XDefaultColormap		       ( q , z ) , r =
	    B ,	 & F ) ;		       XAllocColor
		(q , G ,		       & F ) ;










				      XSetForeground
				      (q,x g = XCreateGC
				      ( q, u ,0 , 0 ) , F
      .pixel	 ) ; } }		     P ( ); J (); f
      ( F =R	 = G =H = 0;			   H < j; )
      if(++F	 >= p || ( R =			     h [ R ]
      +G)>=j	 ) { D [ B g = F		     ] ++; R
			 = l + k; G=		     ++H -R;
			    F =0; } H=j;	    U(); v=
			      u; f(F=w/4; ; A+=H-=H+H,B-=H
				)(O<0?L:*("tvr@cs.hut.fi."
				    +7*F)?F^1?Y:K:L)()
				       ,(U)(); }

引用元：https://www.ioccc.org/1994/tvr.c

審査員・作者による説明：https://github.com/ioccc-src/winner/blob/main/1994/tvr.hint

動作

インタラクティブにフラクタルを見えるXアプリ。次のようにコンパイル・実行する。

$ gcc -o tvr tvr.c -lX11

$ ./tvr 0 256 < tvr.color

すると窓が2つ開く。1つめはマンデルブロ集合。

2つめはジュリア集合。

1つめの窓（マンデルブロ集合）の上でカーソルを動かすと、それに基づいて2つめの窓（ジュリア集合）のパラメータが変わり、リアルタイムで絵が変わる。

第1引数は0～3で描画するフラクタルを変える。第2引数は描画サイズ。標準入力には色の指定をする（tvr.bwだと白黒）。

解説

描画モードが3種類あるらしい（non-stable、non-stableの亜種、stable）けれど、違いがわからなかった（処理速度が速すぎるせい？）。

コード形状は”Z=Z^2+C?”。これは、マンデルブロ集合やジュリア集合の定義の式。