10 S%=12:N%=8:W%=SCREENWIDTH(0):H%=SCREENHEIGHT(0)
20 DIM A(N%+1)
30 IF W%>H% THEN LEN%=H%/2/N%
40 IF W%<H% THEN LEN%=W%/2/N%
50 K=(178+MOD(RND(0),178))*3.141592/180:D=3.141592*2/S%
60 IF 25+MOD(RND(0),25)>48 THEN K=(178+MOD(RND(0),178))*3.141592/180
70 A(1)=A(1)+SIN(K)/10
80 FOR I%=2 TO N%
90 A(I%)=A(I%)+(A(I%-1)-A(I%))*0.1
95 NEXT I%
100 SETCOLOR 0,0,0:FILLRECT 0,0,W%,H%
110 FOR J%=0 TO S%-1
120 X=0.5*W%
130 Y=0.5*H%
140 FOR I%=2 TO N%
150 SETCOLOR 255,255-255*I%/N%,255
160 TX=X+SIN(J%*D+A(I%))*LEN%
170 TY=Y+COS(J%*D+A(I%))*LEN%
180 DRAWLINE X,Y,TX,TY
190 X=TX:Y=TY
200 NEXT I%
210 NEXT J%
220 GOTO 60
