Landon Curt Noll
2ba12ecc3c
Under each yyyy/dir there is a file of the form '*.orig.c' containing the original source code, or as close as we can get to the original source code.
61 lines
2.2 KiB
C
61 lines
2.2 KiB
C
#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,*g
|
|
; Display*e; char f[
|
|
52]; GC k; main( ){ Window
|
|
z=RootWindow(e=XOpenDisplay( 0),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/(9+K) *4E2+2e2; C= 2E2+4e2/( K
|
|
+9)*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,
|
|
"%5.0f %4"
|
|
"d %6.0f",
|
|
l /1.7,( C =
|
|
9E3+O*57.3)% 0550,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,g,g,g,&G); v-=(
|
|
W*F-T*(.63*m-I*.086+m*E*19-D*25-.11*u
|
|
)/107e2)*_; D=cos(o); E=sin(o); } }
|
|
|
|
|