Best of Show

最優秀賞

Line wrap

Highlight

#include				     <math.h>
#include				   <sys/time.h>
#include				   <X11/Xlib.h>
#include				  <X11/keysym.h>
					  double L ,o ,P
					 ,_=dt,T,Z,D=1,d,
					 s[999],E,h= 8,I,
					 J,K,w[999],M,m,O
					,n[999],j=33e-3,i=
					1E3,r,t, u,v ,W,S=
					74.5,l=221,X=7.26,
					a,B,A=32.2,c, F,H;
					int N,q, C, y,p,U;
				       Window z; char f[52]
				    ; GC k; main(){ Display*e=
 XOpenDisplay( 0); z=RootWindow(e,0); for (XSetForeground(e,k=XCreateGC (e,z,0,0),BlackPixel(e,0))
; scanf("%lf%lf%lf",y +n,w+y, y+s)+1; y ++); XSelectInput(e,z= XCreateSimpleWindow(e,z,0,0,400,400,
0,0,WhitePixel(e,0) ),KeyPressMask); for(XMapWindow(e,z); ; T=sin(O)){ struct timeval G={ 0,dt*1e6}
; K= cos(j); N=1e4; M+= H*_; Z=D*K; F+=_*P; r=E*K; W=cos( O); m=K*W; H=K*T; O+=D*_*F/ K+d/K*E*_; B=
sin(j); a=B*T*D-E*W; XClearWindow(e,z); t=T*E+ D*B*W; j+=d*_*D-_*F*E; P=W*E*B-T*D; for (o+=(I=D*W+E
*T*B,E*d/K *B+v+B/K*F*D)*_; p<y; ){ T=p[s]+i; E=c-p[w]; D=n[p]-L; K=D*m-B*T-H*E; if(p [n]+w[ p]+p[s
]== 0|K <fabs(W=T*r-I*E +D*P) |fabs(D=t *D+Z *T-a *E)> K)N=1e4; else{ q=W/K *4E2+2e2; C= 2E2+4e2/ K
 *D; N-1E4&& XDrawLine(e ,z,k,N ,U,q,C); N=q; U=C; } ++p; } L+=_* (X*t +P*M+m*l); T=X*X+ l*l+M *M;
  XDrawString(e,z,k ,20,380,f,17); D=v/l*15; i+=(B *l-M*r -X*Z)*_; for(; XPending(e); u *=CS!=N){
				   XEvent z; XNextEvent(e ,&z);
                                       ++*((N=XLookupKeysym
					 (&z.xkey,0))-IT?
					 N-LT? UP-N?& E:&
					 J:& u: &h); --*(
					 DN -N? N-DT ?N==
					 RT?&u: & W:&h:&J
					  ); } m=15*F/l;
					  c+=(I=M/ l,l*H
					  +I*M+a*X)*_; H
					  =A*r+v*X-F*l+(
					  E=.1+X*4.9/l,t
					  =T*m/32-I*T/24
					   )/S; K=F*M+(
					   h* 1e4/l-(T+
					   E*5*T*E)/3e2
					   )/S-X*d-B*A;
					   a=2.63 /l*d;
					   X+=( d*l-T/S
					    *(.19*E +a
					    *.64+J/1e3
					    )-M* v +A*
					    Z)*_; l +=
                                            K *_; W=d;
					    sprintf(f,
					    "%5d  %3d"
					    "%7d",p =l
					   /1.7,(C=9E3+
			      O*57.3)%0550,(int)i); d+=T*(.45-14/l*
			     X-a*130-J* .14)*_/125e2+F*_*v; P=(T*(47
			     *I-m* 52+E*94 *D-t*.38+u*.21*E) /1e2+W*
			     179*v)/2312; select(p=0,0,0,0,&G); v-=(
			      W*F-T*(.63*m-I*.086+m*E*19-D*25-.11*u
			       )/107e2)*_; D=cos(o); E=sin(o); } }

引用元：https://www.ioccc.org/1998/banks.c

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

動作

フライトシミュレータ。次のように動かすとXの窓が開く。

$ gcc -DIT=XK_Page_Up -DDT=XK_Page_Down -DUP=XK_Up -DDN=XK_Down -DLT=XK_Left -DRT=XK_Right -DCS=XK_Return -Ddt=0.02 -o banks banks.c -lm -lX11

$ cat horizon.sc pittsburgh.sc | ./banks

シーンは標準入力から設定ができる。

$ cat mountains.sc river.sc pyramids.sc | ./banks

操作方法は、矢印の上下左右で操縦桿を動かし、エンターで操縦桿を元の位置に戻す。 Page Upでスロットルを上げ、Page Downで下げる。左下の数字は、左から対気速度、方角（0が北、90が東）、高度とのこと。

なお、あくまでシミュレータであって、ゲームではない。墜落や着陸という概念はなく、自由に飛び回るだけ。ビルや地面に当たっても突き抜ける。

解説

IOCCCのもっとも有名な作品のひとつ。久々に純粋な作り込み系作品の優勝。

X11プログラムは関数名や初期化プロセスが冗長なので長くなりがちなので、1536バイトで実現されているのは意外とすごいと思う。

コンパイルオプションでキー設定やシミュレーションのタイムステップを調整できる。

シーンデータは3Dの点を並べてあるだけで、それを線でつないで描画するとのこと（0 0 0は線分の区切りとみなされる）。

作者は航空学科の学生とのこと。