2011年12月21日投稿 / 投稿者 : shiro / タグ : 投稿プログラム 音楽 電子楽器 QRコード
YAMAHAの電子楽器「TENORI-ON」の雰囲気をプチコンで再現してみました。
だいたい1画面(24行)に収まる短いプログラムです。
プログラムを実行すると、下画面に「○」のマトリックスが表示され、水色のカーソルが左から右にスキャン移動します。
マトリックスは縦軸が音階、横軸が時間軸です。音階は半音刻みで、一番下が下の「ラ」、下から4番目が通常の「ド」、一番上が1オクターブ上の「ソ#」です。
ペンでタッチした場所の「○」が「●」に変わり、カーソルが来ると音が出ます。もう一度タッチすると「○」に戻ります。
Aボタンを押すと、リセットされて最初に戻ります。
10行目の「20」の値を小さくすると全体の音程が低く、大きくすると高くなります。
DSiLLで開発しています。3DSでは動作が速すぎると思いますので、13行目のウェイトのくり返し回数やVSYNCの値を変えて、速度を調節してください。
プチコンmkII 向けの QR コードです。
- ’*** TENORI−COM ***
- @ST
- VISIBLE 1,1,0,0,0,1:PNLTYPE ”OFF”:COLOR 0:CLS:GPAGE 1:GCLS 0
- CLEAR:DIM L(32,24),C$(2)
- C$(0)=”○”:C$(1)=”●”:GOSUB @SC
- @LP
- FOR X=0 TO 31
- GFILL X*8,0,X*8+7,191,6
- FOR Y=0 TO 23
- IF L(X,Y) THEN BEEP 0,(20−Y)*4096/12
- IF BUTTON() AND 16 THEN Y=23:NEXT Y:X=31:NEXT X:GOTO @ST
- GOSUB @TI:NEXT Y
- FOR W=0 TO 10:GOSUB @TI:VSYNC 1:NEXT
- GFILL X*8,0,X*8+7,191,0
- NEXT X:GOTO @LP
- @TI
- IF TCHST==FALSE THEN T0=FALSE:RETURN
- IF T0 THEN RETURN
- TX=FLOOR(TCHX/8):TY=FLOOR(TCHY/8)
- L(TX,TY)=1−L(TX,TY):PNLSTR TX,TY,C$(L(TX,TY)):T0=TRUE:RETURN
- @SC
- FOR J=0 TO 23:FOR I=0 TO 31
- PNLSTR I,J,C$(L(I,J))
- NEXT I:NEXT J:RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.133 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:00 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30