[GRAPH03] SAMPLE

100 CLS 3
110 X0=320:Y0=200
120 FOR I=0 TO 9.5 STEP 0.02
130 X1=INT(COS(I*3.14)*I*16)+X0:Y1=INT(SIN(I*3.14)*I*10)+Y0
140 X2=INT(SIN(I*3.14)*I*10)+X0:Y2=INT(COS(I*3.14)*I*16)+Y0
150 R=INT(I*5)+1
160 CIRCLE (X1,Y1),R,5
170 CIRCLE (X2,Y2),R,7
180 NEXT I
190 END

CIRCLEコマンドを使って円群を描いています。