[SAMPLE14] SAMPLE
10 REM SAMPLE14
100 SCREEN 0,0:CLS 3
110 FOR R=1 TO 100 STEP 5
120 CIRCLE (150,100),R, (R MOD 7)+1,,, R/100
130 NEXT R
140 ST=.00001
150 DATA 25, 5, 40, 13, 17
160 FOR I=1 TO 5
170 READ DAT: EN=ST + DAT/100 *3.14* 2
180 CIRCLE (450,100), 100,I, -ST, -EN
190 ST= EN
200 NEXT I
120 半径,パレット番号,比率を変え
ながら楕円を描く。
170 DATA行(150行)の百分率データを円の角度に変換。
180 パレット番号,開始角度,終了角度を変えながら
扇形を描き,円グラフを作る。