プチコンまとめWiki (初代/mkII)

投稿プログラム : TENORI-COM

パンくずリスト

2011年12月21日投稿 / 投稿者 : shiro / タグ : 投稿プログラム 音楽 電子楽器 QRコード

概要

YAMAHAの電子楽器「TENORI-ON」の雰囲気をプチコンで再現してみました。
だいたい1画面(24行)に収まる短いプログラムです。

使い方

プログラムを実行すると、下画面に「○」のマトリックスが表示され、水色のカーソルが左から右にスキャン移動します。
マトリックスは縦軸が音階、横軸が時間軸です。音階は半音刻みで、一番下が下の「ラ」、下から4番目が通常の「ド」、一番上が1オクターブ上の「ソ#」です。
ペンでタッチした場所の「○」が「●」に変わり、カーソルが来ると音が出ます。もう一度タッチすると「○」に戻ります。
Aボタンを押すと、リセットされて最初に戻ります。
10行目の「20」の値を小さくすると全体の音程が低く、大きくすると高くなります。
DSiLLで開発しています。3DSでは動作が速すぎると思いますので、13行目のウェイトのくり返し回数やVSYNCの値を変えて、速度を調節してください。

スクリーンショット・動画

tenori-com.jpg


QR コード

プチコンmkII 向けの QR コードです。

qr.png

プログラムリスト

  1. ’*** TENORI−COM ***
  2. @ST
  3. VISIBLE 1,1,0,0,0,1:PNLTYPE ”OFF”:COLOR 0:CLS:GPAGE 1:GCLS 0
  4. CLEAR:DIM L(32,24),C$(2)
  5. C$(0)=”○”:C$(1)=”●”:GOSUB @SC
  6. @LP
  7. FOR X=0 TO 31
  8. GFILL X*8,0,X*8+7,191,6
  9. FOR Y=0 TO 23
  10. IF L(X,Y) THEN BEEP 0,(20−Y)*4096/12
  11. IF BUTTON() AND 16 THEN Y=23:NEXT Y:X=31:NEXT X:GOTO @ST
  12. GOSUB @TI:NEXT Y
  13. FOR W=0 TO 10:GOSUB @TI:VSYNC 1:NEXT
  14. GFILL X*8,0,X*8+7,191,0
  15. NEXT X:GOTO @LP
  16. @TI
  17. IF TCHST==FALSE THEN T0=FALSE:RETURN
  18. IF T0 THEN RETURN
  19. TX=FLOOR(TCHX/8):TY=FLOOR(TCHY/8)
  20. L(TX,TY)=1−L(TX,TY):PNLSTR TX,TY,C$(L(TX,TY)):T0=TRUE:RETURN
  21. @SC
  22. FOR J=0 TO 23:FOR I=0 TO 31
  23. PNLSTR I,J,C$(L(I,J))
  24. NEXT I:NEXT J:RETURN

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • バイカウントメルビル : あれかwwなんかこの前シルシルミシルでやってたなー (2011/12/21 (水) 03:50:33)
  • shiro : あれです(^_^) 本物は高価なので、プチコンでやれないかと思って作ってみました。 (2011/12/21 (水) 09:45:21)
  • shiro : 速度調整のウェイト部分(13行目)をちょっと変更しました。 (2011/12/21 (水) 09:45:59)
  • shiro : 他も若干変更しました。 (2011/12/21 (水) 10:24:51)
  • shiro : YouTubeに動画を上げたので、こちらにも貼りました。 (2011/12/21 (水) 22:33:49)
  • バイカウントメルビル : これに保存機能を付けたのでニコ動に投稿したいのですがいいですか? (2011/12/29 (木) 19:16:09)
  • バイカウントメルビル : また、投稿プログラムに載せてもいいですか? (2011/12/29 (木) 19:17:18)
  • shiro : お返事遅れました。すみません。改造版はどうぞ掲載・公開してください(^_^) (2012/01/16 (月) 15:30:32)
  • バイカウントメルビル : ありがとうございます!TENORI-MVとして投稿しました (2012/01/16 (月) 23:40:33)
  • プチコンなし : 実際のテノリオンが手元にあるのですが、入力範囲を正方形にして、トラックを重ねられるようにすれば、もっとそれっぽくなりますよ。(ちなみに私はプチコンを所持していませんのであしからず。) (2012/02/06 (月) 10:45:37)
  • shiro : 情報ありがとうございます。「トラックを重ねる」とは、楽器の種類を予め設定して入力して、複数の楽器の演奏トラックを同時演奏できるようになっているのでしょうか? (2012/02/08 (水) 19:38:10)
  • プチコンなし : ↑そんなところです。あとは押したボタンを中心に波紋がひろがるようになっています。 (2012/02/10 (金) 11:23:42)
  • shiro : ニコニコ動画をプレーヤー表示にしました。 (2012/02/16 (木) 22:22:30)
  • shiro : mkII用のQRコードを載せました。 (2012/03/14 (水) 17:03:02)
  • 名無しさん : shiroさん乙です。QR使わせてもらいます。 (2012/03/24 (土) 22:53:12)
  • 道産子の初心者 : これが24行に収まるとはっ…!!! (2012/10/11 (木) 16:29:20)
  • 初心者 : なんだか17行目がSyntax errorでるんだけど… (2012/11/09 (金) 12:38:23)
  • 初心者 : 打ち間違いかな〜 (2012/11/09 (金) 12:39:06)
  • 名無しさん : ↑x2 ==を=と打っているのでは? (2012/11/09 (金) 18:52:12)
  • 初心者 : 打ち間違いかな〜 (2012/11/10 (土) 08:14:14)
  • ゆーた : 俺も13行めでsyntax errorばっかり! (2012/11/19 (月) 19:22:26)
  • 名無しさん : 楽器変更・複数同時演奏・MML保存機能とかつけたら便利なエディタになりそうだと思ったり (2013/03/26 (火) 16:49:07)
  • スーハー2000 : Xボタンでリセットとか音量調節のキーをつくってくれますか (2013/03/30 (土) 16:56:12)
  • shiro : とりあえずシンプルに作ったプログラムなので、バイカウントメルビルさんのように、皆さんでいろいろ改造してみてください。 (2013/03/30 (土) 17:48:05)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.031 秒 | このページの最終更新 : 2013/03/30 (土) 17:48:05 (2242d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30