プチコン3号＆BIGまとめWiki

パンくずリスト

• トップ
• Toukou
• ExtendedMML

2019年6月17日投稿 / 投稿者 : Na / タグ : 投稿プログラム 実用ツール ツール MML 音楽

概要

MML文字列にタイトルなどの情報を埋め込むための音楽フォーマットです。
再生する際はBGMPLAYに渡すだけでよく、とても簡単です。

記述方法

拡張子は「.MML」にします。
タグの記述は{TITLE=あいうえお}のように行います。
この文字列は、MML文字列内のどこに置いてもかまいません。
また、改行は/n、＼n、改行(文字コード10)のいずれかで指定します。
指定可能なタグは以下の通りです。
これらすべてを指定する必要はありません。また、この順番である必要もありません。
この一覧にあるものしか指定できないわけではありません。
(高原のなさんのNMPACKSで指定できるものはすべて指定できます。というか丸コピです。)

NMPACKSとの相違点は、

• すべて大文字。
• 仕様上7文字しか入らないため上の表のとおりの省略形を使う。
• 埋め込み構文は使用しない。

また、仕様上、:｛｝は使用できません。

• ｛｝の個数が一致し、括弧が正しく対応している場合はokです。
• どうしても表示させたい場合は、全角の:(文字コード&HFF1A)｛(&HFF5B)｝(&HFF5D)を使用できます。

NNMフォーマット同梱版のExtended MMLライブラリ ver. 1.6より、仕様上使用できなかった文字を使えるようにするエスケープシーケンスを導入しました。

• : ｛ ｝はそれぞれ、\; \( \)と指定します。
• もちろん、全角の:(文字コード&HFF1A)｛(&HFF5B)｝(&HFF5D)も使用できます。
• 詳しくは音楽パックフォーマット「NNM」をご覧ください。

以下に例を示します。

MML文字列中の改行は、BGMPLAYには影響を及ぼしませんので、EDITモードでの編集が可能です。

再生方法

例

タグの取得

INSTRを使って取得します。
サンプルに入っているEXMML$(MML$,META$)を使用すると簡単です。

WAVSET

INSTRを使ってなんとかします。
サンプルに入っているEXMML_WAVSET MML$を使用すると簡単です。

3号/4の変換

MMLTO4$関数及び、4→3号の変換であるMMLTO3$を同梱しました。(完全ではありませんが。)
3号→4の変換の際、マクロを定義前に使用するとエラーになるため、MML_REP$をお使いください。

公開キー

音楽パックフォーマット「NNM」の「NNM-LIB.PRG」内にあります。

ver1.1 タグ内に｛｝があると正しく取得できないバグを修正。
ver1.2 EXMML_DEL$(指定したタグ削除)追加。MMLTO3$で@130〜@148を@131に変更するようにした。
ver1.3 MML_REP$(マクロ展開)追加。
ver1.4 MML_REP$(マクロ展開)で展開したマクロを削除するように変更。

プログラムリスト

+

...

