2014年4月1日にIchigoJamが発表されてから、今年で６周年です。
お祝いの動画を作ってみました。
【IchigoJam】祝！IchigoJam６周年
6周年にちなんで、BGMは「ロック・マイ・ソウル」です(^_^)
最新機種のIchigoDyhookと、最新機能（ファームウェア1.4）のLEDテープ制御を使ってみました。
プログラム
BGM「ロック・マイ・ソウル」
10 PLAY "EECR E8.E16E8.GF16E FFDR F8.F16F8.AG16F EECR E8.E16E8.GF16E RGG8.F16DC2.R"
IchigoCakeでプレイした音を録音して、ビデオ編集でかぶせました。
ファイル0：６周年メッセージ表示
メッセージ表示後にスペースキーを押すと、ファイル1のプログラムへジャンプします。
10 @ARUN:'*6 Years 20 CLV:VIDEO 1:CLS 30 LET [0],#8440,#0800,#8400,#0800,#B75D,#CBBF,#A555,#4A95 40 LET [8],#B55D,#DBD5,4,0,#FFDD,#FFFF 50 LET [18],3,#8000,4,0,7,#8000,4,#4000 60 LET [26],4,#4000,4,#4000,3,#8000 70 LET [32],#4400,0,#4400,0,#28E3,#8B1E,#1110,#4CA0 80 LET [40],#11F3,#C81C,#1104,#4802,#10E3,#A83C 90 FOR Z=0 TO 45 100 M=#8000 110 FOR B=0 TO 15 120 ?CHR$([Z]&M!=0); 130 M=M>>1 140 NEXT 150 NEXT 160 IF !BTN(32) CONT 170 LRUN 1
ファイル1：LEDテープでバーサライタ「ピンクのハート」
8LEDスティック（秋月電子）を、WS.LEDコマンドで制御しています。
100 '*POV Heart 110 CLV:VIDEO 0:CLS:P=#900 120 [80]=`00001110 130 [81]=`00011111 140 [82]=`00111111 150 [83]=`01111110 160 [84]=`11111100 170 [85]=`01111110 180 [86]=`00111111 190 [87]=`00011111 200 [88]=`00001110 210 L=9 220 FOR C=0 TO L 230 FOR B=0 TO 7 240 M=128>>B 250 D=[80+C]&M 260 A=P+C*48+B*6 270 POKE A,5*(D>0) 271 POKE A+2,100*(D>0) 272 POKE A+4,10*(D>0) 280 NEXT 290 NEXT 300 FOR C=0 TO L 310 COPY #800,P+C*48,48 320 WS.LED 8 330 NEXT 340 GOTO 300
参考記事はこちら。
www.ichigojaman.jp
