|
|
> No.1830[元記事へ]
ＧＡＩさんへのお返事です。
SET WINDOW -2,2,-2,2
SET AREA COLOR "MAGENTA"
FOR k=0 TO 12
CALL moji(k)
NEXT k
PLOT LINES: -0.2,0; 0.2,0 !十字線
PLOT LINES: 0,-0.2; 0,0.2
LET k=3 !「中断」ボタンで停止する
DO
SET DRAW mode hidden !ちらつき防止開始
SET AREA COLOR "WHITE" !該当する位置
CALL moji(k)
SET AREA COLOR "MAGENTA" !1つ前
CALL moji(k+1)
SET DRAW mode explicit !ちらつき防止終了
WAIT DELAY 0.1 !0.1秒待ち
LET k=MOD(k-1,12)
LOOP
SUB moji(k)
LET x=1.5*COS(2*PI*k/12)
LET y=1.5*SIN(2*PI*k/12)
DRAW disk WITH SCALE(0.2)*SHIFT(x,y)
END SUB
END
|
|