SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

エモタワー

先日作った「エモディスク」がウケが良かったので、「ディスクの次は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