先日作った「エモディスク」がウケが良かったので、「ディスクの次は3次元だ！」と「エモタワー」を作ってみました。
回路としてはエモディスクとほぼ同じで、LEDテープを8個の円×3段＝24個の円筒形に変えただけです。
当初はLEDキューブを考えたのですが、LEDテープをキューブにするのが難しかったので、円筒形のタワーにしました。
とりあえずエモディスクとほぼ同じプログラムで、ランダムに光らせました。
（光らせるLEDを24個に増やしただけ）
もう少し立体的に光らせる工夫をしてみたいと思います。
10 '*WS2812B SOUND 20 VIDEO 0 30 POKE #700,102,32,240,181,114,182,8,36,36,2,9,25,11,76,128,37,11,120,255,34,34,96,3,39,10,38,43,66,1,208,10,39,3,38,1,63,253,209,0,34 40 POKE #728,34,96,1,62,253,209,109,8,239,209,2,49,1,56,234,209,98,182,240,189,16,0,0,80 50 POKE #740,2,73,8,104,4,34,16,67,8,96,112,71,0,128,0,80:U=USR(#740,0) 60 @LOOP 70 FOR I=0 TO 23 80 LET [I*3],RND(100),RND(100),RND(100) 90 NEXT 100 U=USR(#700,0) 110 WAIT 10 120 GOTO @LOOP
12/21追記
動作テストした所、CR2032ではあまり電池が保たないことがわかったので、基板の裏に単4×2の電池ボックスを付けました。
これで少なくとも8時間以上は動作するようです。
プログラムも変更して、立体的に光らせてみました。
動画はこちら。
プログラムは以下のとおりです。
1 '*EMO TOWER 2 VIDEO0 3 POKE#700,102,32,240,181,114,182,8,36,36,2,9,25,11,76,128,37,11,120,255,34,34,96,3,39,10,38,43,66,1,208,10,39,3,38,1,63,253,209,0,34 4 POKE#728,34,96,1,62,253,209,109,8,239,209,2,49,1,56,234,209,98,182,240,189,16,0,0,80 5 POKE#740,2,73,8,104,4,34,16,67,8,96,112,71,0,128,0,80:U=USR(#740,0) 6 '@LOOP 7 R=100:G=0:B=0 8 FORL=0TO7:GSB26:NEXT 9 R=0:G=100:B=0 10 FORL=8TO15:GSB26:NEXT 11 R=0:G=0:B=100 12 FORL=16TO23:GSB26:NEXT 13 R=100:G=0:B=0 14 FORL=0TO7:GSB30:NEXT 15 R=0:G=100:B=0 16 FORL=0TO7:GSB30:NEXT 17 R=0:G=0:B=100 18 FORL=0TO7:GSB30:NEXT 19 FORY=0TO7 20 FORX=0TO2:L=X*8+Y:GSB24:NEXT 21 FORX=2TO0STEP-1:L=X*8+(Y+4)&7:GSB24:NEXT 22 NEXT 23 GOTO6 24 '@LRND 25 R=RND(100):G=RND(100):B=RND(100) 26 '@L1 27 FORI=0TO23 28 LET[I*3],G*(I=L),R*(I=L),B*(I=L) 29 NEXT:U=USR(#700,0):RTN 30 '@L3 31 FORI=0TO7:FORJ=0TO2 32 LET[J*24+I*3],G*(I=L),R*(I=L),B*(I=L) 33 NEXT:U=USR(#700,0):NEXT:RTN
