[Polygon_regular20] SAMPLE
10 CLS 3
20 N=20:PI=3.14159:R=180:THETA=0:ROT=17*PI/180
30 XC=640/2:YC=400/2-10
40 FOR C=1 TO 7
50 IF C=2 THEN C=4
60 IF C=6 THEN C=7
70 FOR A1=0 TO 2*PI STEP 2*PI/N
80 X1=R*COS(A1+THETA):Y1=R*SIN(A1+THETA)
90 DX1=XC+X1:DY1=YC-Y1:IF C=1 AND A1=0 THEN CIRCLE (DX1,DY1),5,2
100 FOR A2= A1 TO 2*PI STEP 2*PI/N
110 X2=R*COS(A2+THETA):Y2=R*SIN(A2+THETA)
120 DX2=XC+X2:DY2=YC-Y2
130 LINE (DX1,DY1)-(DX2,DY2),C
140 NEXT A2
150 NEXT A1
160 NEXT C
170 THETA=THETA+ROT:IF THETA>360 THEN THETA=THETA-PI*2
180 CLS 3:GOTO 40
190 END
LINEを使って正20角形を描いています。
Cでカラーを設定し、ROTで17度ずつ回転しています。