LEDでナナイロづくり 2


ナイト

青い光が、軌跡を残しながらサークルを回転します。
このプログラムは、JAMCARに載せた8連LEDバーを改良したものですが、サークルLEDで実行すると、また違った感じになります。

10 @ARUN KNIGHT
20 CLV:Q=-1
30 FOR M=0 TO 35:[M]=[M]/3:NEXT
40 Q=Q+1:IF Q>11 Q=-10
50 I=ABS(Q):C=4:L=99
60 GSB @SET_WS.LED(I,C,L)
70 WS.LED 12
80 WAIT 1
90 GOTO 30


※以下のサブルーチンも入力が必要です。
@@SET_WS.LED(I,C,L)サブルーチンを1000行目から