[STAR-ROT] SAMPLE
100 CLS 3
110 R=150:G1=320:G2=200:N=5:C=5
120 GOSUB 9000
130 END
9000 S=3.14/180:R1=R:Q=360/(N*2)
9010 IF N=5 THEN K=(SQR(5)-1)/(SQR(5)+1):GOTO 9040
9020 IF N=8 THEN K=SQR(2-SQR(2)):GOTO 9040
9030 IF N=6 THEN K=1/SQR(3) ELSE K=1/2
9040 R2=R*K:FOR C=1 TO 6:CLS 3:S = -S
9042 FOR A=0 TO 100
9050 X1=G1+R1*COS(A*S):Y1=G2+R1*SIN(A*S)
9060 X2=G1+R2*COS((Q+A)*S):Y2=G2+R2*SIN((Q+A)*S)
9070 LINE (X1,Y1)-(X2,Y2),C
9080 FOR I=2 TO (N-1)*2 STEP 2
9090 J=I+1
9100 X1=G1+R1*COS((Q*I+A)*S):Y1=G2+R1*SIN((Q*I+A)*S)
9110 LINE -(X1,Y1),C
9120 X1=G1+R2*COS((Q*J+A)*S):Y1=G2+R2*SIN((Q*J+A)*S)
9130 LINE -(X1,Y1),C
9140 NEXT I
9150 X1=G1+R1*COS(A*S):Y1=G2+R1*SIN(A*S)
9160 LINE -(X1,Y1),C
9170 PAINT (G1,G2),C
9180 NEXT A:NEXT C
9190 RETURN
星形を回転しています。
Sで1度ずつ左回転します。-Sで右回転します。
9170 PAINTで塗りつぶしをしています。