サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル クラシック ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 落ち着いた雰囲気を漂わせた曲です。作ってから数日経ってますが、気にしないでくださいw 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // dSakura.dll Version.2.37 TrackName = {" 冷秋 "}; Copyright = {" 春日井春日 "}; MetaText = {"制作期間 2005.11.24~2005.11.25"}; // DLありがとうございます!!! //多分、GM音源推奨です…(>▽<;; //全体のKeyの操作 System.Keyshift = 0 ;//0が原曲です。-2,-1,1,2の方がいいかも… //------------------------------------------------------------------------------ /* 心境 11月25日は果たして秋に属すのでしょうか… 四季の中で最も短いのは秋だと思いませんか?自分は、秋だと思います。 それと同時に思い出の多い秋です。 "秋冬" "再会"に続き、またまた秋関係の曲です(-。−;) 曲名"冷秋(れいしゅう)" 寒い感じの秋をマイナー調で、表現しました。マイナー調がまだまだうまく使えない自分… マイナーだと暗すぎるので、一応、"マイナーセブンス"系を多く取り入れました♪ 詩は無いです…壁 |дT)o "再会"よりは落ち着いてます。ヨーロッパ諸国の秋を想像して聞いてみるといいと思います… ヨーロッパは、偏西風とかで、そこまで寒くないような…w まぁ寒いのには変わりないだろう! 前奏が"再会"と、かなり似ててすいません…(/□≦、) オカリナってこんな高い音でるのでしょうかw 今までの曲と似た感じのKeyの使い方は…気にしないでください( ̄ー ̄; なんか似たパターンになっちゃうんですw 意見・感想のカキコ待ってます! */ //------------------------------------------------------------------------------ /* 楽器の位置 DRUM(±0度) Viola(-15度) Cello(+15度) Violin(-45度) Piano(-10度) Contrabass(+45度) Vo&B_Harp(+5度) ――――――――――――(聴衆者:P)―――――――――――――→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 V_B=68; //+5度 =67.555… //------------------------------------------------------------------------------ //_コード(ピアノ版) 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 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 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 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 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 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 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 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 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 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 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 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 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 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_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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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={v.T(100,120,!1+1+1+1)}; STR BEND={p%.T(0,-8192,!16,-8192,0,!16)}; STR BEND_32={p%.T(0,-8192,!32,-8192,0,!32)}; //------------------------------------------------------------------------------ Include(gs.h); //------------------------------------------------------------------------------ TimeSignature=4,4; //拍子記号の設定 Tempo(143); //テンポの設定 System.MeasureShift = 1; //(弄らないこと) ResetGM; r2 ResetGS; r2 //音源初期化命令 TrackSync; //全てのトラックを同期する //------------------------------------------------------------------------------ //_Track設定 Track 01 @01 V.W(105,95,!1) P(P_Piano) REV(100) CHO(100) Track 02 @80 V.W(110,115,!2.115,120,!4) P(V_B) M.W(10,40,!1) REV.W(40,60,!1) CHO.W(30,40,!1) Track 03 @23 V(120) P(V_B) REV.W(60,80,!1) CHO(100) Track 04 @41 V.W(30,40,!1) P(V_lin) REV.W(90,100,!1) CHO(90) Track 05 @42 V.W(40,50,!1) P(V_ola) REV.W(90,100,!1) CHO(90) Track 06 @43 V.W(50,60,!1) P(C_llo) REV.W(90,100,!1) CHO(90) Track 07 @44 V.W(50,60,!1) P(C_bass) REV.W(90,100,!1) CHO(90) Track 10 @09 V(090) P(D_DRUM) M(40) REV(120) CHO(100) //------------------------------------------------------------------------------ //_曲中のKeyの操作 INT K_UP1=9;INT K_UP2=1;INT K_UP3=1; //------------------------------------------------------------------------------ Track 1 q100;o3; //_前奏 Key(MML(Key)+K_UP1); l2;[Am7(,-1)];[Em7];F;G;l1;C(,1); //_Aメロ l2;[Am7(,-1)];[Em7];[F];G;G7; l2;[Am7(,-1)];[Em7];F;G;[C(,1)]; //_Bメロ l4.;FM7;l8;FM7;r2;[l2;G6][F];[C(,1)]; l4.;FM7;l8;FM7;r2;[l2;G6][4F];[G];l1;E7; //_サビ Key(MML(Key)+K_UP2); l2;[Am7(,-1)];[Em7];[F];G;G7; l2;[Am7(,-1)];[Em7];F;G;C(,1);C7(,1); l2;[Am7(,-1)];[Em7];[F];G;G7; l2;[Am7(,-1)];[Em7];F;G;l1;C(,1); //_サビ Key(MML(Key)+K_UP3); l2;[Am7(,-1)];[Em7];[F];G;G7; l2;[Am7(,-1)];[Em7];F;G;C(,1);C7(,1); l2;[Am7(,-1)];[Em7];[F];G;G7; l2;[Am7(,-1)];[Em7];F;G;l1;C(,1); //_ラスト Tempo=124; l2;[Am7(,-1)];[Em7]; TempoChange(124,90,!1+1+1); F;G;l1;T_N(6);C(,1); Key(MML(Key)-K_UP3-K_UP2-K_UP1); //------------------------------------------------------------------------------ Track 2 o5;q90; [4r2.] Key(MML(Key)+K_UP1); l4;r2.f8g8 a2.a8a8 g2de ff8eec8d2.f8g8 a2.a g2.d8e8 fg8fed8 c1 a.a8r4b8a8g2d2 cdef BEND;gedc a.a8r4b8a8g2d2 defg BEND;a2.g8a8 b2.a12b12a12 a-2. Key(MML(Key)+K_UP2); o5;a8b8 `c8`c2+8bg2ab`c2.`eBEND;`f.`e.`d `c2.eg2b`c`c2`d2`c2.a8b8 `c8`c2+8bg2ab`c2.`eBEND;`f.`e.`d `c2.eg2b`c`c2`d2`c2. Key(MML(Key)+K_UP3); a8b8; `c8`c2+8bg2ab`c2.`eBEND;`f.`e.`d `c2.eg2b`c`c2`d2`c2.a8b8 `c8`c2+8bg2ab`c2.`eBEND;`f.`e.`d `c2.>eg2b`c`c2BEND;`d2`c1 Key(MML(Key)-K_UP3-K_UP2-K_UP1); //------------------------------------------------------------------------------ Track 3 q100 Key(MML(Key)+K_UP1); l8;[e4.]e;d"b2c6d6e6 BEND;f2e4;BEND_32;d4c1; Key(MML(Key)-K_UP1); //------------------------------------------------------------------------------ Track 4 Key(MML(Key)+K_UP1); l1;o6;q100; cec2d2c cecd cec2d2c c4.q80;c8r2q100;dcc c4.q80;c8r2q100;dYON;c1+1de;v120; Key(MML(Key)+K_UP2); cecdcec2d2c2"b-2cecdcec2d2c Key(MML(Key)+K_UP3); cecdcec2d2c2"b-2cecdcec2d2c Key(MML(Key)-K_UP1-K_UP2-K_UP3); //------------------------------------------------------------------------------ Track 5 Key(MML(Key)+K_UP1); l1;o5;q100; aba2b2g abab aba2b2g a4.q80;a8r2q100;bag a4.q80;a8r2q100;bYON;a1+1ba-;v120; Key(MML(Key)+K_UP2); [abababa2b2g] Key(MML(Key)+K_UP3); [abababa2b2g] Key(MML(Key)-K_UP1-K_UP2-K_UP3); //------------------------------------------------------------------------------ Track 6 Key(MML(Key)+K_UP1); l1;o4;q100; cgf2g2e cgfg2f2 cgf2g2e f4.q80;f8r2q100;gfe f4.q80;f8r2q100;gYON;f1+1gd;v120; Key(MML(Key)+K_UP2); [cgfg2f2cgf2g2e] Key(MML(Key)+K_UP3); [cgfg2f2cgf2g2e] Key(MML(Key)-K_UP1-K_UP2-K_UP3); //------------------------------------------------------------------------------ Track 7 Key(MML(Key)+K_UP1); l1;o4;q100; aea2b2c aeab aea2b2c a4.q80;a8r2q100;bac a4.q80;a8r2q100;bYON;a1+1bb;v120; Key(MML(Key)+K_UP2); [aeabaea2b2`c] Key(MML(Key)+K_UP3); [aeabaea2b2`c] Key(MML(Key)-K_UP1-K_UP2-K_UP3); //------------------------------------------------------------------------------ Track 10; //_リズムマクロの定義 $b{n36,}//bass drum $s{n40,}//snare2 $h{n42,}//hi-hat $m{n46,}//hi-hat open $c{n49,}//Cymbal $C{n57,}//Cymbal2 $L{n43,}//low-Tom $M{n47,}//Mid-Tom $H{n50,}//High-Toml STR PART1_1={Rythm{[hhrh][r2]m2m2}}; STR PART2_1={Rythm{[srss8r8][rs8r8]r2.s8r8}}; STR PART3_1={Rythm{[rbrr8b8][rr8b8]r2.r8b8}}; STR PART4_1={Rythm{[r2m2]c2C2'cC'1}}; STR PART1_2={Rythm{[6hhhr]r1hhhr}}; STR PART2_2={Rythm{[6srss8r8][s4.r8]srss8r8}}; STR PART3_2={Rythm{[6rbrr8b8][r4.b8]rbrr8b8}}; STR PART4_2={Rythm{[6r2.m][c2]c2.C}}; STR PART1_3={Rythm{[r4.h8 r2[3hhhr]]hhhrr1}}; STR PART2_3={Rythm{[r.s8 r4r8s8[3rrss8r8]]rrss4r2.s}}; STR PART3_3={Rythm{[b.r8 r4b8r8[3rbrr8b8]]rbrr8b8r2.b}}; STR PART4_3={Rythm{[m;q50;m8;q100;r2+8[3r2.m]]r2.mC2.c}}; STR PART1_4={Rythm{[[6hhhr]r1:hhhr]r1}}; STR PART2_4={Rythm{[[6srss8r8][s4.r8]:srss8r8]r1}}; STR PART3_4={Rythm{[[6rbrr8b8][r4.b8]:rbrr8b8]r1}}; STR PART4_4={Rythm{C2.m[5r2.m]c2.mC2.c C2.m[5r2.m]r2.mC1}}; UseKeyShift(off); Sub{v100;PART1_1;PART1_2;PART1_3;PART1_4;PART1_4;}; Sub{v110;PART2_1;PART2_2;PART2_3;PART2_4;PART2_4;}; Sub{v110;PART3_1;PART3_2;PART3_3;PART3_4;PART3_4;}; q100;v100;PART4_1;PART4_2;PART4_3;PART4_4;PART4_4; //------------------------------------------------------------------------------ Track 17;CH(1);v110;UseKeyShift(on); Key(MML(Key)+K_UP1); q100;l2;o2; r4[a][e]fg4c1 r4[a][e][f]gf[a][e]fgcc4 f4.q80;f8;q100r2r4[g][f]cc4 f4.q80;f8;q100r2r4[g][4f]gg4g+1 Key(MML(Key)+K_UP2); r4[a][e][f]gf[a][e]fgc"b-4r4[a][e][f]gf[a][e]fg4c1 Key(MML(Key)+K_UP3); r4[a][e][f]gf[a][e]fgc"b-4r4[a][e][f]gf[a][e]fg4c1 r4[a][e]fg4c1 Key(MML(Key)-K_UP1-K_UP2-K_UP3); //------------------------------------------------------------------------------ //END この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)