サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ポップス ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 前奏が最悪ですが、ぜひ最後まで聞いて欲しいですw 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // dSakura.dll Version.2.37 TrackName = {" 再会 "}; Copyright = {" 春日井春日 "}; MetaText = {"制作期間 2005.11.22~2005.11.23"}; /*一応、GS音源推奨ですが、GMでもほとんど変わらないと思います(^∇^)*/ //全体のKeyの操作 INT ALL_KEY = 0 ;//0が原曲です。-2,-1,1,2の方がいいかも… //------------------------------------------------------------------------------ /* "心境" DLありがとうございます♪\(^^\)(/^^)/ 前奏が最悪です…許してくださいw サビは傑作ですv ギターを封印して、ピアノを中心に作曲してみたのですが、ぶっちゃけ微妙です( ̄ー ̄; まぁギターがあったところで、もっと変になると思いますが( ̄∇ ̄;) にしてもテスト前なのにこんな事をしてていいのか… 赤点がありますし勉強しなければならないのに、1日かけて作曲してしまいました(-。−;) まぁ前奏以外はまだ普通に聴いてても大丈夫だと思いますw サビは、自信があるので、あえてコーラス無しにしました d(>_< )Good!! コーラスありだと逆に不協和音になりそうだし…しかもサビ以外は不協和音っぽいw chord5.hとか、bwb_scale.hは、すごいらしいですが、使い方が分からないので、 使おうとは思ったのですが、妥協しましたw で、自分で作ったりしたんですけど、ぶっちゃけ微妙で最悪なコードです… マイナー調でコードはやや不規則です。しかもBメロは、なんかどこかで聞き覚えのあるメロディーかも… ・Aメロ Am→Em→F→G ・Bメロ F→G→(C→E7)→Am ・サビ Aメロ+3半音↑です(-。−;) やっぱマイナー調は、難しいな…メジャー調のほうがコード進行が穏やかなんですけどね♪ 今回の"再会"という曲は、もし再び逢えた時の心境を曲にしてみました…(ノ◇≦。) ビェーン!! "誰に逢えたら?"それは秘密ですw 訳ありの"再会"ですねw 再会っていう音楽の雰囲気じゃないんですけどね… Track 3 が一応、ボーカルなので…音程が高すぎて歌えないと思いますwオーケストラ風だと思って聞いてください( ̄ー ̄; にしてもまたまた曲中にKeyを使いまくり(-。−;) BENDも結構使ってますが、自分的にはうまく使えたほうだと思います…(もっとすごい人もたくさんいるけど… 次はもっと穏やかな感じの曲を作りたいと思います!(多分、また激しくなりそうw) 意見や感想のカキコ待ってます! */ //------------------------------------------------------------------------------ /* 楽器の位置 DRUM(±0度) Viola(-15度) Cello(+15度) Violin(-45度) Piano(-10度) Contrabass(+45度) Vo2(-60度) Co(-5度) Vo&B_Harp(+5度) ――――――――――――(聴衆者)―――――――――――――→x */ //_Pの設定(計算式:(90+x)度÷90度×64) 下一桁を四捨五入 //0-64-127 P INT V_lin=32; //-45度 =32 INT V_ola=53; //-15度 =53.333… INT C_llo=75; //+15度 =74.666 INT C_bass=96; //+45度 =96 INT D_DRUM=64; //±0度 =64 INT P_Piano=57; //-10度 =56.888… INT Co=60; //-5度 =60.444… INT V_B=68; //+5度 =67.555… Int Vo2=21; //-60度 =21.333… //------------------------------------------------------------------------------ //_コード(ピアノ版) FUNCTION A_maj(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-48);A_STR;Key(MML(Key)-7+48);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; }; FUNCTION A_m(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-48);A_STR;Key(MML(Key)-7+48);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; }; FUNCTION A_7(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-48);A_STR;Key(MML(Key)-10+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; }; FUNCTION A_M7(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+11-48);A_STR;Key(MML(Key)-11+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+11-36);A_STR;Key(MML(Key)-11+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+11-36);A_STR;Key(MML(Key)-11+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+11-36);A_STR;Key(MML(Key)-11+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+11-36);A_STR;Key(MML(Key)-11+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+11-24);A_STR;Key(MML(Key)-11+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+11-24);A_STR;Key(MML(Key)-11+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+11-24);A_STR;Key(MML(Key)-11+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+11-24);A_STR;Key(MML(Key)-11+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+11-12);A_STR;Key(MML(Key)-11+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+11-12);A_STR;Key(MML(Key)-11+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+11-12);A_STR;Key(MML(Key)-11+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+11-12);A_STR;Key(MML(Key)-11+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+11+ 0);A_STR;Key(MML(Key)-11+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+11+ 0);A_STR;Key(MML(Key)-11+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+11+ 0);A_STR;Key(MML(Key)-11+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+11+ 0);A_STR;Key(MML(Key)-11+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+11+12);A_STR;Key(MML(Key)-11-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+11+12);A_STR;Key(MML(Key)-11-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+11+12);A_STR;Key(MML(Key)-11-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+11+12);A_STR;Key(MML(Key)-11-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+11+24);A_STR;Key(MML(Key)-11-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+11+24);A_STR;Key(MML(Key)-11-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+11+24);A_STR;Key(MML(Key)-11-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+11+24);A_STR;Key(MML(Key)-11-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+11+36);A_STR;Key(MML(Key)-11-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+11+36);A_STR;Key(MML(Key)-11-36);'}; }; FUNCTION A_m7(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-48);A_STR;Key(MML(Key)-10+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; }; FUNCTION A_dim(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+9-48);A_STR;Key(MML(Key)-9+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+36);A_STR;Key(MML(Key)-6-36);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+36);A_STR;Key(MML(Key)-6-36);Key(MML(Key)+9+36);A_STR;Key(MML(Key)-9-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+36);A_STR;Key(MML(Key)-6-36);Key(MML(Key)+9+36);A_STR;Key(MML(Key)-9-36);'}; }; FUNCTION A_m7b5(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+10-48);A_STR;Key(MML(Key)-10+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-36);A_STR;Key(MML(Key)-6+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-24);A_STR;Key(MML(Key)-6+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6-12);A_STR;Key(MML(Key)-6+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+ 0);A_STR;Key(MML(Key)-6+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+12);A_STR;Key(MML(Key)-6-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+24);A_STR;Key(MML(Key)-6-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+36);A_STR;Key(MML(Key)-6-36);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+36);A_STR;Key(MML(Key)-6-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+6+36);A_STR;Key(MML(Key)-6-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; }; FUNCTION A_aug(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+8-48);A_STR;Key(MML(Key)-8+48);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+8-36);A_STR;Key(MML(Key)-8+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+8-36);A_STR;Key(MML(Key)-8+36);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+8-36);A_STR;Key(MML(Key)-8+36);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+8-24);A_STR;Key(MML(Key)-8+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+8-24);A_STR;Key(MML(Key)-8+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+8-24);A_STR;Key(MML(Key)-8+24);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+8-12);A_STR;Key(MML(Key)-8+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+8-12);A_STR;Key(MML(Key)-8+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4- 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+8-12);A_STR;Key(MML(Key)-8+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+8+ 0);A_STR;Key(MML(Key)-8+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+8+ 0);A_STR;Key(MML(Key)-8+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+8+ 0);A_STR;Key(MML(Key)-8+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+8+12);A_STR;Key(MML(Key)-8-12);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+8+12);A_STR;Key(MML(Key)-8-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+8+12);A_STR;Key(MML(Key)-8-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+8+24);A_STR;Key(MML(Key)-8-24);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+8+24);A_STR;Key(MML(Key)-8-24);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+8+24);A_STR;Key(MML(Key)-8-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+8+36);A_STR;Key(MML(Key)-8-36);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+8+36);A_STR;Key(MML(Key)-8-36);'}; }; FUNCTION A_sus4(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+5-36);A_STR;Key(MML(Key)-5+36);Key(MML(Key)+7-48);A_STR;Key(MML(Key)-7+48);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+5-36);A_STR;Key(MML(Key)-5+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+5-36);A_STR;Key(MML(Key)-5+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+5-24);A_STR;Key(MML(Key)-5+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+5-24);A_STR;Key(MML(Key)-5+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+5-24);A_STR;Key(MML(Key)-5+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+5-12);A_STR;Key(MML(Key)-5+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+5-12);A_STR;Key(MML(Key)-5+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+5-12);A_STR;Key(MML(Key)-5+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+5+ 0);A_STR;Key(MML(Key)-5+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+5+ 0);A_STR;Key(MML(Key)-5+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+5+ 0);A_STR;Key(MML(Key)-5+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+5+12);A_STR;Key(MML(Key)-5-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+5+12);A_STR;Key(MML(Key)-5-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+5+12);A_STR;Key(MML(Key)-5-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+5+24);A_STR;Key(MML(Key)-5-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+5+24);A_STR;Key(MML(Key)-5-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+5+24);A_STR;Key(MML(Key)-5-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+5+36);A_STR;Key(MML(Key)-5-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+5+36);A_STR;Key(MML(Key)-5-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+5+36);A_STR;Key(MML(Key)-5-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; }; FUNCTION A_7sus4(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+5-36);A_STR;Key(MML(Key)-5+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-48);A_STR;Key(MML(Key)-10+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+5-36);A_STR;Key(MML(Key)-5+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+5-36);A_STR;Key(MML(Key)-5+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+5-24);A_STR;Key(MML(Key)-5+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+5-24);A_STR;Key(MML(Key)-5+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-36);A_STR;Key(MML(Key)-10+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+5-24);A_STR;Key(MML(Key)-5+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+5-24);A_STR;Key(MML(Key)-5+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+5-12);A_STR;Key(MML(Key)-5+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+5-12);A_STR;Key(MML(Key)-5+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-24);A_STR;Key(MML(Key)-10+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+5-12);A_STR;Key(MML(Key)-5+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+5-12);A_STR;Key(MML(Key)-5+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+5+ 0);A_STR;Key(MML(Key)-5+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+5+ 0);A_STR;Key(MML(Key)-5+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10-12);A_STR;Key(MML(Key)-10+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+5+ 0);A_STR;Key(MML(Key)-5+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+5+ 0);A_STR;Key(MML(Key)-5+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+5+12);A_STR;Key(MML(Key)-5-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+5+12);A_STR;Key(MML(Key)-5-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+ 0);A_STR;Key(MML(Key)-10+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+5+12);A_STR;Key(MML(Key)-5-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+5+12);A_STR;Key(MML(Key)-5-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+5+24);A_STR;Key(MML(Key)-5-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+5+24);A_STR;Key(MML(Key)-5-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+12);A_STR;Key(MML(Key)-10-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+5+24);A_STR;Key(MML(Key)-5-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+5+24);A_STR;Key(MML(Key)-5-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+5+36);A_STR;Key(MML(Key)-5-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+5+36);A_STR;Key(MML(Key)-5-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+24);A_STR;Key(MML(Key)-10-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+5+36);A_STR;Key(MML(Key)-5-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+5+36);A_STR;Key(MML(Key)-5-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+10+36);A_STR;Key(MML(Key)-10-36);'}; }; FUNCTION A_6(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-48);A_STR;Key(MML(Key)-9+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+9+36);A_STR;Key(MML(Key)-9-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+9+36);A_STR;Key(MML(Key)-9-36);'}; }; FUNCTION A_add9(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+2-36);A_STR;Key(MML(Key)-2+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-48);A_STR;Key(MML(Key)-7+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+2-36);A_STR;Key(MML(Key)-2+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+2-36);A_STR;Key(MML(Key)-2+36);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+2-22);A_STR;Key(MML(Key)-2+24);Key(MML(Key)+4-36);A_STR;Key(MML(Key)-4+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+2-22);A_STR;Key(MML(Key)-2+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+2-22);A_STR;Key(MML(Key)-2+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+2-22);A_STR;Key(MML(Key)-2+24);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+2-12);A_STR;Key(MML(Key)-2+12);Key(MML(Key)+4-24);A_STR;Key(MML(Key)-4+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+2-12);A_STR;Key(MML(Key)-2+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+2-12);A_STR;Key(MML(Key)-2+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+2-12);A_STR;Key(MML(Key)-2+12);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+2+ 0);A_STR;Key(MML(Key)-2+ 0);Key(MML(Key)+4-12);A_STR;Key(MML(Key)-4+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+2+ 0);A_STR;Key(MML(Key)-2+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+2+ 0);A_STR;Key(MML(Key)-2+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+2+ 0);A_STR;Key(MML(Key)-2+ 0);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+2+12);A_STR;Key(MML(Key)-2-12);Key(MML(Key)+4+ 0);A_STR;Key(MML(Key)-4+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+2+12);A_STR;Key(MML(Key)-2-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+2+12);A_STR;Key(MML(Key)-2-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+2+12);A_STR;Key(MML(Key)-2-12);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+2+22);A_STR;Key(MML(Key)-2-24);Key(MML(Key)+4+12);A_STR;Key(MML(Key)-4-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+2+22);A_STR;Key(MML(Key)-2-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+2+22);A_STR;Key(MML(Key)-2-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+2+22);A_STR;Key(MML(Key)-2-24);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+2+36);A_STR;Key(MML(Key)-2-36);Key(MML(Key)+4+24);A_STR;Key(MML(Key)-4-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+2+36);A_STR;Key(MML(Key)-2-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+2+36);A_STR;Key(MML(Key)-2-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+2+36);A_STR;Key(MML(Key)-2-36);Key(MML(Key)+4+36);A_STR;Key(MML(Key)-4-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);'}; }; FUNCTION A_m6(STR A_STR,A_KEY_CHORD_NUMBER){ IF(A_KEY_CHORD_NUMBER==-13){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-48);A_STR;Key(MML(Key)-9+48);'}; IF(A_KEY_CHORD_NUMBER==-12){'Key(MML(Key)+0-36);A_STR;Key(MML(Key)-0+36);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-11){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-36);A_STR;Key(MML(Key)-3+36);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-10){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-36);A_STR;Key(MML(Key)-7+36);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-09){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-36);A_STR;Key(MML(Key)-9+36);'}; IF(A_KEY_CHORD_NUMBER==-08){'Key(MML(Key)+0-24);A_STR;Key(MML(Key)-0+24);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-07){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-24);A_STR;Key(MML(Key)-3+24);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-06){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-24);A_STR;Key(MML(Key)-7+24);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-05){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-24);A_STR;Key(MML(Key)-9+24);'}; IF(A_KEY_CHORD_NUMBER==-04){'Key(MML(Key)+0-12);A_STR;Key(MML(Key)-0+12);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-03){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3-12);A_STR;Key(MML(Key)-3+12);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-02){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7-12);A_STR;Key(MML(Key)-7+12);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==-01){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9-12);A_STR;Key(MML(Key)-9+12);'}; IF(A_KEY_CHORD_NUMBER==+00){'Key(MML(Key)+0+ 0);A_STR;Key(MML(Key)-0+ 0);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+01){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+ 0);A_STR;Key(MML(Key)-3+ 0);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+02){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+ 0);A_STR;Key(MML(Key)-7+ 0);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+03){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+ 0);A_STR;Key(MML(Key)-9+ 0);'}; IF(A_KEY_CHORD_NUMBER==+04){'Key(MML(Key)+0+12);A_STR;Key(MML(Key)-0-12);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+05){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+12);A_STR;Key(MML(Key)-3-12);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+06){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+12);A_STR;Key(MML(Key)-7-12);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+07){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+12);A_STR;Key(MML(Key)-9-12);'}; IF(A_KEY_CHORD_NUMBER==+08){'Key(MML(Key)+0+24);A_STR;Key(MML(Key)-0-24);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+09){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+24);A_STR;Key(MML(Key)-3-24);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+10){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+24);A_STR;Key(MML(Key)-7-24);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+11){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+9+24);A_STR;Key(MML(Key)-9-24);'}; IF(A_KEY_CHORD_NUMBER==+12){'Key(MML(Key)+0+36);A_STR;Key(MML(Key)-0-36);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+9+36);A_STR;Key(MML(Key)-9-36);'}; IF(A_KEY_CHORD_NUMBER==+13){'Key(MML(Key)+0+48);A_STR;Key(MML(Key)-0-48);Key(MML(Key)+3+36);A_STR;Key(MML(Key)-3-36);Key(MML(Key)+7+36);A_STR;Key(MML(Key)-7-36);Key(MML(Key)+9+36);A_STR;Key(MML(Key)-9-36);'}; }; //_メジャー・コード "piano" FUNCTION A_C (A_l,A_mm){IF(A_l==0){A_maj({c },A_mm)}IF(A_l>0){l(A_l)A_maj({c },A_mm)}}; FUNCTION A_Cp(A_l,A_mm){IF(A_l==0){A_maj({c+},A_mm)}IF(A_l>0){l(A_l)A_maj({c;},A_mm)}}; FUNCTION A_Db(A_l,A_mm){IF(A_l==0){A_maj({d-},A_mm)}IF(A_l>0){l(A_l)A_maj({d-},A_mm)}}; FUNCTION A_D (A_l,A_mm){IF(A_l==0){A_maj({d },A_mm)}IF(A_l>0){l(A_l)A_maj({d },A_mm)}}; FUNCTION A_Dp(A_l,A_mm){IF(A_l==0){A_maj({d+},A_mm)}IF(A_l>0){l(A_l)A_maj({d+},A_mm)}}; FUNCTION A_Eb(A_l,A_mm){IF(A_l==0){A_maj({e-},A_mm)}IF(A_l>0){l(A_l)A_maj({e-},A_mm)}}; FUNCTION A_E (A_l,A_mm){IF(A_l==0){A_maj({e },A_mm)}IF(A_l>0){l(A_l)A_maj({e },A_mm)}}; FUNCTION A_F (A_l,A_mm){IF(A_l==0){A_maj({f },A_mm)}IF(A_l>0){l(A_l)A_maj({f },A_mm)}}; FUNCTION A_Fp(A_l,A_mm){IF(A_l==0){A_maj({f+},A_mm)}IF(A_l>0){l(A_l)A_maj({f+},A_mm)}}; FUNCTION A_Gb(A_l,A_mm){IF(A_l==0){A_maj({g-},A_mm)}IF(A_l>0){l(A_l)A_maj({g-},A_mm)}}; FUNCTION A_G (A_l,A_mm){IF(A_l==0){A_maj({g },A_mm)}IF(A_l>0){l(A_l)A_maj({g },A_mm)}}; FUNCTION A_Gp(A_l,A_mm){IF(A_l==0){A_maj({g+},A_mm)}IF(A_l>0){l(A_l)A_maj({g+},A_mm)}}; FUNCTION A_Ab(A_l,A_mm){IF(A_l==0){A_maj({a-},A_mm)}IF(A_l>0){l(A_l)A_maj({a-},A_mm)}}; FUNCTION A_A (A_l,A_mm){IF(A_l==0){A_maj({a },A_mm)}IF(A_l>0){l(A_l)A_maj({a },A_mm)}}; FUNCTION A_Ap(A_l,A_mm){IF(A_l==0){A_maj({a+},A_mm)}IF(A_l>0){l(A_l)A_maj({a+},A_mm)}}; FUNCTION A_Bb(A_l,A_mm){IF(A_l==0){A_maj({b-},A_mm)}IF(A_l>0){l(A_l)A_maj({b-},A_mm)}}; FUNCTION A_B (A_l,A_mm){IF(A_l==0){A_maj({b },A_mm)}IF(A_l>0){l(A_l)A_maj({b },A_mm)}}; //_マイナー・コード "piano" FUNCTION A_Cm (A_l,A_mm){IF(A_l==0){A_m({c },A_mm)}IF(A_l>0){l(A_l)A_m({c },A_mm)}}; FUNCTION A_Cpm(A_l,A_mm){IF(A_l==0){A_m({c+},A_mm)}IF(A_l>0){l(A_l)A_m({c;},A_mm)}}; FUNCTION A_Dbm(A_l,A_mm){IF(A_l==0){A_m({d-},A_mm)}IF(A_l>0){l(A_l)A_m({d-},A_mm)}}; FUNCTION A_Dm (A_l,A_mm){IF(A_l==0){A_m({d },A_mm)}IF(A_l>0){l(A_l)A_m({d },A_mm)}}; FUNCTION A_Dpm(A_l,A_mm){IF(A_l==0){A_m({d+},A_mm)}IF(A_l>0){l(A_l)A_m({d+},A_mm)}}; FUNCTION A_Ebm(A_l,A_mm){IF(A_l==0){A_m({e-},A_mm)}IF(A_l>0){l(A_l)A_m({e-},A_mm)}}; FUNCTION A_Em (A_l,A_mm){IF(A_l==0){A_m({e },A_mm)}IF(A_l>0){l(A_l)A_m({e },A_mm)}}; FUNCTION A_Fm (A_l,A_mm){IF(A_l==0){A_m({f },A_mm)}IF(A_l>0){l(A_l)A_m({f },A_mm)}}; FUNCTION A_Fpm(A_l,A_mm){IF(A_l==0){A_m({f+},A_mm)}IF(A_l>0){l(A_l)A_m({f+},A_mm)}}; FUNCTION A_Gbm(A_l,A_mm){IF(A_l==0){A_m({g-},A_mm)}IF(A_l>0){l(A_l)A_m({g-},A_mm)}}; FUNCTION A_Gm (A_l,A_mm){IF(A_l==0){A_m({g },A_mm)}IF(A_l>0){l(A_l)A_m({g },A_mm)}}; FUNCTION A_Gpm(A_l,A_mm){IF(A_l==0){A_m({g+},A_mm)}IF(A_l>0){l(A_l)A_m({g+},A_mm)}}; FUNCTION A_Abm(A_l,A_mm){IF(A_l==0){A_m({a-},A_mm)}IF(A_l>0){l(A_l)A_m({a-},A_mm)}}; FUNCTION A_Am (A_l,A_mm){IF(A_l==0){A_m({a },A_mm)}IF(A_l>0){l(A_l)A_m({a },A_mm)}}; FUNCTION A_Apm(A_l,A_mm){IF(A_l==0){A_m({a+},A_mm)}IF(A_l>0){l(A_l)A_m({a+},A_mm)}}; FUNCTION A_Bbm(A_l,A_mm){IF(A_l==0){A_m({b-},A_mm)}IF(A_l>0){l(A_l)A_m({b-},A_mm)}}; FUNCTION A_Bm (A_l,A_mm){IF(A_l==0){A_m({b },A_mm)}IF(A_l>0){l(A_l)A_m({b },A_mm)}}; //_セブンス・コード "piano" FUNCTION A_C7 (A_l,A_mm){IF(A_l==0){A_7({c },A_mm)}IF(A_l>0){l(A_l)A_7({c },A_mm)}}; FUNCTION A_Cp7(A_l,A_mm){IF(A_l==0){A_7({c+},A_mm)}IF(A_l>0){l(A_l)A_7({c;},A_mm)}}; FUNCTION A_Db7(A_l,A_mm){IF(A_l==0){A_7({d-},A_mm)}IF(A_l>0){l(A_l)A_7({d-},A_mm)}}; FUNCTION A_D7 (A_l,A_mm){IF(A_l==0){A_7({d },A_mm)}IF(A_l>0){l(A_l)A_7({d },A_mm)}}; FUNCTION A_Dp7(A_l,A_mm){IF(A_l==0){A_7({d+},A_mm)}IF(A_l>0){l(A_l)A_7({d+},A_mm)}}; FUNCTION A_Eb7(A_l,A_mm){IF(A_l==0){A_7({e-},A_mm)}IF(A_l>0){l(A_l)A_7({e-},A_mm)}}; FUNCTION A_E7 (A_l,A_mm){IF(A_l==0){A_7({e },A_mm)}IF(A_l>0){l(A_l)A_7({e },A_mm)}}; FUNCTION A_F7 (A_l,A_mm){IF(A_l==0){A_7({f },A_mm)}IF(A_l>0){l(A_l)A_7({f },A_mm)}}; FUNCTION A_Fp7(A_l,A_mm){IF(A_l==0){A_7({f+},A_mm)}IF(A_l>0){l(A_l)A_7({f+},A_mm)}}; FUNCTION A_Gb7(A_l,A_mm){IF(A_l==0){A_7({g-},A_mm)}IF(A_l>0){l(A_l)A_7({g-},A_mm)}}; FUNCTION A_G7 (A_l,A_mm){IF(A_l==0){A_7({g },A_mm)}IF(A_l>0){l(A_l)A_7({g },A_mm)}}; FUNCTION A_Gp7(A_l,A_mm){IF(A_l==0){A_7({g+},A_mm)}IF(A_l>0){l(A_l)A_7({g+},A_mm)}}; FUNCTION A_Ab7(A_l,A_mm){IF(A_l==0){A_7({a-},A_mm)}IF(A_l>0){l(A_l)A_7({a-},A_mm)}}; FUNCTION A_A7 (A_l,A_mm){IF(A_l==0){A_7({a },A_mm)}IF(A_l>0){l(A_l)A_7({a },A_mm)}}; FUNCTION A_Ap7(A_l,A_mm){IF(A_l==0){A_7({a+},A_mm)}IF(A_l>0){l(A_l)A_7({a+},A_mm)}}; FUNCTION A_Bb7(A_l,A_mm){IF(A_l==0){A_7({b-},A_mm)}IF(A_l>0){l(A_l)A_7({b-},A_mm)}}; FUNCTION A_B7 (A_l,A_mm){IF(A_l==0){A_7({b },A_mm)}IF(A_l>0){l(A_l)A_7({b },A_mm)}}; //_メジャーセブン・コード "piano" FUNCTION A_CM7 (A_l,A_mm){IF(A_l==0){A_M7({c },A_mm)}IF(A_l>0){l(A_l)A_M7({c },A_mm)}}; FUNCTION A_CpM7(A_l,A_mm){IF(A_l==0){A_M7({c+},A_mm)}IF(A_l>0){l(A_l)A_M7({c;},A_mm)}}; FUNCTION A_DbM7(A_l,A_mm){IF(A_l==0){A_M7({d-},A_mm)}IF(A_l>0){l(A_l)A_M7({d-},A_mm)}}; FUNCTION A_DM7 (A_l,A_mm){IF(A_l==0){A_M7({d },A_mm)}IF(A_l>0){l(A_l)A_M7({d },A_mm)}}; FUNCTION A_DpM7(A_l,A_mm){IF(A_l==0){A_M7({d+},A_mm)}IF(A_l>0){l(A_l)A_M7({d+},A_mm)}}; FUNCTION A_EbM7(A_l,A_mm){IF(A_l==0){A_M7({e-},A_mm)}IF(A_l>0){l(A_l)A_M7({e-},A_mm)}}; FUNCTION A_EM7 (A_l,A_mm){IF(A_l==0){A_M7({e },A_mm)}IF(A_l>0){l(A_l)A_M7({e },A_mm)}}; FUNCTION A_FM7 (A_l,A_mm){IF(A_l==0){A_M7({f },A_mm)}IF(A_l>0){l(A_l)A_M7({f },A_mm)}}; FUNCTION A_FpM7(A_l,A_mm){IF(A_l==0){A_M7({f+},A_mm)}IF(A_l>0){l(A_l)A_M7({f+},A_mm)}}; FUNCTION A_GbM7(A_l,A_mm){IF(A_l==0){A_M7({g-},A_mm)}IF(A_l>0){l(A_l)A_M7({g-},A_mm)}}; FUNCTION A_GM7 (A_l,A_mm){IF(A_l==0){A_M7({g },A_mm)}IF(A_l>0){l(A_l)A_M7({g },A_mm)}}; FUNCTION A_GpM7(A_l,A_mm){IF(A_l==0){A_M7({g+},A_mm)}IF(A_l>0){l(A_l)A_M7({g+},A_mm)}}; FUNCTION A_AbM7(A_l,A_mm){IF(A_l==0){A_M7({a-},A_mm)}IF(A_l>0){l(A_l)A_M7({a-},A_mm)}}; FUNCTION A_AM7 (A_l,A_mm){IF(A_l==0){A_M7({a },A_mm)}IF(A_l>0){l(A_l)A_M7({a },A_mm)}}; FUNCTION A_ApM7(A_l,A_mm){IF(A_l==0){A_M7({a+},A_mm)}IF(A_l>0){l(A_l)A_M7({a+},A_mm)}}; FUNCTION A_BbM7(A_l,A_mm){IF(A_l==0){A_M7({b-},A_mm)}IF(A_l>0){l(A_l)A_M7({b-},A_mm)}}; FUNCTION A_BM7 (A_l,A_mm){IF(A_l==0){A_M7({b },A_mm)}IF(A_l>0){l(A_l)A_M7({b },A_mm)}}; //_マイナーセブン・コード "piano" FUNCTION A_Cm7 (A_l,A_mm){IF(A_l==0){A_m7({c },A_mm)}IF(A_l>0){l(A_l)A_m7({c },A_mm)}}; FUNCTION A_Cpm7(A_l,A_mm){IF(A_l==0){A_m7({c+},A_mm)}IF(A_l>0){l(A_l)A_m7({c;},A_mm)}}; FUNCTION A_Dbm7(A_l,A_mm){IF(A_l==0){A_m7({d-},A_mm)}IF(A_l>0){l(A_l)A_m7({d-},A_mm)}}; FUNCTION A_Dm7 (A_l,A_mm){IF(A_l==0){A_m7({d },A_mm)}IF(A_l>0){l(A_l)A_m7({d },A_mm)}}; FUNCTION A_Dpm7(A_l,A_mm){IF(A_l==0){A_m7({d+},A_mm)}IF(A_l>0){l(A_l)A_m7({d+},A_mm)}}; FUNCTION A_Ebm7(A_l,A_mm){IF(A_l==0){A_m7({e-},A_mm)}IF(A_l>0){l(A_l)A_m7({e-},A_mm)}}; FUNCTION A_Em7 (A_l,A_mm){IF(A_l==0){A_m7({e },A_mm)}IF(A_l>0){l(A_l)A_m7({e },A_mm)}}; FUNCTION A_Fm7 (A_l,A_mm){IF(A_l==0){A_m7({f },A_mm)}IF(A_l>0){l(A_l)A_m7({f },A_mm)}}; FUNCTION A_Fpm7(A_l,A_mm){IF(A_l==0){A_m7({f+},A_mm)}IF(A_l>0){l(A_l)A_m7({f+},A_mm)}}; FUNCTION A_Gbm7(A_l,A_mm){IF(A_l==0){A_m7({g-},A_mm)}IF(A_l>0){l(A_l)A_m7({g-},A_mm)}}; FUNCTION A_Gm7 (A_l,A_mm){IF(A_l==0){A_m7({g },A_mm)}IF(A_l>0){l(A_l)A_m7({g },A_mm)}}; FUNCTION A_Gpm7(A_l,A_mm){IF(A_l==0){A_m7({g+},A_mm)}IF(A_l>0){l(A_l)A_m7({g+},A_mm)}}; FUNCTION A_Abm7(A_l,A_mm){IF(A_l==0){A_m7({a-},A_mm)}IF(A_l>0){l(A_l)A_m7({a-},A_mm)}}; FUNCTION A_Am7 (A_l,A_mm){IF(A_l==0){A_m7({a },A_mm)}IF(A_l>0){l(A_l)A_m7({a },A_mm)}}; FUNCTION A_Apm7(A_l,A_mm){IF(A_l==0){A_m7({a+},A_mm)}IF(A_l>0){l(A_l)A_m7({a+},A_mm)}}; FUNCTION A_Bbm7(A_l,A_mm){IF(A_l==0){A_m7({b-},A_mm)}IF(A_l>0){l(A_l)A_m7({b-},A_mm)}}; FUNCTION A_Bm7 (A_l,A_mm){IF(A_l==0){A_m7({b },A_mm)}IF(A_l>0){l(A_l)A_m7({b },A_mm)}}; //_ディミニッシュ・コード "piano" FUNCTION A_Cdim (A_l,A_mm){IF(A_l==0){A_dim({c },A_mm)}IF(A_l>0){l(A_l)A_dim({c },A_mm)}}; FUNCTION A_Cpdim(A_l,A_mm){IF(A_l==0){A_dim({c+},A_mm)}IF(A_l>0){l(A_l)A_dim({c;},A_mm)}}; FUNCTION A_Dbdim(A_l,A_mm){IF(A_l==0){A_dim({d-},A_mm)}IF(A_l>0){l(A_l)A_dim({d-},A_mm)}}; FUNCTION A_Ddim (A_l,A_mm){IF(A_l==0){A_dim({d },A_mm)}IF(A_l>0){l(A_l)A_dim({d },A_mm)}}; FUNCTION A_Dpdim(A_l,A_mm){IF(A_l==0){A_dim({d+},A_mm)}IF(A_l>0){l(A_l)A_dim({d+},A_mm)}}; FUNCTION A_Ebdim(A_l,A_mm){IF(A_l==0){A_dim({e-},A_mm)}IF(A_l>0){l(A_l)A_dim({e-},A_mm)}}; FUNCTION A_Edim (A_l,A_mm){IF(A_l==0){A_dim({e },A_mm)}IF(A_l>0){l(A_l)A_dim({e },A_mm)}}; FUNCTION A_Fdim (A_l,A_mm){IF(A_l==0){A_dim({f },A_mm)}IF(A_l>0){l(A_l)A_dim({f },A_mm)}}; FUNCTION A_Fpdim(A_l,A_mm){IF(A_l==0){A_dim({f+},A_mm)}IF(A_l>0){l(A_l)A_dim({f+},A_mm)}}; FUNCTION A_Gbdim(A_l,A_mm){IF(A_l==0){A_dim({g-},A_mm)}IF(A_l>0){l(A_l)A_dim({g-},A_mm)}}; FUNCTION A_Gdim (A_l,A_mm){IF(A_l==0){A_dim({g },A_mm)}IF(A_l>0){l(A_l)A_dim({g },A_mm)}}; FUNCTION A_Gpdim(A_l,A_mm){IF(A_l==0){A_dim({g+},A_mm)}IF(A_l>0){l(A_l)A_dim({g+},A_mm)}}; FUNCTION A_Abdim(A_l,A_mm){IF(A_l==0){A_dim({a-},A_mm)}IF(A_l>0){l(A_l)A_dim({a-},A_mm)}}; FUNCTION A_Adim (A_l,A_mm){IF(A_l==0){A_dim({a },A_mm)}IF(A_l>0){l(A_l)A_dim({a },A_mm)}}; FUNCTION A_Apdim(A_l,A_mm){IF(A_l==0){A_dim({a+},A_mm)}IF(A_l>0){l(A_l)A_dim({a+},A_mm)}}; FUNCTION A_Bbdim(A_l,A_mm){IF(A_l==0){A_dim({b-},A_mm)}IF(A_l>0){l(A_l)A_dim({b-},A_mm)}}; FUNCTION A_Bdim (A_l,A_mm){IF(A_l==0){A_dim({b },A_mm)}IF(A_l>0){l(A_l)A_dim({b },A_mm)}}; //_マイナーセブンフラット・コード "piano" FUNCTION A_Cm7b5 (A_l,A_mm){IF(A_l==0){A_m7b5({c },A_mm)}IF(A_l>0){l(A_l)A_m7b5({c },A_mm)}}; FUNCTION A_Cpm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({c+},A_mm)}IF(A_l>0){l(A_l)A_m7b5({c;},A_mm)}}; FUNCTION A_Dbm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({d-},A_mm)}IF(A_l>0){l(A_l)A_m7b5({d-},A_mm)}}; FUNCTION A_Dm7b5 (A_l,A_mm){IF(A_l==0){A_m7b5({d },A_mm)}IF(A_l>0){l(A_l)A_m7b5({d },A_mm)}}; FUNCTION A_Dpm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({d+},A_mm)}IF(A_l>0){l(A_l)A_m7b5({d+},A_mm)}}; FUNCTION A_Ebm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({e-},A_mm)}IF(A_l>0){l(A_l)A_m7b5({e-},A_mm)}}; FUNCTION A_Em7b5 (A_l,A_mm){IF(A_l==0){A_m7b5({e },A_mm)}IF(A_l>0){l(A_l)A_m7b5({e },A_mm)}}; FUNCTION A_Fm7b5 (A_l,A_mm){IF(A_l==0){A_m7b5({f },A_mm)}IF(A_l>0){l(A_l)A_m7b5({f },A_mm)}}; FUNCTION A_Fpm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({f+},A_mm)}IF(A_l>0){l(A_l)A_m7b5({f+},A_mm)}}; FUNCTION A_Gbm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({g-},A_mm)}IF(A_l>0){l(A_l)A_m7b5({g-},A_mm)}}; FUNCTION A_Gm7b5 (A_l,A_mm){IF(A_l==0){A_m7b5({g },A_mm)}IF(A_l>0){l(A_l)A_m7b5({g },A_mm)}}; FUNCTION A_Gpm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({g+},A_mm)}IF(A_l>0){l(A_l)A_m7b5({g+},A_mm)}}; FUNCTION A_Abm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({a-},A_mm)}IF(A_l>0){l(A_l)A_m7b5({a-},A_mm)}}; FUNCTION A_Am7b5 (A_l,A_mm){IF(A_l==0){A_m7b5({a },A_mm)}IF(A_l>0){l(A_l)A_m7b5({a },A_mm)}}; FUNCTION A_Apm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({a+},A_mm)}IF(A_l>0){l(A_l)A_m7b5({a+},A_mm)}}; FUNCTION A_Bbm7b5(A_l,A_mm){IF(A_l==0){A_m7b5({b-},A_mm)}IF(A_l>0){l(A_l)A_m7b5({b-},A_mm)}}; FUNCTION A_Bm7b5 (A_l,A_mm){IF(A_l==0){A_m7b5({b },A_mm)}IF(A_l>0){l(A_l)A_m7b5({b },A_mm)}}; //_オーギュメント・コード "piano" FUNCTION A_Caug (A_l,A_mm){IF(A_l==0){A_aug({c },A_mm)}IF(A_l>0){l(A_l)A_aug({c },A_mm)}}; FUNCTION A_Cpaug(A_l,A_mm){IF(A_l==0){A_aug({c+},A_mm)}IF(A_l>0){l(A_l)A_aug({c;},A_mm)}}; FUNCTION A_Dbaug(A_l,A_mm){IF(A_l==0){A_aug({d-},A_mm)}IF(A_l>0){l(A_l)A_aug({d-},A_mm)}}; FUNCTION A_Daug (A_l,A_mm){IF(A_l==0){A_aug({d },A_mm)}IF(A_l>0){l(A_l)A_aug({d },A_mm)}}; FUNCTION A_Dpaug(A_l,A_mm){IF(A_l==0){A_aug({d+},A_mm)}IF(A_l>0){l(A_l)A_aug({d+},A_mm)}}; FUNCTION A_Ebaug(A_l,A_mm){IF(A_l==0){A_aug({e-},A_mm)}IF(A_l>0){l(A_l)A_aug({e-},A_mm)}}; FUNCTION A_Eaug (A_l,A_mm){IF(A_l==0){A_aug({e },A_mm)}IF(A_l>0){l(A_l)A_aug({e },A_mm)}}; FUNCTION A_Faug (A_l,A_mm){IF(A_l==0){A_aug({f },A_mm)}IF(A_l>0){l(A_l)A_aug({f },A_mm)}}; FUNCTION A_Fpaug(A_l,A_mm){IF(A_l==0){A_aug({f+},A_mm)}IF(A_l>0){l(A_l)A_aug({f+},A_mm)}}; FUNCTION A_Gbaug(A_l,A_mm){IF(A_l==0){A_aug({g-},A_mm)}IF(A_l>0){l(A_l)A_aug({g-},A_mm)}}; FUNCTION A_Gaug (A_l,A_mm){IF(A_l==0){A_aug({g },A_mm)}IF(A_l>0){l(A_l)A_aug({g },A_mm)}}; FUNCTION A_Gpaug(A_l,A_mm){IF(A_l==0){A_aug({g+},A_mm)}IF(A_l>0){l(A_l)A_aug({g+},A_mm)}}; FUNCTION A_Abaug(A_l,A_mm){IF(A_l==0){A_aug({a-},A_mm)}IF(A_l>0){l(A_l)A_aug({a-},A_mm)}}; FUNCTION A_Aaug (A_l,A_mm){IF(A_l==0){A_aug({a },A_mm)}IF(A_l>0){l(A_l)A_aug({a },A_mm)}}; FUNCTION A_Apaug(A_l,A_mm){IF(A_l==0){A_aug({a+},A_mm)}IF(A_l>0){l(A_l)A_aug({a+},A_mm)}}; FUNCTION A_Bbaug(A_l,A_mm){IF(A_l==0){A_aug({b-},A_mm)}IF(A_l>0){l(A_l)A_aug({b-},A_mm)}}; FUNCTION A_Baug (A_l,A_mm){IF(A_l==0){A_aug({b },A_mm)}IF(A_l>0){l(A_l)A_aug({b },A_mm)}}; //_サスペンデットフォース・コード "piano" FUNCTION A_Csus4 (A_l,A_mm){IF(A_l==0){A_sus4({c },A_mm)}IF(A_l>0){l(A_l)A_sus4({c },A_mm)}}; FUNCTION A_Cpsus4(A_l,A_mm){IF(A_l==0){A_sus4({c+},A_mm)}IF(A_l>0){l(A_l)A_sus4({c;},A_mm)}}; FUNCTION A_Dbsus4(A_l,A_mm){IF(A_l==0){A_sus4({d-},A_mm)}IF(A_l>0){l(A_l)A_sus4({d-},A_mm)}}; FUNCTION A_Dsus4 (A_l,A_mm){IF(A_l==0){A_sus4({d },A_mm)}IF(A_l>0){l(A_l)A_sus4({d },A_mm)}}; FUNCTION A_Dpsus4(A_l,A_mm){IF(A_l==0){A_sus4({d+},A_mm)}IF(A_l>0){l(A_l)A_sus4({d+},A_mm)}}; FUNCTION A_Ebsus4(A_l,A_mm){IF(A_l==0){A_sus4({e-},A_mm)}IF(A_l>0){l(A_l)A_sus4({e-},A_mm)}}; FUNCTION A_Esus4 (A_l,A_mm){IF(A_l==0){A_sus4({e },A_mm)}IF(A_l>0){l(A_l)A_sus4({e },A_mm)}}; FUNCTION A_Fsus4 (A_l,A_mm){IF(A_l==0){A_sus4({f },A_mm)}IF(A_l>0){l(A_l)A_sus4({f },A_mm)}}; FUNCTION A_Fpsus4(A_l,A_mm){IF(A_l==0){A_sus4({f+},A_mm)}IF(A_l>0){l(A_l)A_sus4({f+},A_mm)}}; FUNCTION A_Gbsus4(A_l,A_mm){IF(A_l==0){A_sus4({g-},A_mm)}IF(A_l>0){l(A_l)A_sus4({g-},A_mm)}}; FUNCTION A_Gsus4 (A_l,A_mm){IF(A_l==0){A_sus4({g },A_mm)}IF(A_l>0){l(A_l)A_sus4({g },A_mm)}}; FUNCTION A_Gpsus4(A_l,A_mm){IF(A_l==0){A_sus4({g+},A_mm)}IF(A_l>0){l(A_l)A_sus4({g+},A_mm)}}; FUNCTION A_Absus4(A_l,A_mm){IF(A_l==0){A_sus4({a-},A_mm)}IF(A_l>0){l(A_l)A_sus4({a-},A_mm)}}; FUNCTION A_Asus4 (A_l,A_mm){IF(A_l==0){A_sus4({a },A_mm)}IF(A_l>0){l(A_l)A_sus4({a },A_mm)}}; FUNCTION A_Apsus4(A_l,A_mm){IF(A_l==0){A_sus4({a+},A_mm)}IF(A_l>0){l(A_l)A_sus4({a+},A_mm)}}; FUNCTION A_Bbsus4(A_l,A_mm){IF(A_l==0){A_sus4({b-},A_mm)}IF(A_l>0){l(A_l)A_sus4({b-},A_mm)}}; FUNCTION A_Bsus4 (A_l,A_mm){IF(A_l==0){A_sus4({b },A_mm)}IF(A_l>0){l(A_l)A_sus4({b },A_mm)}}; //_セブンサスペンデットフォース・コード "piano" FUNCTION A_C7sus4 (A_l,A_mm){IF(A_l==0){A_7sus4({c },A_mm)}IF(A_l>0){l(A_l)A_7sus4({c },A_mm)}}; FUNCTION A_Cp7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({c+},A_mm)}IF(A_l>0){l(A_l)A_7sus4({c;},A_mm)}}; FUNCTION A_Db7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({d-},A_mm)}IF(A_l>0){l(A_l)A_7sus4({d-},A_mm)}}; FUNCTION A_D7sus4 (A_l,A_mm){IF(A_l==0){A_7sus4({d },A_mm)}IF(A_l>0){l(A_l)A_7sus4({d },A_mm)}}; FUNCTION A_Dp7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({d+},A_mm)}IF(A_l>0){l(A_l)A_7sus4({d+},A_mm)}}; FUNCTION A_Eb7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({e-},A_mm)}IF(A_l>0){l(A_l)A_7sus4({e-},A_mm)}}; FUNCTION A_E7sus4 (A_l,A_mm){IF(A_l==0){A_7sus4({e },A_mm)}IF(A_l>0){l(A_l)A_7sus4({e },A_mm)}}; FUNCTION A_F7sus4 (A_l,A_mm){IF(A_l==0){A_7sus4({f },A_mm)}IF(A_l>0){l(A_l)A_7sus4({f },A_mm)}}; FUNCTION A_Fp7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({f+},A_mm)}IF(A_l>0){l(A_l)A_7sus4({f+},A_mm)}}; FUNCTION A_Gb7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({g-},A_mm)}IF(A_l>0){l(A_l)A_7sus4({g-},A_mm)}}; FUNCTION A_G7sus4 (A_l,A_mm){IF(A_l==0){A_7sus4({g },A_mm)}IF(A_l>0){l(A_l)A_7sus4({g },A_mm)}}; FUNCTION A_Gp7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({g+},A_mm)}IF(A_l>0){l(A_l)A_7sus4({g+},A_mm)}}; FUNCTION A_Ab7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({a-},A_mm)}IF(A_l>0){l(A_l)A_7sus4({a-},A_mm)}}; FUNCTION A_A7sus4 (A_l,A_mm){IF(A_l==0){A_7sus4({a },A_mm)}IF(A_l>0){l(A_l)A_7sus4({a },A_mm)}}; FUNCTION A_Ap7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({a+},A_mm)}IF(A_l>0){l(A_l)A_7sus4({a+},A_mm)}}; FUNCTION A_Bb7sus4(A_l,A_mm){IF(A_l==0){A_7sus4({b-},A_mm)}IF(A_l>0){l(A_l)A_7sus4({b-},A_mm)}}; FUNCTION A_B7sus4 (A_l,A_mm){IF(A_l==0){A_7sus4({b },A_mm)}IF(A_l>0){l(A_l)A_7sus4({b },A_mm)}}; //_シックス・コード "piano" FUNCTION A_C6 (A_l,A_mm){IF(A_l==0){A_6({c },A_mm)}IF(A_l>0){l(A_l)A_6({c },A_mm)}}; FUNCTION A_Cp6(A_l,A_mm){IF(A_l==0){A_6({c+},A_mm)}IF(A_l>0){l(A_l)A_6({c;},A_mm)}}; FUNCTION A_Db6(A_l,A_mm){IF(A_l==0){A_6({d-},A_mm)}IF(A_l>0){l(A_l)A_6({d-},A_mm)}}; FUNCTION A_D6 (A_l,A_mm){IF(A_l==0){A_6({d },A_mm)}IF(A_l>0){l(A_l)A_6({d },A_mm)}}; FUNCTION A_Dp6(A_l,A_mm){IF(A_l==0){A_6({d+},A_mm)}IF(A_l>0){l(A_l)A_6({d+},A_mm)}}; FUNCTION A_Eb6(A_l,A_mm){IF(A_l==0){A_6({e-},A_mm)}IF(A_l>0){l(A_l)A_6({e-},A_mm)}}; FUNCTION A_E6 (A_l,A_mm){IF(A_l==0){A_6({e },A_mm)}IF(A_l>0){l(A_l)A_6({e },A_mm)}}; FUNCTION A_F6 (A_l,A_mm){IF(A_l==0){A_6({f },A_mm)}IF(A_l>0){l(A_l)A_6({f },A_mm)}}; FUNCTION A_Fp6(A_l,A_mm){IF(A_l==0){A_6({f+},A_mm)}IF(A_l>0){l(A_l)A_6({f+},A_mm)}}; FUNCTION A_Gb6(A_l,A_mm){IF(A_l==0){A_6({g-},A_mm)}IF(A_l>0){l(A_l)A_6({g-},A_mm)}}; FUNCTION A_G6 (A_l,A_mm){IF(A_l==0){A_6({g },A_mm)}IF(A_l>0){l(A_l)A_6({g },A_mm)}}; FUNCTION A_Gp6(A_l,A_mm){IF(A_l==0){A_6({g+},A_mm)}IF(A_l>0){l(A_l)A_6({g+},A_mm)}}; FUNCTION A_Ab6(A_l,A_mm){IF(A_l==0){A_6({a-},A_mm)}IF(A_l>0){l(A_l)A_6({a-},A_mm)}}; FUNCTION A_A6 (A_l,A_mm){IF(A_l==0){A_6({a },A_mm)}IF(A_l>0){l(A_l)A_6({a },A_mm)}}; FUNCTION A_Ap6(A_l,A_mm){IF(A_l==0){A_6({a+},A_mm)}IF(A_l>0){l(A_l)A_6({a+},A_mm)}}; FUNCTION A_Bb6(A_l,A_mm){IF(A_l==0){A_6({b-},A_mm)}IF(A_l>0){l(A_l)A_6({b-},A_mm)}}; FUNCTION A_B6 (A_l,A_mm){IF(A_l==0){A_6({b },A_mm)}IF(A_l>0){l(A_l)A_6({b },A_mm)}}; //_アドナイン・コード "piano" FUNCTION A_Cadd9 (A_l,A_mm){IF(A_l==0){A_add9({c },A_mm)}IF(A_l>0){l(A_l)A_add9({c },A_mm)}}; FUNCTION A_Cpadd9(A_l,A_mm){IF(A_l==0){A_add9({c+},A_mm)}IF(A_l>0){l(A_l)A_add9({c;},A_mm)}}; FUNCTION A_Dbadd9(A_l,A_mm){IF(A_l==0){A_add9({d-},A_mm)}IF(A_l>0){l(A_l)A_add9({d-},A_mm)}}; FUNCTION A_Dadd9 (A_l,A_mm){IF(A_l==0){A_add9({d },A_mm)}IF(A_l>0){l(A_l)A_add9({d },A_mm)}}; FUNCTION A_Dpadd9(A_l,A_mm){IF(A_l==0){A_add9({d+},A_mm)}IF(A_l>0){l(A_l)A_add9({d+},A_mm)}}; FUNCTION A_Ebadd9(A_l,A_mm){IF(A_l==0){A_add9({e-},A_mm)}IF(A_l>0){l(A_l)A_add9({e-},A_mm)}}; FUNCTION A_Eadd9 (A_l,A_mm){IF(A_l==0){A_add9({e },A_mm)}IF(A_l>0){l(A_l)A_add9({e },A_mm)}}; FUNCTION A_Fadd9 (A_l,A_mm){IF(A_l==0){A_add9({f },A_mm)}IF(A_l>0){l(A_l)A_add9({f },A_mm)}}; FUNCTION A_Fpadd9(A_l,A_mm){IF(A_l==0){A_add9({f+},A_mm)}IF(A_l>0){l(A_l)A_add9({f+},A_mm)}}; FUNCTION A_Gbadd9(A_l,A_mm){IF(A_l==0){A_add9({g-},A_mm)}IF(A_l>0){l(A_l)A_add9({g-},A_mm)}}; FUNCTION A_Gadd9 (A_l,A_mm){IF(A_l==0){A_add9({g },A_mm)}IF(A_l>0){l(A_l)A_add9({g },A_mm)}}; FUNCTION A_Gpadd9(A_l,A_mm){IF(A_l==0){A_add9({g+},A_mm)}IF(A_l>0){l(A_l)A_add9({g+},A_mm)}}; FUNCTION A_Abadd9(A_l,A_mm){IF(A_l==0){A_add9({a-},A_mm)}IF(A_l>0){l(A_l)A_add9({a-},A_mm)}}; FUNCTION A_Aadd9 (A_l,A_mm){IF(A_l==0){A_add9({a },A_mm)}IF(A_l>0){l(A_l)A_add9({a },A_mm)}}; FUNCTION A_Apadd9(A_l,A_mm){IF(A_l==0){A_add9({a+},A_mm)}IF(A_l>0){l(A_l)A_add9({a+},A_mm)}}; FUNCTION A_Bbadd9(A_l,A_mm){IF(A_l==0){A_add9({b-},A_mm)}IF(A_l>0){l(A_l)A_add9({b-},A_mm)}}; FUNCTION A_Badd9 (A_l,A_mm){IF(A_l==0){A_maj({b },A_mm)}IF(A_l>0){l(A_l)A_maj({b },A_mm)}}; //_マイナーシックス・コード "piano" FUNCTION A_Cm6 (A_l,A_mm){IF(A_l==0){A_m6({c },A_mm)}IF(A_l>0){l(A_l)A_m6({c },A_mm)}}; FUNCTION A_Cpm6(A_l,A_mm){IF(A_l==0){A_m6({c+},A_mm)}IF(A_l>0){l(A_l)A_m6({c;},A_mm)}}; FUNCTION A_Dbm6(A_l,A_mm){IF(A_l==0){A_m6({d-},A_mm)}IF(A_l>0){l(A_l)A_m6({d-},A_mm)}}; FUNCTION A_Dm6 (A_l,A_mm){IF(A_l==0){A_m6({d },A_mm)}IF(A_l>0){l(A_l)A_m6({d },A_mm)}}; FUNCTION A_Dpm6(A_l,A_mm){IF(A_l==0){A_m6({d+},A_mm)}IF(A_l>0){l(A_l)A_m6({d+},A_mm)}}; FUNCTION A_Ebm6(A_l,A_mm){IF(A_l==0){A_m6({e-},A_mm)}IF(A_l>0){l(A_l)A_m6({e-},A_mm)}}; FUNCTION A_Em6 (A_l,A_mm){IF(A_l==0){A_m6({e },A_mm)}IF(A_l>0){l(A_l)A_m6({e },A_mm)}}; FUNCTION A_Fm6 (A_l,A_mm){IF(A_l==0){A_m6({f },A_mm)}IF(A_l>0){l(A_l)A_m6({f },A_mm)}}; FUNCTION A_Fpm6(A_l,A_mm){IF(A_l==0){A_m6({f+},A_mm)}IF(A_l>0){l(A_l)A_m6({f+},A_mm)}}; FUNCTION A_Gbm6(A_l,A_mm){IF(A_l==0){A_m6({g-},A_mm)}IF(A_l>0){l(A_l)A_m6({g-},A_mm)}}; FUNCTION A_Gm6 (A_l,A_mm){IF(A_l==0){A_m6({g },A_mm)}IF(A_l>0){l(A_l)A_m6({g },A_mm)}}; FUNCTION A_Gpm6(A_l,A_mm){IF(A_l==0){A_m6({g+},A_mm)}IF(A_l>0){l(A_l)A_m6({g+},A_mm)}}; FUNCTION A_Abm6(A_l,A_mm){IF(A_l==0){A_m6({a-},A_mm)}IF(A_l>0){l(A_l)A_m6({a-},A_mm)}}; FUNCTION A_Am6 (A_l,A_mm){IF(A_l==0){A_m6({a },A_mm)}IF(A_l>0){l(A_l)A_m6({a },A_mm)}}; FUNCTION A_Apm6(A_l,A_mm){IF(A_l==0){A_m6({a+},A_mm)}IF(A_l>0){l(A_l)A_m6({a+},A_mm)}}; FUNCTION A_Bbm6(A_l,A_mm){IF(A_l==0){A_m6({b-},A_mm)}IF(A_l>0){l(A_l)A_m6({b-},A_mm)}}; FUNCTION A_Bm6 (A_l,A_mm){IF(A_l==0){A_m6({b },A_mm)}IF(A_l>0){l(A_l)A_m6({b },A_mm)}}; //------------------------------------------------------------------------------ //_その他の関数・変数等 FUNCTION Oc_U(STR UNISON){Key(MML(Key)+12);Sub{UNISON};Key(MML(Key)-12);UNISON;} FUNCTION T_N(t_N1){t.N(0*t_N1,2*t_N1,4*t_N1,6*t_N1);}; STR YON={EP.W(100,127,!2.)}; //------------------------------------------------------------------------------ Include(gs.h); //------------------------------------------------------------------------------ TimeSignature=3,4; //拍子記号の設定 Tempo(160); //テンポの設定 System.MeasureShift = 1; //(弄らないこと) ResetGM; r4. ResetGS; r4. //音源初期化命令 TrackSync; //全てのトラックを同期する //------------------------------------------------------------------------------ Track 1 V.W(115,127,!2.);REV(127);CHO(100); Track 2 V.W(100,120,!2.);v120; REV(120);M.W(10,40,!2.); Track 3 V.W(115,125,!2.);REV.W(80,100,!2.);CHO(70);v110;M.W(0,20,!2.); Track 4 V.W(112,117,!2.);REV(120);CHO(100);v110;M.W(20,50,!2.); Track 5 REV.W(80,100,!2.);CHO.W(100,120,!2.);M.W(10,50,!2.); Track 6 REV.W(80,100,!2.);CHO.W(100,120,!2.);M.W(10,50,!2.); Track 7 REV.W(80,100,!2.);CHO.W(100,120,!2.);M.W(10,50,!2.); Track 8 REV.W(80,100,!2.);CHO.W(100,120,!2.);M.W(10,50,!2.); Track 9 REV.W(80,100,!2.);CHO(70);M.W(0,20,!2.); Track 10 REV(80); //------------------------------------------------------------------------------ Track 1 @3,1 o4;q100; P(P_Piano);Key(ALL_KEY); T_N(2);l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l4.;A_F;A_G;T_N(4);l2.+2;A_Am7(,-2);r4 T_N(2); l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_F;l2;A_G7;l4;A_G7; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_F;l2;A_G;l4;A_G; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_F;l2;A_G7;l4;A_G7; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_G;l2;A_C(,2);l4;A_C(,2); T_N(3); l2;A_F;l4;[4A_F];l2;A_G;l4;[4A_G];l2;A_C(,2);l4;A_C(,2);l2;A_E7;l4;A_E7; l2;A_Am;l4;[4A_Am];l2;A_F;l4;[4A_F];l2;A_G;l4;[4A_G]; l2;A_E7;l4;[4A_E7];V.T(110,127,!1.);l2;A_G;l4;A_G;l2.;A_G7; @21;V.W(110,120,!2.);T_N(3);Key(ALL_KEY+3);v100; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_F;l2;A_G;l4;A_G7; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l4.;A_F;l4.;A_G;l2;A_C(,2);l4;A_C7(,1);TimeSignature=2,4;[A_C7(,1)]; TimeSignature=3,4;l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_F;l2;A_G;l4;A_G7; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l4.;A_F;l4.;A_G;l2.;A_C(,1); T_N(3);Key(ALL_KEY+4); l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_F;l2;A_G;l4;A_G7; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l4.;A_F;l4.;A_G;l2;A_C(,2);l4;A_C7(,1);TimeSignature=2,4;[A_C7(,1)]; TimeSignature=3,4;l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l2;A_F;l4;A_F;l2;A_G;l4;A_G7; l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em;l4.;A_F;l4.;A_G;l2.;A_C(,1); TempoChange(100,90,!1.);T_N(3);l2;A_Am;l4;A_Am;l2;A_Em;l4;A_Em; TempoChange(90,60,!1.);l4.;A_F;l4.;A_G;l2.;T_N(5);V.T(110,70,!2.);A_C(,1); //------------------------------------------------------------------------------ Track 2 @23 Key(ALL_KEY) q100 ;P(V_B); //吸音=a b d f ブルースハープなので'ea'のBENDは、ほとんどありえないのですが許してくださいw STR BEND={p%.T(0,-8192,!16,-8192,0,!16)}; l4;BEND;a2ag2e;BEND;f.er8;BEND;'ea'2.+2 //------------------------------------------------------------------------------ Track 3 P(V_B); @74 Key(ALL_KEY) q90; STR BEND_32={p%.T(0,-8192,!32,-8192,0,!32)}; Time(5:1:0);l8;r2; fga2aag2e4f2g4d2fga2gag2e4f2gag2fga2aag2e4f2g4d2fga2gab2g4a2b4`c2b`c l4;`c2`c8&`d8`cbag2f8&g8g2dg2ga-fec2rcdef2rfed d2cd2d8e8g+2g+ab`cb2b;v115;V(120);`c2;v127;V(127);`d V.W(115.125,!2.);v110;o6; BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cc8dd8d+2r2d BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cd8d+f8d+2. Key(ALL_KEY+1); BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cc8dd8d+2r2d BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cd8d+f8d+2. BEND_32;V.T(110,50,!2.^2.);d+2.^2. //------------------------------------------------------------------------------ Track 4 P(Co); Key(ALL_KEY);@42;q100;Time(22:1:0); a2aagfd2dd2"bc2cd2de2.fedc2cc2c"b2."a"bc"b"g+"bd"bdd2e;v.T(110,127,!2.);f2. //------------------------------------------------------------------------------ Track 5 @41 P(V_lin);o6;V(65);YON;Key(ALL_KEY); l2.;q100;cec4.d4.e2.+2r4cecdcecdcecdcec2d4c c1.d1.c"a-"a1.c1.d1."a-1.V.T(65,110,!1.)v127;d1.;V(70); Key(ALL_KEY+3); cecdcec4.d4.c2.+2cecdcec4.d4.c2. Key(ALL_KEY+4); cecdcec4.d4.c2.+2cecdcec4.d4.V.T(110,65,!2.);c2. //------------------------------------------------------------------------------ Track 6 @42 P(V_ola);o5;V(75);YON;Key(ALL_KEY);l2.;q100; aga4.b4.g2.+2r4agabagabagabaga2b4e [7r1.]rV.T(75,115,!2.)v127;f;V(80); Key(ALL_KEY+3); agabaga4.b4.e2.+2agabaga4.b4.e2. Key(ALL_KEY+4); agabaga4.b4.e2.+2agabaga4.b4.V.T(115,75,!2.);e2. //------------------------------------------------------------------------------ Track 7 @43 P(C_llo);o4;V(85);YON;Key(ALL_KEY);l2.;q100; abf4.g4.`c2.+2r4abfgabfgabfgabf2g4g f1.g1.gbe1.f1.g1.b1.;V.T(85,120,!1.)v127;g1.;V(90); Key(ALL_KEY+3); abfgabf4.g4.g2.+2abfgabf4.g4.g2. Key(ALL_KEY+4); abfgabf4.g4.g2.+2abfgabf4.g4.V.T(120,85,!2.);g2. //------------------------------------------------------------------------------ Track 8 @44 P(C_bass);o4;V(95);YON;Key(ALL_KEY);l2.;q100; cec4.d4.a2.+2r4cecfcecd cecfcec2d4ca1.b1.e`d`c1. a1.b1.`d1.;V.T(95,125,!1.)v127;b1.;V(100); Key(ALL_KEY+3); cecd2f4cecc2a+cecd2f4cecc2. Key(ALL_KEY+4); cecd2f4cecc2a+cecd2f4cecV.T(125,95,!2.);c2. //------------------------------------------------------------------------------ Track 9 @73 q90;P(Vo2);Time(37:1:0);Key(ALL_KEY);o8; v.T(70,77,!2.);V.T(115,127,!2.);c2;dV.W(115,125,!2.); BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cc8dd8d+2r2d BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cd8d+f8d+2. Key(ALL_KEY+1) BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cc8dd8d+2r2d BEND;d+2d+d2"a+cdd+;BEND;fd+dd+2d+d2"a+cd8d+f8d+2. BEND_32;V.T(110,50,!2.^2.);d+2.^2. //------------------------------------------------------------------------------ Track 10 P(D_DRUM); $b{n36,};$s{n40,};$h{n42,};$m{n46,};$c{n49,};$R{n51,};$C{n57,} STR PART1_1={Rythm{hhrhhrr2.r2.+2r}};STR PART2_1={Rythm{ssrssrsr8sr8r2.+2r}}; STR PART3_1={Rythm{rrr8b8rrr8b8rb8rb8r2.+2r}};STR PART4_1={Rythm{rrmrrmc4.c4.'cC'2.+2r}}; STR PART1_2={Rythm{[14hhr]r2.hhh}};STR PART2_2={Rythm{[14sr8sr8][s8r8r8]ssr}}; STR PART3_2={Rythm{[14rbr8b8][r8b8r8]rrr8b8}};STR PART4_2={Rythm{[7rrm]rrc[6rrm][rc8]c2.}}; STR PART1_3={Rythm{[hhhhhr][hhr][4hhhhhr]hhh(V.T(90,127,!2.))r2.}}; STR PART2_3={Rythm{[4sr8s8s][s[4s8]][8sr8s8s]s2r8s8(v.T(90,127,!2.))s2[4s16]}}; STR PART3_3={Rythm{[4r2r8b8][r[r8b8]][8r2r8b8]r2b8r8(v.T(90,127,!2.))r8b8rr8b8}}; STR PART4_3={Rythm{[rrrrrm][rrc][4rrrrrm]m2.(v.T(90,127,!2.))c2.}}; STR PART1_4={Rythm{[[6r8h8rr8h8]r2.r8h8r:r8h8[r8h8]]r}};STR PART2_4={Rythm{[[6s[s8]s]rs8rs8s[s8]:s[r8s8]]r8s8}}; STR PART3_4={Rythm{[[6r8b8r8b8r8b8]br8br8 r8b8r8b8:r8b8[b8b8]]b8r8}};STR PART4_4={Rythm{[['Cc'rm8r8:[m2m]m2c]m2mc4.C4.'cC'2:m2.]c}}; STR PART1_5={Rythm{[[6r8h8rr8h8]r2.r8h8r:r8h8[r8h8]]}};STR PART2_5={Rythm{[[6s[s8]s]rs8rs8s[s8]:s[r8s8]]r8s8}}; STR PART3_5={Rythm{[[6r8b8r8b8r8b8]br8br8 r8b8r8b8:r8b8[b8b8]b]}};STR PART4_5={Rythm{[['Cc'rm8r8:[m2m]m2c]m2mc4.C4.'cC'2:m2.]c(V.T(110,60,!1.))'cCRm'1.}}; @19;Key(0);V(90);q100; Sub{v110;PART1_1;PART1_2;PART1_3;v110;V(110);PART1_4;PART1_5;}; Sub{v100;PART2_1;PART2_2;PART2_3;v100;PART2_4;PART2_5;}; Sub{v110;PART3_1;PART3_2;PART3_3;v110;PART3_4;PART3_5;}; v100;PART4_1;PART4_2;PART4_3;v110;PART4_4;PART4_5; //------------------------------------------------------------------------------ Track 11 CH(1) o3;q100 Key(ALL_KEY); rar8a8rer8e8'fc'.;'gd'.;'ea'2.+2;r rar8a8rer8e8rfr8f8rgr8g8rar8a8rer8e8rfr8f8rgr8g8 rar8a8rer8e8rfr8f8rgr8g8rar8a8rer8e8rfr8g8rcr8c8 rfr8f8[3r8f8]rgr8g8[3r8g8]rcr8c8ra-r8a-8 rar8a8[3r8a8]rfr8f8[3r8f8]rgr8g8[3r8g8] ra-r8a-8[3r8a-8]rgr8g8'"ff'2. Key(ALL_KEY+3);o2;Oc_U{ aa.a8ee.e8ff.f8gg.g8aa.a8ee.e8ff8gg8c2[3c] aa.a8ee.e8ff.f8gg.g8aa.a8ee.e8ff8gg8c2.}; Key(ALL_KEY+4);o2;Oc_U{ aa.a8ee.e8ff.f8gg.g8aa.a8ee.e8ff8gg8c2[3c] aa.a8ee.e8ff.f8gg.g8aa.a8ee.e8ff8gg8c2. aa.a8ee.e8ff8gg8T_N(2);c2.}; //------------------------------------------------------------------------------ //END この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)