OMP使用例
[言語][BASIC] ＯＭＰ(Ochame's Music Plug-in)～全ポケコン共通音階演奏ソフト
ポケコンゲームだって音楽くらい欲しい～～！！
全ポケコン共通音階演奏ソフト「ＯＭＰ」
[Quick Link]使い方/リスト/MML2OMP
■「ＯＭＰ」が必要な理由
ポケコンゲームにおいて「フォント書き換え」や「ＯＰＡＳ」などによりオールＢＡＳＩＣでもグラフィックを重視したゲームを作ることが可能になりましたが、完全に遅れを取っているのは音楽の方です。
確かに「ＰＬＡＹ３」（Ｒｙｕさん作、ＰＪ93年11月号掲載）などの高性能なマシン語プログラムによりポケコンとしては高度な和音演奏が出来るようにはなりましたが、実際のところ「ＰＬＡＹ３」を使ったゲームを不特定多数の人に配る訳（雑誌等に投稿も含む）にはいかないのです。
これは以前ＯＰＡＳのところでも書いていますが、ポケコンのゲームを配布する場合、可能な限り単独で実行できるプログラムが望ましいのです。というのもそのゲームをプレイする人、全員の手元にＰＬＡＹ３のプログラムがあるとは限らないからです。しかも、ＰＬＡＹ３があることを前提にしたゲームの場合、そのゲームをプレイすらできないという事態にもなってしまいます。だから、ＰＬＡＹ３が必須のゲームで、不特定多数の人に配るのであれば、ＰＬＡＹ３のプログラムも自作のプログラムに組み込まなくてはなりません。
著作権の問題もありますが、仮に「ＰＬＡＹ３」のプログラムリストを自作のオールＢＡＳＩＣのプログラムに組み込むとします。ところが、「ＰＬＡＹ３」だけで、４Ｋバイト以上あるのです。音を出すだけでリストが４Ｋバイトも大きくなっては、とても気軽に自作のゲームに組み込むことなどできませんね。まあ、プログラム本体が数１０Ｋバイトという超大作なら「たかが４Ｋバイト」なのですが、ほんの数Ｋバイトのゲームにとってそれは致命的な大きさになります。
そういうことで、ＢＥＥＰを複数並べていって音階演奏させたり、簡易的な音階演奏ルーチンを作りそれにり音階演奏で行っている人もいます。これにも実は問題があるのです。
ＢＥＥＰを並べる方法ではデータを作る効率も悪いし、メモリ消費量が非常に大きく（別にそんなに音を鳴らさないのならばさほどではないですが）なってしまいます。また、他人が作ったゲーム中で使用している簡易的な音階演奏プログラムを自作ゲームで使おう思っても、気軽にそれを使うわけにはいかないのです。それは、著作権の問題もありますが、それ以前に、他人の簡易音階演奏プログラムの場合は仕様を独自で分析する能力が必要な上、分析したのはいいけど自分に満足のいくものであるという保証はあるとは限らないからです。そもそも、それだけの能力のある人ならすでに独自の簡易音階演奏プログラムを作っていることでしょう（笑）
そこで、私が考案したのが今回のプログラム「ＯＭＰ」です。完全に使用フリーとし、自作のプログラムにどんどん使っても構いません。しかも、ほんの２００バイト少々なので、数Ｋバイトのプログラムにも十分組み込み可能なのです。
ＯＭＰ(Ochame's Music Plug-in)
このプログラムは先程も書いたように自作のゲームなどに組み込んでもらうことを前提（名称の「Plug-in」というのを見ても分かると思う）に作られています。したがって、機能面では必要最低限のもののみ搭載で、ＭＭＬも使いやすいものとは言えないかもしれません。しかし、リストパフォーマンス（リストの長さと内容との兼合い・・・ＮＡＫさん提唱）が高く、曲のデータの大きさも小さい上に、処理の高速化を駆使していますので単音ながらＢＡＳＩＣでは最高に近い音質になっていると思います。
なお、今回はＥ５００シリーズ用、Ｇ８００シリーズ用、そして、ザウルス（DB-Z含）シリーズ用の３本を同時に発表します。データ形式は３本とも同一のためＥ５００用に作った曲をそのままＧ８００シリーズで鳴らすことが出来ます。
このメリットは自分が作った曲を１人でも多くの人に聞いて（使って）もらえることだけでなく、今まで難しかったＥシリーズ－Ｇシリーズ間のゲームの移植の際の音楽の問題も容易になるのです。
つまり、ＢＥＥＰ音階表を見ながら手動で変換していかなくてもＯＭＰのシステムプログラムを対応機種のものに変更するだけでその曲を使ったゲームを動作させることができるのです（もちろん音楽以外の手直しは必要です）
■使用方法
変数Ｍ＄に曲のデータを入れ、「ＧＯＳＵＢ＊ＯＭＰ」とするだけです。
音程をリアルタイム演算で求めていますので、事前に音程表などを配列変数に格納したりという面倒なことは一切不要です。
《注》Ｇ８００シリーズ用を使用する人へ
Ｇシリーズ用に関しては以下のＯＭＰのプログラムを実行前にプログラムのどこかで
ＤＩＭＭ＄（０）＊２５０
を実行しておく必要があります。
（別に「*250」でなくてもいいですが曲のデータが十分入る程の大きめの配列変数を確保する必要があります）
（例）
10 DIM M$(0)*250
20 M$(0)="$9:1ACE":GOSUB *OMP
30 END
また、説明中の「Ｍ＄」はすべて「Ｍ＄（０）」と置き換えて考えてください。
《曲のデータ作成について》
基本的に「音符の長さ・音程」というようにデータを並べていきます。
音符の長さについて
音符の長さは「１」が一番短く「２」が２倍の長さ、・・・「９」が９倍の長さとなります。詳しく言うと、アスキーコード４９～６４のものが使えるのです。つまり、「音の長さ＝アスキーコード－４８」となります。したがって、「＠」（アスキーコード６４）では１６倍になります。
なお、１回指定すれば次回までその長さが維持されます。
（注）必ずデータの一番最初に長さを入れておいてください。
音程について
音程指定は少し一般的なものと異なります。
「Ａ」が「低いド」になり、「Ｂが低い＃ド」というように半音上がるごとにアスキーコードが１つずつ大きくなっていきます。
つまり、以下の通りです。
Ａ
ド
「Ａ」は「低いド」で「Ｍ」が「普通のド」で「Ｙ」が「高いド」になります。「Ｚ」以降もＢＥＥＰが出せるまでの高さの音を出すことが可能です（ＢＥＥＰ音階表参照）。
なお、休符は「＊」です。
例「８Ａ」・・・低いドを８の長さ鳴らす
例「７＊」・・・７の長さ休む
「オクターブ」とか「＃（シャープ）」とか「ＣＤＥがドレミに対応」とかいった音楽の基礎知識がない人でも音の高さを感覚的に指定（ちょっと音の高さを変えたいという場合にアスキーコードを１つずつ変化させればよい）ができるために一般的なデータ形式よりもかえって初心者には使いやすいかもしれません。
テンポについて
テンポ１で長さ１の音符を１秒間鳴らせます。
テンポと曲の速さは（ほぼ）比例します。つまり、テンポが２倍になったら曲の速度は約２倍になります。
一般的な楽譜をこのＯＭＰのテンポに直す場合、長さ１の音符が１６分音符ならば、１５で割った値（元の曲がテンポ１２０の場合ＯＭＰではテンポ８）になります（およその目安）。なお、小数によるテンポ指定も可能です。
例＄１５：４ＭＯＱテンポ１５で「ドレミ」と鳴らす
例＄７．６５：１ＭＯＱテンポ7.65で「ドレミ」と鳴らす
（テンポは「＄」と「：」で囲んでください）
なお、テンポ指定は曲の中で何回も変更可能ですが、処理に少し時間がかかります（一瞬、間ができる程度ですが）ので、なるべくデータの先頭のみに使用する方がよいでしょう。また、テンポのみの単独指定も出来るのでゲーム中のすべての曲のテンポが同じ場合
M$="$20":GOSUB *OMP
としてテンポのみ先に登録しておくとデータ１つ１つにテンポ指定をする必要がなく便利です。
（テンポの単独指定の場合はデータの最後の「：」は省略可能です。）
プログラム内で最初にＯＭＰを使用する場合は必ず、テンポ指定をしてください。あとは、次の指定まで維持されます。
（注）テンポ指定のあとは必ず音符の長さの指定を行ってください（テンポの単独指定は除く）。
また、ＯＭＰは特殊なデータ構造のため少し長めのデータだとどこがどの音符に対応しているのか分かりづらいので、「／（スラッシュ）」や「スペース」などを入れてデータを見やすく区切ることができるようになっています。
１小節こと、音符１０個ごとなど適当に使ってください（笑）
（注）区切りを入れると若干処理が遅くなります。
例8ABCDE/FGHIJ・・・「／」を入れた場合
例8ABCDE FGHIJ・・・スペースを入れた場合
アスキーコードが４８より小さいものならば何でも使えます。数種類使い分けてもよいでしょう（ただし、将来ＯＭＰの命令が拡張したときのために「／」「スペース」以外はなるべく使わないようにしてください。）
これで、ＭＭＬが特殊であり視認性に乏しいということが少しはカバー出来ると思います（笑）。
実を言うと、もう少々プログラムサイズが大きくなってもよいのならば「ドレミ」を「ＣＤＥ」と表記できる一般的なＭＭＬに近いものにすることが可能になります。しかし、それをやらなかったのには理由があるのです。
まず、処理速度の問題です。今回のＯＭＰは私の持つテクニックを駆使して究極の処理速度を実現し、音質もＢＡＳＩＣながらそれなりに満足できるものとなっていますが、前述のようにすると処理速度が大幅にダウンしてしまい音質が落ちるために実用に耐えられないと判断したからです。これを阻止するためには現在のリアルタイムで音程を演算する方法ではなく予め音階データを配列変数などに格納する方法をとれば問題のないことですが、そうなるとプログラムサイズが大きくなり、使い勝手も大幅に下がって（ＯＭＰは事前に必要な処理がいらないお手軽設計）しまいます。
あと、「＃」や「オクターブ」の処理の分だけ演奏する曲のデータサイズが大きくなってしまいます。そうなると「出来るだけ手軽でコンパクト」というＯＭＰの基本理念に反してしまいます。
《ＯＭＰで作った曲を発表しよう》
この「ＯＭＰ」を使った曲が出来たら発表してみませんか。なるべくオリジナルの曲がのぞましいですが、市販の曲をＯＭＰ用にコンバートしたものでも構いません。また、ゲームに使えそうなちょっとした音楽（ゲーム開始の効果音、クリアの効果音など）も募集します。
曲を投稿する場合、「おちゃめ～る」に投稿するのならこちらへ件名「おちゃめ～るサウンド」でお願いします。ＨＰ上に投稿するのであれば何でも質問箱へお願いします。
投稿する場合、曲名（市販の曲の場合アーティスト名も明記、自作の場合は自分で曲名を付けて「自作」と明記）をお願いします。ゲームミュージック等で曲名が良く分からない場合はゲーム名とその曲が使われている場面（「オープニングの曲」「ステージ１の曲」など）を書いて戴ければＯＫです。要は自作以外の場合は出典元が明らかになっていればいいわけです。 効果音の場合は「何に使えそう（クリアの効果音など）」とか「どんな感じの曲（明るい感じ）」とか書いて戴けると助かります。
ある程度投稿がたまったら「フリーの効果音集」としてこのおちゃめくらぶ上で発表します。それにより、「ゲームは作りたいけど音楽が作れないから・・・」と悩んでいる人の助けになるはずです。
《ＭＭＬ２ＯＭＰ》
ＨｉＮａさんが視認性のよいＭＭＬからＯＭＰ用のデータへ変換出来るプログラムを作って下さいました！
expand
http://www.vector.co.jp/soft/win95/art/se215165.html
皆さんぜひ使ってみてください！
いいものができたらぜひ投稿してください！！
《その他いろいろ》
演奏する音の周波数の計算のところはリアルタイム演算としては理論上最高速のアルゴリズムが採用されています。
Ｘ＝６．１３＊ＴＥＮ（０．０２５０８＊Ｚ）
これで、出す音の周波数が計算できるのです。
具体的な解説についてはＯＭＰ徹底解説を読んでください。
なお、ＰＣ－１６００Ｋをお持ちの人はわずかな改良でＯＭＰを使用することができます（速度的にはかなリギリギリでしょうが）。ＰＣ－１５００／０１やＰＣ－１３６０／Ｋの人もわずかな改良で済みますが現状のリアルタイム方式では全く処理がついて行かないと思いますので、音階データを配列変数に入れておく必要があるでしょう。これらの機種をお持ちの方は専用のＯＭＰを作成しますのでご連絡ください。
また、カシオのポケコンをお持ちの人は何等かの形（マシン語プログラム等）で音の高さを変えることが可能ならばＯＭＰを作成することができます。
ちなみに「ＯＭＰ」は「オー・エム・ピー」でもいいですが親しみを込めて「オンプちゃん」（某魔法少女とは関係はありません（笑））と呼んでやってください（笑）
《プログラムリスト》
以下のプログラムの行番号は皆さんが自分で作ったプログラムに合わせて変えても構いません。
また、ＯＭＰでは変数Ｔ、Ｘ、Ｙ、Ｚを使用していますので、この変数名を使ったプログラムでは正常に動作しません。したがって、皆さんのプログラムに応じてＯＭＰで使用している変数名を変更しても構いません。ただ、Ｍ＄だけはなるべく変えないようにお願いします。
Ｅ５００シリーズ用
100 *OMP FOR I=&1TO LEN M$:Z=ASC MID$ (M$,I,1):IF Z>64LET X=6.13*TEN (0.02508*Z):BEEP 1,64000/X-22,X*Y/T ELSE IF Z>47LET Y=Z-48ELSE IF Z=36LET T=VAL RIGHT$ (M$,LEN M$-I)ELSE IF Z=42 FOR J=&1TO 730*Y/T+20:NEXT
110 NEXT :RETURN
Ｇ８００シリーズ用
（注）圧電ブザーを自作で取り付けないと音は出ません。
また、Ｇ８５０では処理速度の違いにより130行の「535*Y/T」を「1111*Y/T」に変更してください。
100 *OMP FOR I=1 TO LEN M$(0):Z=ASC MID$ (M$(0),I,1):IF Z>64 LET X=6.13*TEN (0.02508*Z):BEEP 1,59091/X-7,X*Y/T:NEXT :RETURN
110 IF Z>47 LET Y=Z-48:NEXT :RETURN
120 IF Z=36 LET T=VAL RIGHT$ (M$(0),LEN M$(0)-I)
130 IF Z=42 FOR J=1 TO 535*Y/T+20:NEXT
140 NEXT :RETURN
ザウルス（ＩＣカード使用可能機種）／ＰＶ－Ｆ１／ＤＢ－Ｚ用
（注）ＰＡ－９Ｃ３（ハイパー関数プログラムカード）が必要です。
100 *OMP FOR I=&1TO LEN M$:Z=ASC MID$ (M$,I,1):IF Z>64 OR Z=42LET X=6.13*TEN (0.02508*Z),W=-73153*Y/T:BEEP 1,-(Z<>42)*36576/X,(Z<>42)*W,(Z=42)*W ELSE IF Z>47 LET Y=Z-48 ELSE IF Z=36LET T=VAL RIGHT$ (M$,LEN M$-I)
110 NEXT :RETURN
《サンプルデータ》
クレメンティ作曲ソナチネ作品36-1（序盤のみ）
$30:4M2QMH*MH*/4M2QMH*T*/RQOMLMLM/OMLJ4H*/M2QMH*H*/4Q2TQM*QM/OLMJLHJG/HJLMOQST/4J2V*V*V*/LMOQSTVX/4M2Y*Y*Y*/OTX[YXVT/SQTSVTRQ/QOMLOMLJ/8H*
やっぱり、ザウルスが一番演算速度が速い（Ｅ５００の２倍速！）ので音質もいいです。自分の中では完璧と思っていたＥ５００用もザウルス用のあと聞いてみたら見劣りしてしまいます（笑）。
最後にこのＧ８００シリーズのテストプレイに協力下さったＡｉｊａｗａさん、ＯＧＡさん、ショウさん、ＮＯ１さんどうもありがとうございました。
おちゃめくらぶ ポケコン研究部
http://ww5.tiki.ne.jp/~ochame/E500/POCKECOM.HTM
http://ww5.tiki.ne.jp/~ochame/E500/POCKE1.HTM
http://ww5.tiki.ne.jp/~ochame/E500/TECH/OMP.HTM
