[Night_flight] SAMPLE
10 '' NIGHT FLIGHT
20 ''(X,Y)=CENTER L=SIZE C=COLOR
25 CLS 3
30 X=640*RND:Y=480*RND:L=100*RND:C=INT(RND*100) MOD 8:IF C=0 THEN C=1
35 THETA=RND * 3.14:IF THETA >3.14159 THEN CLS 3
40 GOSUB 300
50 GOTO 30:END
300 ''STAR
310 LL=L*.382
320 A=2*3.14159/5
330 A2=A/2
340 FOR K=0 TO 4
350 XP=X+L*COS(A*K+THETA)
360 YP=Y-L*SIN(A*K+THETA)
370 XQ1=X+LL*COS(A*K-A2+THETA)
380 YQ1=Y-LL*SIN(A*K-A2+THETA)
390 LINE (XP,YP)-(XQ1,YQ1),C
400 XQ2=X+LL*COS(A*K+A2+THETA)
410 YQ2=Y-LL*SIN(A*K+A2+THETA)
420 LINE (XP,YP)-(XQ2,YQ2),C
430 NEXT K
440 RETURN
RNDを使って位置(X、Y)、サイズL、色C、回転角THETA
を設定し、星形をプロットしています。