|
|
> No.1826[元記事へ]
ＧＡＩさんへのお返事です。
> 同一画面の同じ場所に、緑色の円の次に黄色の円、その次に赤色の円を１秒間隔位で見せていくことを繰り返す。
> ただし黄色の円の時は横に２つ並べて（２個とも黄色の円）見せる。
> 緑と赤の円は一個しか表示しない。
> 黄色の一方の色が橙色に、未来を予想して見えてくるという現象が起こるらしい。
SET WINDOW -2,2,-2,2
LET i=0 !カウンタ
DO
SELECT CASE i
CASE 0
SET AREA COLOR "GREEN"
CASE 1
SET AREA COLOR "YELLOW"
CASE 2
SET AREA COLOR "RED"
END SELECT
SET DRAW mode hidden !ちらつき防止開始
CLEAR
DRAW disk WITH SCALE(0.8)*SHIFT(-1,0)
IF i=1 THEN DRAW disk WITH SCALE(0.8)*SHIFT(1,0)
SET DRAW mode explicit !ちらつき防止終了
WAIT DELAY 1 !1秒待ち
LET i=MOD(i+1,3)
LOOP
END
|
|