’Ｅｘｔｅｎｄｅｄ　ＭＭＬ　Ｌｉｂｒａｒｙ　ｖｅｒ１．４ ＤＥＦ　ＥＸＭＭＬ＄（ＭＭＬ＄，ＭＥＴＡ＄）’１９／７／８　更新 　ＶＡＲ　Ｉ，Ｊ，Ｋ＝０，Ｒ＄＝”” 　Ｉ＝ＩＮＳＴＲ（ＭＭＬ＄，”｛”＋ＭＥＴＡ＄＋”＝”） 　ＩＦ　Ｉ！＝−１　ＴＨＥＮ 　　Ｉ＝Ｉ＋ＬＥＮ（ＭＥＴＡ＄）＋２ 　　ＦＯＲ　Ｊ＝Ｉ　ＴＯ　ＬＥＮ（ＭＭＬ＄）−１ 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｛”　ＴＨＥＮ　ＩＮＫ　Ｋ 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｝”　ＡＮＤ　Ｋ＝＝０　ＴＨＥＮ　ＢＲＥＡＫ 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｝”　ＴＨＥＮ　ＤＥＣ　Ｋ 　　ＮＥＸＴ 　　Ｒ＄＝ＭＩＤ＄（ＭＭＬ＄，Ｉ，Ｊ−Ｉ） 　ＥＮＤＩＦ 　Ｉ＝ＩＮＳＴＲ（Ｒ＄，”／ｎ”） 　ＷＨＩＬＥ　Ｉ＞＝０ 　　Ｒ＄＝ＳＵＢＳＴ＄（Ｒ＄，Ｉ，２，ＣＨＲ＄（１０）） 　　Ｉ＝ＩＮＳＴＲ（Ｒ＄，”／ｎ”） 　ＷＥＮＤ 　Ｉ＝ＩＮＳＴＲ（Ｒ＄，”＼ｎ”） 　ＷＨＩＬＥ　Ｉ＞＝０ 　　Ｒ＄＝ＳＵＢＳＴ＄（Ｒ＄，Ｉ，２，ＣＨＲ＄（１０）） 　　Ｉ＝ＩＮＳＴＲ（Ｒ＄，”＼ｎ”） 　ＷＥＮＤ 　ＲＥＴＵＲＮ　Ｒ＄ ＥＮＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＤＥＦ　ＥＸＭＭＬ＿ＤＥＬ＄（ＭＭＬ＄，ＭＥＴＡ＄）’１９／７／２０ 　ＶＡＲ　Ｉ，Ｊ，Ｋ＝０，Ｒ＄＝ＭＭＬ＄＋”” 　Ｉ＝ＩＮＳＴＲ（ＭＭＬ＄，”｛”＋ＭＥＴＡ＄＋”＝”） 　ＩＦ　Ｉ！＝−１　ＴＨＥＮ 　　ＦＯＲ　Ｊ＝Ｉ＋ＬＥＮ（ＭＥＴＡ＄）＋２　ＴＯ　ＬＥＮ（ＭＭＬ＄）−１ 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｛”　ＴＨＥＮ　ＩＮＫ　Ｋ 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｝”　ＡＮＤ　Ｋ＝＝０　ＴＨＥＮ　ＢＲＥＡＫ 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｝”　ＴＨＥＮ　ＤＥＣ　Ｋ 　　ＮＥＸＴ 　　Ｒ＄＝ＳＵＢＳＴ＄（ＭＭＬ＄，Ｉ，Ｊ＋１−Ｉ，””） 　ＥＮＤＩＦ 　ＲＥＴＵＲＮ　Ｒ＄ ＥＮＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＤＥＦ　ＥＸＭＭＬ＿ＷＡＶＳＥＴ　ＭＭＬ＄　’１９／６／１７ 　ＶＡＲ　Ｉ，Ｊ，Ｋ，Ｔ＄，Ｃ，Ｐ＄［６］，Ｎ 　Ｉ＝ＩＮＳＴＲ（ＭＭＬ＄，”｛ＷＡＶ”） 　ＷＨＩＬＥ　Ｉ！＝−１ 　　ＦＩＬＬ　Ｐ＄，”” 　　Ｉ＝Ｉ＋４ 　　Ｃ＝ＶＡＬ（ＭＩＤ＄（ＭＭＬ＄，Ｉ，３）） 　　ＩＦ　Ｃ＞＝２２４　ＡＮＤ　Ｃ＜＝２５５　ＴＨＥＮ 　　　Ｉ＝Ｉ＋４ 　　　Ｊ＝ＩＮＳＴＲ（Ｉ，ＭＭＬ＄，”｝”） 　　　ＩＦ　Ｊ！＝−１　ＴＨＥＮ 　　　　Ｔ＄＝ＭＩＤ＄（ＭＭＬ＄，Ｉ，Ｊ−Ｉ） 　　　　Ｊ＝０ 　　　　Ｋ＝ＩＮＳＴＲ（Ｔ＄，”，”） 　　　　Ｎ＝０ 　　　　ＷＨＩＬＥ　Ｋ！＝−１　ＡＮＤ　Ｎ＜６ 　　　　　Ｐ＄［Ｎ］＝ＭＩＤ＄（Ｔ＄，Ｊ，Ｋ−Ｊ） 　　　　　Ｊ＝Ｋ＋１ 　　　　　Ｋ＝ＩＮＳＴＲ（Ｊ，Ｔ＄，”，”） 　　　　　ＩＮＣ　Ｎ 　　　　ＷＥＮＤ 　　　　ＩＦ　Ｎ＜６　ＴＨＥＮ　Ｐ＄［Ｎ］＝ＭＩＤ＄（Ｔ＄，Ｊ，ＬＥＮ（Ｔ＄）−Ｊ） 　　　　ＩＦ　Ｐ＄［５］＝＝””　ＴＨＥＮ　Ｐ＄［５］＝”６９” 　　　　ＷＡＶＳＥＴ　Ｃ，ＶＡＬ（Ｐ＄［０］），ＶＡＬ（Ｐ＄［１］），ＶＡＬ（Ｐ＄［２］），ＶＡＬ（Ｐ＄［３］），Ｐ＄［４］，ＶＡＬ（Ｐ＄［５］） 　　　ＥＮＤＩＦ 　　ＥＮＤＩＦ 　　Ｉ＝ＩＮＳＴＲ（Ｉ，ＭＭＬ＄，”｛ＷＡＶ”） 　ＷＥＮＤ ＥＮＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＤＥＦ　ＭＭＬＴＯ４＄（＿Ｍ＄）’１９／６／１７ 　ＶＡＲ　Ｉ，Ｖ，Ｍ＄＝＿Ｍ＄＋”” 　Ｉ＝ＩＮＳＴＲ（Ｍ＄，”Ｑ”） 　ＷＨＩＬＥ　Ｉ＞＝０ 　　Ｖ＝ＶＡＬ（ＭＩＤ＄（Ｍ＄，Ｉ＋１，１）） 　　Ｍ＄＝ＳＵＢＳＴ＄（Ｍ＄，Ｉ＋１，１，ＳＴＲ＄（Ｖ＊４）） 　　Ｉ＝ＩＮＳＴＲ（Ｉ＋１，Ｍ＄，”Ｑ”） 　ＷＥＮＤ 　Ｉ＝ＩＮＳＴＲ（Ｍ＄，”＠”） 　ＷＨＩＬＥ　Ｉ＞＝０ 　　Ｖ＝ＶＡＬ（ＭＩＤ＄（Ｍ＄，Ｉ＋１，３）） 　　ＩＦ　Ｖ＞＝１４４　ＡＮＤ　Ｖ＜＝１５１　ＴＨＥＮ 　　　Ｍ＄＝ＳＵＢＳＴ＄（Ｍ＄，Ｉ＋１，３，ＳＴＲ＄（Ｖ＋７２）） 　　ＥＮＤＩＦ 　　Ｉ＝ＩＮＳＴＲ（Ｉ＋１，Ｍ＄，”＠”） 　ＷＥＮＤ 　ＲＥＴＵＲＮ　Ｍ＄ ＥＮＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＤＥＦ　ＭＭＬＴＯ３＄（＿Ｍ＄）’１９／７／２０　更新 　ＶＡＲ　Ｉ，Ｖ，Ｍ＄＝＿Ｍ＄＋”” 　Ｉ＝ＩＮＳＴＲ（Ｍ＄，”Ｑ”） 　ＷＨＩＬＥ　Ｉ＞＝０ 　　Ｖ＝ＶＡＬ（ＭＩＤ＄（Ｍ＄，Ｉ＋１，２）） 　　ＩＦ　Ｖ＞０　ＴＨＥＮ 　　　Ｍ＄＝ＳＵＢＳＴ＄（Ｍ＄，Ｉ＋１，２，ＳＴＲ＄（Ｖ＞＞２）） 　　ＥＬＳＥ 　　　Ｖ＝ＶＡＬ（ＭＩＤ＄（Ｍ＄，Ｉ＋１，１）） 　　　Ｍ＄＝ＳＵＢＳＴ＄（Ｍ＄，Ｉ＋１，１，ＳＴＲ＄（Ｖ＞＞２）） 　　ＥＮＤＩＦ 　　Ｉ＝ＩＮＳＴＲ（Ｉ＋１，Ｍ＄，”Ｑ”） 　ＷＥＮＤ 　Ｉ＝ＩＮＳＴＲ（Ｍ＄，”＠”） 　ＷＨＩＬＥ　Ｉ＞＝０ 　　Ｖ＝ＶＡＬ（ＭＩＤ＄（Ｍ＄，Ｉ＋１，３）） 　　ＩＦ　Ｖ＞＝１３０　ＡＮＤ　Ｖ＜＝１４８　ＴＨＥＮ 　　　Ｍ＄＝ＳＵＢＳＴ＄（Ｍ＄，Ｉ＋１，３，”１３１”） 　　ＥＮＤＩＦ 　　ＩＦ　Ｖ＞＝２１６　ＡＮＤ　Ｖ＜＝２２３　ＴＨＥＮ 　　　Ｍ＄＝ＳＵＢＳＴ＄（Ｍ＄，Ｉ＋１，３，ＳＴＲ＄（Ｖ−７２）） 　　ＥＮＤＩＦ 　　Ｉ＝ＩＮＳＴＲ（Ｉ＋１，Ｍ＄，”＠”） 　ＷＥＮＤ 　ＲＥＴＵＲＮ　Ｍ＄ ＥＮＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＤＥＦ　ＭＭＬ＿ＲＥＰ＄（ＯＬＤ＄）　’１９／１１／３０　修正 　ＶＡＲ　ＭＭＬ＄＝ＯＬＤ＄＋””，Ｉ，Ｊ，Ｋ，Ｎ＄，Ｒ＄ 　ＤＩＭ　ＭＴ＄［０］ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＭＭＬ＄）−１　’１文字ずつしらべる 　　 　　’マクロ以外の部分はそのまま 　　ＩＦ　ＭＭＬ＄［Ｉ］！＝”｛”　ＴＨＥＮ　ＣＯＮＴＩＮＵＥ 　　 　　Ｋ＝０　’Ｋはかっこが何重になっているか表す 　　ＦＯＲ　Ｊ＝Ｉ＋１　ＴＯ　ＬＥＮ（ＭＭＬ＄）−１　’｛から先を調べる 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｛”　ＴＨＥＮ　Ｋ＝Ｋ＋１ 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｝”　ＡＮＤ　Ｋ＝＝０　ＴＨＥＮ　ＢＲＥＡＫ　’｝の位置がＪに入っている 　　　ＩＦ　ＭＭＬ＄［Ｊ］＝＝”｝”　ＴＨＥＮ　Ｋ＝Ｋ−１ 　　ＮＥＸＴ 　　’Ｋはもう使っていない 　　’＝が｛｝の中にあったら無視する 　　Ｋ＝ＩＮＳＴＲ（Ｉ，ＭＭＬ＄，”＝”） 　　ＩＦ　Ｋ！＝−１　ＡＮＤ　Ｋ＜Ｊ　ＴＨＥＮ　Ｉ＝Ｋ：ＣＯＮＴＩＮＵＥ 　　’↑でＩ＝Ｋとしたのは｛Ａ＝｛Ｂ｝｝などの時に”＝”以降の”｛Ｂ｝”も置き換えするため 　　 　　Ｎ＄＝ＭＩＤ＄（ＭＭＬ＄，Ｉ＋１，Ｊ−Ｉ−１）　’マクロの名前を取り出す 　　ＰＵＳＨ　ＭＴ＄，Ｎ＄ 　　Ｒ＄＝ＥＸＭＭＬ＄（ＭＭＬ＄，Ｎ＄）　’そのマクロの中身を取り出す 　　’（ＥＸＭＭＬ＄はＥｘｔｅｎｄｅｄＭＭＬのライブラリにある） 　　 　　ＭＭＬ＄＝ＳＵＢＳＴ＄（ＭＭＬ＄，Ｉ，Ｊ−Ｉ＋１，Ｒ＄）　’マクロ全体を中身に置き換える 　　Ｉ＝Ｉ−１　’１文字戻してもう一回調べる 　ＮＥＸＴ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＭＴ＄）−１ 　　ＭＭＬ＄＝ＥＸＭＭＬ＿ＤＥＬ＄（ＭＭＬ＄，ＭＴ＄［Ｉ］） 　ＮＥＸＴ 　ＲＥＴＵＲＮ　ＭＭＬ＄ ＥＮＤ

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

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

お名前: