Best X11 Graphics

最高のX11グラフィックス

Line wrap

Highlight

#define u unsigned
#define w char*
#define j(x)(*(*(x*)&T)++)
#define H j(short*)
#define K j(w)
#define e j(u*)
#define r register u
#define R(b)write(A,T=h,4*b);
#define S (u*)sbrk(Q*4+U*8)+U
#define E(a,b,c)a=c&1<<31|b/2;c=c*2|b&1;
#define V q=h^*L;L+=F;E(d,q,x)E(f,d,s)g=f&q;f^=q
#define W while(
#define Z q=I&f;M|=q&c;c^=q;I^=f;M|=g&c;c^=g
#define Y W(F= *s++-'0')<=9)*T=10**T+F;K
#define D(q,s)c);W q>s)G= *--q,*q= *s,*s++=G;
#define P if(i^z){x=Q+(n=D(x,n)
#define C if(i){q=Q*4+(s=(w)D(q,s)
u A,U,Q,J,X[9999],B;main(a,b)w*b;{r*c,*d,y=0,f,g,F,I,M,N,z,*x,*n,i,G;w q,*h=(w
)X,*T,*s=".slo.-W00,tmhw.W/";T=h;if(a>1){e;s=b[1];Y;Y;Y;Y;T=h;H;K=23;Y+=112;T=
h;Y;y= *--T;H=2;}else{H=1;W*s)K=1+*s++;}connect(A=socket(a,1,0),T=h,24-a*4);H=
17004;H=11;e=0;e=0;i=66==*h;R(3)read(A,h,8);e;H;read(A,h,4*H);T=h;e;F=e;e;e;I=
11+H;f=H-6;K;U=K;i^=K;z=!K;T+=I/4*4+8*U;W y--){T+=39;I=K;W I--)H,T+=4+24*H;}I=
e;e;B=(!e^**b&1)-1;e;e;U=H/32;J=H/30*30;T+=14;M=K;f/=U;T=h;K=55;K;H=4;e=F;e=I;
e=0;R(4)N=F+8192;K=53;K=M;H=4;e=N;e=I;H=U*32;H=J;R(4)K=2;K;H=4;e=I;e=1;e=N;R(4
)Q=J*U;c=S;d=S;L(c);W 1){P}C}y=0;W y<J){K=72;K=0;g=J-y;H=6+U*(g>f?g=f:g);e=N;e
=F;H=U*32;H=g;H=0;H=y;K=0;K=1;R(6)write(A,c+y*U,g*U*4);y+=g;}K=61;K=0;H=4;e=I;
e=0;e=0;R(4)C}P}v(c,d);}}L(A)r*A;{r*T=A+Q,X=getpid();W A<T)*A++=X=3*X^X/2;}v(n
,O)u*n,*O;{r*A,F=U,*L=n-F,*G=L+Q,I,c,d,M,f,g,N,q,i=0,X,T,v,s,x,*y,*z,h=B;W L<n
){*L= *G;G++[F]=L++[F];}W i<J){z=O+i*F;y=n+i*F-F;i+=30;L=y-1;A=L+U*32;W L<A){L
+=F;E(X,(*L^h),x)E(q,X,s)}X=0;W X++<F){L=y++;G=z++;V;c=g|f&d;I=f^d;V;W L<=A){M
=0;Z;N=d;T=f;v=g;V;Z;c^=I&d;*G=h^c&~M&(I^d|N);G+=F;c=v|T&N;I=T^N;}}}z=O;y=n;I=
J;W--I!=-1){f= *z>>31;G=z+F;L=y+F;W G>z){M= *--G;*--L=(M*2)+f;f=M>>31;}z+=F;y+
=F;}}

引用元：https://www.ioccc.org/1991/davidguy.c

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

動作

X Window Systemでライフゲームを描画する。

動かすにはまず、Xサーバを準備する必要がある。そして、そのアドレスを引数として次のようにプログラム起動する。

$ gcc -o davidguy davidguy.c

$ ./davidguy x-server-address:0.0

ランダムマップを初期配置としてライフゲームの世代が進んでいく。

argv[0]の最初の文字の偶奇を変えると色が反転する。

$ ruby -e 'exec(["./davidguy", "1"], "x-server-address:0.0")'

解説

Xlibなどを使わず、自力でX11プロトコルを叩いてroot windowにライフゲームを描画する。ライフゲームという定番ハッカーネタがここまで出ていなかったのはちょっと意外（ライフゲームの提案は1970年）。

X Window Systemを使う初のエントリでもある。 IOCCCが始まった1984年ごろはポータブルにGUIを扱うことはできなかったが、X11が1987年にリリースされ、事実上の標準になったので、今後のコンテストではX11を使うプログラムを受け付けるという審査員コメントがdavidguy.hintに書かれている。

幸いX11は現在でも健在だが、それでもこのプログラムを動かすのは非常に大変だった。 VcXsrvを使ったが、foreground colorとbackground colorのデフォルトがともに黒のようで、そのままでは真っ黒な画面にしかならなかった（現代ではXサーバの背景に直接描画をすることはほとんどないのでしょうがない）。 X11プロトコルを真面目に調べ、CreateGCでforeground colorとbackground colorを指定するようにしたら無事に描画されることが確認できた。他に、sbrkが動かないことがあるのでmallocに置き換え、また、+=が改行で区切られている箇所を修正した。

パッチ

--- davidguy.c
+++ davidguy.c
@@ -6,7 +6,7 @@
 #define e j(u*)
 #define r register u
 #define R(b)write(A,T=h,4*b);
-#define S (u*)sbrk(Q*4+U*8)+U
+#define S (u*)malloc(Q*4+U*8)+U
 #define E(a,b,c)a=c&1<<31|b/2;c=c*2|b&1;
 #define V q=h^*L;L+=F;E(d,q,x)E(f,d,s)g=f&q;f^=q
 #define W while(
@@ -20,8 +20,8 @@
 h;Y;y= *--T;H=2;}else{H=1;W*s)K=1+*s++;}connect(A=socket(a,1,0),T=h,24-a*4);H=
 17004;H=11;e=0;e=0;i=66==*h;R(3)read(A,h,8);e;H;read(A,h,4*H);T=h;e;F=e;e;e;I=
 11+H;f=H-6;K;U=K;i^=K;z=!K;T+=I/4*4+8*U;W y--){T+=39;I=K;W I--)H,T+=4+24*H;}I=
-e;e;B=(!e^**b&1)-1;e;e;U=H/32;J=H/30*30;T+=14;M=K;f/=U;T=h;K=55;K;H=4;e=F;e=I;
-e=0;R(4)N=F+8192;K=53;K=M;H=4;e=N;e=I;H=U*32;H=J;R(4)K=2;K;H=4;e=I;e=1;e=N;R(4
+e;e;B=(!e^**b&1)-1;e;e;U=H/32;J=H/30*30;T+=14;M=K;f/=U;T=h;K=55;K;H=6;e=F;e=I;
+e=12;e=-1;e=0;R(6)N=F+8192;K=53;K=M;H=4;e=N;e=I;H=U*32;H=J;R(4)K=2;K;H=4;e=I;e=1;e=N;R(4
 )Q=J*U;c=S;d=S;L(c);W 1){P}C}y=0;W y<J){K=72;K=0;g=J-y;H=6+U*(g>f?g=f:g);e=N;e
 =F;H=U*32;H=g;H=0;H=y;K=0;K=1;R(6)write(A,c+y*U,g*U*4);y+=g;}K=61;K=0;H=4;e=I;
 e=0;e=0;R(4)C}P}v(c,d);}}L(A)r*A;{r*T=A+Q,X=getpid();W A<T)*A++=X=3*X^X/2;}v(n
@@ -29,5 +29,5 @@
 ){*L= *G;G++[F]=L++[F];}W i<J){z=O+i*F;y=n+i*F-F;i+=30;L=y-1;A=L+U*32;W L<A){L
 +=F;E(X,(*L^h),x)E(q,X,s)}X=0;W X++<F){L=y++;G=z++;V;c=g|f&d;I=f^d;V;W L<=A){M
 =0;Z;N=d;T=f;v=g;V;Z;c^=I&d;*G=h^c&~M&(I^d|N);G+=F;c=v|T&N;I=T^N;}}}z=O;y=n;I=
-J;W--I!=-1){f= *z>>31;G=z+F;L=y+F;W G>z){M= *--G;*--L=(M*2)+f;f=M>>31;}z+=F;y+
-=F;}}
+J;W--I!=-1){f= *z>>31;G=z+F;L=y+F;W G>z){M= *--G;*--L=(M*2)+f;f=M>>31;}z+=F;y+=
+F;}}

パッチをダウンロード