Copyright ={"庚申works"} MetaText ={" 3分半強の曲で、134小節です。"} TrackName ={" --- 帰還 --- "} /* コメント ------ 3分半強の曲で、134小節です。 ダウンロード有難うございます。 TW-music2で、最終バランスを整えてます、サクラでもある程度バランスはとりました。 環境は、XP版 MSGSです、GS拡張音源を使用してます。 ※構造化エディタ対応です。 機械的にならないように、ヒューマングルーブを意識しました。 ドラムと楽曲アレンジがあまり得意でないので、この練習も兼ねてます。 コード解説は難しめかもしれません。 */ /* --- 更新履歴 '12 7 6 ver.0.8 一様、ぽつぽつコメント書きこみ開始、。 再生エンジンのブラッシュアップは、ほぼ完成。 コードは、一部を除いて、出来上がり。 アレンジはいまだ、出来ず。。 ドラムセクションの、フィルパターンは完成。 '12 7 10 ver.1.0 仮完成。1週間弱寝かせてアップ予定 '12 7 12 ver.1.1 入りのフィルイン修正、パッドのオクターブ調整 不必要な、記述の削除 '12 7 13 ver.1.13 ラストエコー追加 最終チェックのみ '12 7 14 ver.1.14 アップロード 初版 '12 7 15 ver.1.17 低域の張り出しを修正、全体の音量再調整 エコー調整 アップロード 改訂版 '12 7 15 ver.1.18 文章直し、ベースをV=86 -> V=87へ タイトルは、1.17のままですが、中身は1.18です。 '12 7 17 ver.1.19 追補文章直し、中身は1.19です。 '12 8 29 ver.1.2 スモールスピーカー向け再調整、低音増強版 */ /* --- 最初は音色生成から入りました。 ハードシンセではレイヤーをかさねて、音色をつくるので、 それを真似て複数のトラックを使用し、2ボイス、3ボイスを同時に鳴らしました。 各トラックごとにファインチューンをかけ、うすいコーラス効果を足しています。 ボイスによっては、先行指定でエクスプレッションで音量変化を加えています。 ベース音はアタック以後、先行指定でピッチを下げ、ピッチずれを加えています。 ドラムは、スネアであればリムショットとスネア音を同時に叩いて、音量を稼いでいます。 エレピ音色セット TR=1 @81,8 //Sine 音圧増加 TR=2 @5,24 //EP 60's 基本音 実音よりCoarseTune=64+12で 1oct.上の音へ TR=3 @93,0 //Bowed Glass ノイズ分 単音ルートシーケンス TR=4 @81,8 //Sine EP.T(111,127,!2,127,0,!1+4) のみ都度指定 ベース音色セット //アナログシンセを目指しました、 先行指定 : PitchBend.onNoteWaveEx(0,-111,!3) p.Random=10 p.Frequency=10 TR=5 @52,0 //Syn.Strings2 ノイズ分 TR=6 @82,1 //Saw 基本音 実音よりCoarseTune=64+12で 1oct.上の音へ TR=7 @81,8 //Sine 音圧増加 実音よりCoarseTune=64+12で 1oct.上の音へ ランダムシーケンス TR=8,9 @81,1 //Square 疑似ディレイをかけています。 Sub{ r1+4+16 l(12) v(11) cde} Sub{ r2+8 l(12) v(33) cde} Sub{ r12 l(12) v(66) cde} //ショートディレイでアーリーリフレクション効果 l(12) v(100)cde TR=13,14 未使用 パッド音色セット TR=15 @96,0 //Warm Pad 先行指定で後半ミックス EP.onNoteWaveEx(0,96,!2,96,0,!4) TR=16 @102,0 //Goblin 先行指定で前半ミックス EP.onNoteWaveEx(96,32,!4,32,96,!2) クワイヤ音色セット TR=1 @53,32 //Choir Aahs 2 単純合成です、、 TR=2 @95,0 //Halo Pad TR=3 @86,0 //Solo Vox スネア音色セット $K{'n40,,,(120-34),(1) n37,,, (120-20),'} //$K{'v(120-34)t(1)n(40) v(120-20)t(0)n(37)',} 多分これでも可だと思います、、 //リムショットを加えるのは、響きを良くするため、よくドラマーが使う手らしい、。 //ベースのp.Frequency=10 は、ピッチ変更タイミングを 10ステップ単位の意、処理軽減のためです。 */ /* --- リズムパターン(ドラム、ベース、クラビ)は、 複雑に見えますが、(少なくとも自分には..)実は、基本 3パターンしか使用してません。 考え方として、コードは 4小節パターンなら、これを 12小節単位とまとめ、3で割る考えです。 |A |B |C |A Fillin |B |C |A |B Fillin |C |A |B |D |C Fillin こんな感じでパターン化してます。 明らかに変な部分は手直ししますが、例えば [A]のパターンであればどれも、3つの楽器が同じ リズムを弾きます。 ちなみに ドラムに適用する Fillinは、同じパターンを使用しないほうが良いです。、 よくドラマーは、Fillin小節の頭　[|A Fillin]などで、スネアなりを多めに叩き、これから展開が変わるよと、 教えているようなので、頭にスネアを一発多めに入れてそれらしくしてます。 もっともドラムは難しいので、多くは語れません、、、最近までフラムという呼び方も知らなかった、、 */ /* --- コードを考える上で、 まず基本は、CM7から、何度下がると考えると良いです。 Key:Cであれば Cのコードで、一番高い音が出ると安定するような気がします。 逆に、C#のコードが、一番低い音になるようにしてます。[ケースにより高低はします..] CM7 -> G7 ->CM7 であれば、1OCT.下のGへ下がって、元のCへもどると、Cで気持ちが解決するので... o4'cegb' o3'gb`d`f' o4'cegb' 基準 下がって もとにもどる　と、気持ちも解決します。 o4'cegb' o4'gb`d`f' o4'cegb' 基準 上がって もとにもどる　は、解決した気がしません。、、 言うまでもないことかもしれませんが、これが解らなくて苦労した思いがあります。。 */ /* --- コード展開は、 前半部分は、AORの(後半の部分転調の連続が凄まじい)名曲、EW&Fの"After the love has gone"、 後半部分は、プログレハードの(海外ドラマでリバイバル)代表曲、Kansasの"Carry on my Wayward son" 両曲のコード解析に触発されています。 いくつか実験的な変更をし、元のコードの名残りはあるものの、原形はあまり留めていません、。 Key:F Key:C |CM7 |Fm11/C |CM7 |FM/A ただ上記、曲の最初に当たる部分はあまりに見事なので、変更できませんでした、、 当時のLAサウンドの立役者達によるコードワークの妙がわかります。 　簡単なコード理論解説です.. 　部分転調とは、主にセカンダリードミナントモーションを使用したものです、。 一時的に転調した感じになるため、これから勢いがほしい、 またはここで、無調感を出したいなどに有効です。その他いろいろ　、、 コード解析では、2SD -> 2D -> T などと表記してます。 |Bb6 |B7sus4 B7#9 |Em7/A DM 2SD 2D T,D B7#9 2D -> Em7/A T,Dの部分が、セカンダリードミナントモーションです。 これを利用して、そのまま転調する技もあります。、 7#9 : 長3度と短3度を併せ持つ、ブルースの響きを持つコードで、 非常に泥臭い音になります。構成音は、ドミソシ♭レ♯です。 7thのままだと、響きが上品すぎたので..変更しました。 　コルトレーンチェンジとは、特定の M7へ一気に飛びたいなどのケースにおいて とても有効です。厳密には、コルトレーンチェンジ化ですが、、 かなりジャズっぽくなるので、、要注意です。。 |BM7/A D7/Ab |GM7 Bb7/F# |EbM7/F この部分です、、ちなみにボトムノートをクリシェにしてます、。 引用です... 最終的な目的地を決め、そこに向かうコードの流れを、 ｢短三度上の7th　→　Maj7に解決　→　短三度上の7thの連続〜以後続く｣ とすれば出来あがりです。 http://www.e-regi.com/jazz/lecture/q&a/q&a3.html ジャズの世界では、こういう手段で展開を広げることをリハモと呼んだりしてます。 自分はジャズ屋とは言えないので、ここまでとします。、 [演奏時は、全体をC -> C#へ移調し、Aを444Hzにチューニングしています。] //イントロ Key:F Key:C |CM7 |Fm11/C |CM7 |[CM/E T] |FM/A T SDM T SD <ちなみに、元のコードは SD連続技です、> |Gm7 |A♭M7 |Am9 |Fm7/D DM SDM T SDM |EbM7 |Gm7/C |BbM7 |G7 TM DM SD D //前半 エフェクトあり Key:F Key:C |CM7 |Fm11/C |CM7 |[CM/E T] |FM/A T SDM T SD |Gm7 |A♭M7 |Am9 |Bb6 DM SDM T DM |B7sus4 B7#9 |Em7/A |Dm9/Ab |G7sus4 |G7 2SD 2D T,D SD SD D 部分転調 Key:F Key:C |CM7 |Fm11/C |CM7 |[CM/E T] |FM/A T SDM T SD |Gm7 |A♭M7 |Am9 |Bb6 DM SDM T DM Key:B Key:F# |BM7/A D7/Ab |GM7 Bb7/F# |EbM7/F |B7sus4 B7#9 |Em7/A |[BbM7/Ab SD] | |[BbM7/C SD] |Fm69 G7#9 |CM7 2SD 2D T,D SD SDM 2SDM 2D T 部分転調 半音上へ転調 コルトレーンチェンジ //後半 エフェクト薄く、ラストのみエコー付加 Key:Bb |Em7 | | | T 転調 | | | | |Dm11 |CM add9 |G9 SD T D |FM7 FM7/G |Em7/A |Am7 Caug7 |EM7 SD SD T,D T aug7 -> 部分転調 |Em7 |Am7 FM7 |FM7/G |Dm7/G |G7sus4 T T SD SD SD SD Key:F Key:A |CM7 |Bb6 |CM7 |[FM7 SD] | | T 2DM T 転調 転調 */ /* --- ヒューマングルーブの小技です。。 エレピとベースの最後ないし、最後のほうの音は、ゲートを長くして、ベロシティをいくらか弱くすると、 なんとなくいい感じになります。この辺はひとによりけりですが、、 l4 q90v100 ccc q99v96 c 細かい指定が苦手な場合は、こんな手があります、もちろん上記と併用すると効果は倍増します。。 TR=1 v.Random=9 t.Random=6 q.Random=3 などと書き込むと、自動的にヒューマングルーブが付与されます。 TR=1 v.Random=9 v100 cde 上記は以下のように出力されます。 v100 c v104 d v98 e このように、自動的にベロシティを加減します。 なんとく、機械的だなあと思うときは、このランダムを使用すると人間の演奏らしくなります。 実践的な例はこんな感じです。 各TRのあとに、v.Random=9を一度書き込むと、TR全体の音に適用されます。(途中書替えも可能だと思います) TR=1 v.Random=9 t.Random=6 q.Random=3 v100 q88 t1 cde cde ... TR=2 v.Random=9 t.Random=6 q.Random=3 v100 q88 t1 cde cde ... 自分はこのように書き込みました。これだといっぺんに直せるので、いくらか楽です。 #COM_SET={ v.Random=9 t.Random=6 q.Random=3 } //マクロ TR=1 #COM_SET; v100 q88 t1 cde cde ... TR=2 #COM_SET; v100 q88 t1 cde cde ... */ /* --- アレンジに於いて 都度音量を変化させると雰囲気が出ます。多くは申せませんが、、 各トラックを先行指定 V.Tにより、音量の上げ下げをしています。 これで、楽器間のバランスを補正しています。 V.T(0,127,!1) cde...と指定すると、1小節かけて音量を上げてゆきます。 実践的には、こんな記述をしました。 V.T(0,11, !1+1+1+1, 11,66,!1+1+1+1, 66,66,!1+1+1+1 +1+1+1+1) 4小節かけて、0->11へ、 4小節で、11->66へ、 8小節は変更なし、66->66、 V.T(70,108,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) 28小節かけて、70 -> 108へ、 //V.T(70,108,!%(TimeBase*4 *28) ) //シンプルな記述を目指すなら、左記でもかまいません、。 V.Tは、都度指定(1回限り)なので、音量調整のアレンジには向いています。 */ /* --- 与太話し エイリアンで有名な、H・R・ギーガージャケットデザインの、EL&Pの"恐怖の頭脳改革" 今見てもすごいタイトル..Tubeで普通に、このフルアルバムが聞けるようになって、 驚きと侘しさがないまぜになるこの頃です。　実はこのレコード盤を持ってたりします、、 実機で聞くとなお良いのですが..、 PC98 アドバンスドパワードール2 OP, POWER DoLLS2 DASH Title~Opening [86音源版?]などもよく聞いてます。なぜか、ぴこぴこサウンドには、一目おいてしまう。。 PRISM　森園勝敏 Lady Violetta もっとも気に入っている曲です。 和田アキラと組んで、演奏しているのですが、少し泣けます、。 実は、リアルタイムでは、ほとんど聞けずじまいでした、少し若すぎた... 最近は、フリーウェアのPuredata などもぽつぽつ始めました。 データフロープログラミングを、視覚的に構築できる点がすごいなぁと感心しきりです。、 音響合成のみにターゲットされますが、SDR(ソフトウェアラジオ)や、バイソンとの連携、 OSC（Open Sound Control）を利用した、マルチメディアアート環境構築などの可能性も含み、 触った感じでは、比較的懐が深い印象です。 この Puredataを音源にして、 サクラをシーケンサとし、仮想ミディケーブルでつないで、鳴らしてみたりしてます。 仮想ミディは、ATS-MA7-SMAF付属のYAMAHA Virtual MIDI Driverを利用しました。 同じ手でフリーのSunVoxとつないだりしています。 ただ、SunVoxは、ミディインチャンネルが 1つのみなので、音源として使用するには難ありかも。 ミディアウトはジェネレーターごとに設定できるのに..何故? 入口が狭く、出口は広い感じです。 トラッカー使いは、一度試すと良いかもしれません。 VST-Host、ASIO、ミディ、最後はOSC... 規格も増えました、 CV/GATEトリガーがすごい!なんて思っていたころもあったりするので、最近、時代の変遷を感じます。、 */ /* --- 追記です。 プロフィールで改行が出来ないと、考え込んでましたが、 当サイトは PHPで動いているようなので、エスケープシーケンス \nを入れてみたらどうか? と試してたらなんてことなく改行しました。、、 プロフィール〜〜\n \n などとフォームに書き込めば良いので、簡単です。 現在のTW-MUSIC2は、 koremaka.dlsなどの必要なdlsファイルはもともと入っていません。 探し続けた結果、なんとか発見しました。 TW-MUSIC2インターネットアーカイブ http://web.archive.org/web/20090204055306/http://barukaso.dip.jp/~rath/twm2_108a_dl.html こちらのサイトから、旧バージョンTW-MUSIC2 Ver.1.08a フルセットのリンクから、 twm2_108a.lzhをダウンロードします、この圧縮ファイルに、以下の、4つのファイル koremaka.dls、ko1.dls、dearna.dls、breakbeats.dlsがあるはずです。 この4つのファイルを、TW-MUSIC2のプログラム以下のDLSフォルダへ放り込めば、機能します。 特に、koremaka.dlsの Drum音源 Dance Set @27,90は掲示板の曲において使用頻度高いので、 あったほうがよいと思います。、 ただし、仕様.txtに記載されている narhythm1.dls, ko2.dls はいまだ見つからず.. 最後まで見ていただき、ありがとうございます..、謝々。 */ /* --- 追補 最近、音響機器の仲間がめずらしく増えました。これで初版を再生したら、 とんでもない低域が出力され、急きょ初版取り下げの運びとなりました。 広域シャリシャリ音しか聞いていなかったので、単に低域を理解できないだけでした。 一応、某社の年季もののモニタークラスヘッドホンでも確認して、可笑しくない バランスをとりました。-> ライン出力から直で差してたため、インピーダンスマッチングが、 取れていないのか、こちらも広域シャリシャリ音でした... ヘッドホン出力から直接、もらいものの、パソ付属の小型スピーカー[入力抵抗20kΩ]で、 確認していましたが、やはりマッチングの面で問題が...あり、 また、パソのサウンドデバイスの影響によりエコーなどの音が変わってしまうことも 発覚しております。 Realtekだったり、BiostarのDSPだったり、まちまち。 今後、見直しも含めていろいろ再生環境を検討します。、予算はかけられませんが.. */ //グローバル Array Elm_chd=(); Int Master_key=0; Int Part_key=0; Int Global_key=0; //一時キー変更 Int Shift_key=0; Int Oct_key=0; Int Fwd=0; //トラック出力スイッチ Int Chg=0; //音色切り替え // Array Elm_bas3=(); // Elm_bass=(Elm_bas3, ...); Array Elm_bass=(); Array Elm_mldy=(); Str CLV={}; Int Shift_h=0; Array Elm_chdh=(); Int Shift_i=0; Array Elm_chdi=(); Int Shift_j=0; Array Elm_chdj=(); Int Shift_k=0; Array Elm_chdk=(); Str BD ={}; Str SN ={}; Str HH ={}; // Function ファンクションない呼び出し Function Elm_Op(Array Elm_copy){ // ヴォイシング変更 Int Chd_inv=6; //IF(2 (-8,0,7,10) } //Func Function Rdm_out(Array Elm_copy){ // ランダム配列差替 Array Rdm_ary =(); Array Tmp_ary =(); Int Rdm = 0; //除く数値 Int Loop =SizeOf(Elm_copy); //ループ初期値出力:固定 FOR(Int J=0; J< Loop; J++){ Rdm= Random(SizeOf(Elm_copy) ); //ランダム選択 Rdm_ary=(Rdm_ary,Elm_copy(Rdm)); Tmp_ary= Elm_copy; Elm_copy=(); //初期化 FOR(Int I=0; I< SizeOf(Tmp_ary); I++){ IF(I!=Rdm){ Elm_copy=(Elm_copy,Tmp_ary(I) ); } } } RESULT =Rdm_ary; //(0,4,7,10) -> (4,0,10,7) } //Function Function Elm_Exd(Array Elm_copy){ //ボイシング拡張 Elm_copy=(Elm_copy, Elm_copy(0)+12); Elm_copy(0)=Elm_copy(0)-12; // drop1&3&5 IF(3<= SizeOf(Elm_copy) ){ Elm_copy=(Elm_copy, Elm_copy(2)+12); Elm_copy(2)=Elm_copy(2)-12; } IF(5<= SizeOf(Elm_copy) ){ Elm_copy(4)=Elm_copy(4)-12; } RESULT= Elm_copy; //(0,4,7,10) -> (-12,4,-5,10,12,19) } //Func Function Elm_Rev(Array Elm_copy){ //リバースフレーズ Int Rev_tmp= 0; FOR(Int Rev_i=0; Rev_i< SizeOf(Elm_copy)/2; Rev_i++){ Rev_tmp= Elm_copy(0+ Rev_i); Elm_copy(0+ Rev_i) = Elm_copy( SizeOf(Elm_copy)-1 -Rev_i); //最後を最初へ代入 Elm_copy( SizeOf(Elm_copy)-1 -Rev_i) =Rev_tmp; } RESULT= Elm_copy; //(0,4,7,10) -> (10,7,4,0) } //Function Function Elm_OCT(Array Elm_copy){ //ヲクターバー FOR(Int I=0; I< SizeOf(Elm_copy); I++){ Elm_copy(I)=Elm_copy(I)+12; } RESULT= Elm_copy; //(0,4,7,10) -> (12,16,19,22) } //Func Function Chd_wte(Array Elm_copy){ //和音 Int Tmpv=MML(v); Int Tmpq=MML(q); Str Chd_str={'}; FOR(Int I=0; I< SizeOf(Elm_copy); I++){ Elm_copy(I)=Elm_copy(I)+Master_key+Global_key+Part_key+Shift_key+Oct_key; Chd_str=Chd_str+{q(}+Tmpq+{-Random(3))v(}+Tmpv+{-Random(10))t(Random(6))n(}+Elm_copy(I)+{)}; } Chd_str=Chd_str+{'}; RESULT= Chd_str; v(Tmpv) //書きもどし q(Tmpq) //書きもどし } //Func // Function ファンクション Function Rot_gtr(Array Elm_copy){ //ルートシーケンス Int Root=Elm_copy(0); Int XX=16; //音符長 Int YY=3; //出だしのズレ Int ZZ=3; //増数 Int Tmp=MML(l); // 総ステップ値 Str Chd_str={}; FOR(Int K=0; K< YY; K++){ //遅延 Chd_str=Chd_str+{r}; } Int NoteNum =0; FOR(Int I=0; I< XX+ZZ; I++){ NoteNum =Root+Master_key+Global_key+Part_key+Shift_key+Oct_key; IF(100< NoteNum){ NoteNum= NoteNum-12;} //ヲクターブ制限 IF(NoteNum< 76) { NoteNum= NoteNum+12;} Chd_str =Chd_str+{n(}+NoteNum+{)}; } // Print(Chd_str); //EP.Tは都度書き込み //小節区切りに左右されないためSub出力 Sub{ EP.T(111,127,!2,127,0,!1+4) l(XX) Chd_str;} l%(Tmp)r //タイミング休符、書きもどして使用 } //Func Function Pad_gtr_f(Array Elm_copy){ //パッド前半 Elm_copy=Elm_Exd(Elm_copy); Elm_copy=Elm_Op(Elm_copy); Int Tmpl=MML(l); // 総ステップ値 Int XX=32; // 伸ばす音符長 Int Step_val=TimeBase*4/XX; //音符長をステップ値へ Str Chd_str=Chd_wte(Elm_copy); // Print(Chd_str) Sub{ l%(Tmpl+Step_val) Chd_str;} //小節区切りに左右されないためSub出力 l%(Tmpl)r //タイミング休符、書きもどして使用 } //Func Function Pad_gtr_b(Array Elm_copy){ //パッド後半 Elm_copy=Elm_Exd(Elm_copy); Elm_copy=Elm_OCT(Elm_copy); Elm_copy=Elm_Op(Elm_copy); Int Tmpl=MML(l); // 総ステップ値 Int XX=32; // 伸ばす音符長 Int Step_val=TimeBase*4/XX; //音符長をステップ値へ Str Chd_str=Chd_wte(Elm_copy); // Print(Chd_str) Sub{ l%(Tmpl+Step_val) Chd_str;} //小節区切りに左右されないためSub出力 l%(Tmpl)r //タイミング休符、書きもどして使用 } //Func Function Chr_gtr(Array Elm_copy){ //クワイア Elm_copy=Elm_Op(Elm_copy); Elm_copy=Elm_Exd(Elm_copy); Int Tmpl=MML(l); // 総ステップ値 Int XX=32; // 伸ばす音符長 Int Step_val=TimeBase*4/XX; //音符長をステップ値へ Str Chd_str=Chd_wte(Elm_copy); // Print(Chd_str) Sub{ l%(Tmpl+Step_val) Chd_str;} //小節区切りに左右されないためSub出力 l%(Tmpl)r //タイミング休符、書きもどして使用 } //Func Function Bas_apg_f(Array Elm_copy){ //Sq.アルペジ前半 Elm_copy= Rdm_out(Elm_copy); Int XX=12; //音符長 Int YY=12; //キャンセル数 Int Tmpl=MML(l); // 総ステップ値 Int Tmpv=MML(v); Int R_num=Tmpl/TimeBase; // 1/4小節数 Str Chd_str={}; FOR(Int K=0; K< YY; K++){ //キャンセル数 Chd_str=Chd_str+{r}; } Array Elm_tmp = Elm_copy; //繰り返し使用のため一時出力 FOR(Int I=0; I< XX/4*R_num-YY; I++){ Elm_tmp(I%SizeOf(Elm_copy))=Elm_copy(I%SizeOf(Elm_copy))+Master_key+Global_key+Part_key+Shift_key+Oct_key+RandomSelect(0,-12); Chd_str=Chd_str+{n(}+Elm_tmp(I%SizeOf(Elm_copy))+{)}; } // Print(Chd_str) Sub{ r1+4+16 l(XX) v(Tmpv/3/3) Chd_str;} //疑似ディレイ Sub{ r2+8 l(XX) v(Tmpv/3 ) Chd_str;} Sub{ r12 l(XX) v(Tmpv*2/3) Chd_str;} Sub{ l(XX) v(Tmpv) Chd_str;} //小節区切りに左右されないためSub出力 l%(Tmpl)r //タイミング休符、書きもどして使用 } //Func Function Bas_apg_b(Array Elm_copy){ //Sq.アルペジ後半 Elm_copy= Rdm_out(Elm_copy); Int XX=12; //音符長 Int YY=0; //キャンセル数 Int Tmpl=MML(l); // 総ステップ値 Int Tmpv=MML(v); Int R_num=Tmpl/TimeBase; // 1/4小節数 Str Chd_str={}; FOR(Int K=0; K< YY; K++){ //キャンセル数 Chd_str=Chd_str+{r}; } Array Elm_tmp = Elm_copy; //繰り返し使用のため一時出力 FOR(Int I=0; I< XX/4*R_num-YY; I++){ Elm_tmp(I%SizeOf(Elm_copy))=Elm_copy(I%SizeOf(Elm_copy))+Master_key+Global_key+Part_key+Shift_key+Oct_key+RandomSelect(0,-12); Chd_str=Chd_str+{n(}+Elm_tmp(I%SizeOf(Elm_copy))+{)}; } // Print(Chd_str) Sub{ r1+4+16 l(XX) v(Tmpv/3/3) Chd_str;} //疑似ディレイ Sub{ r2+8 l(XX) v(Tmpv/3 ) Chd_str;} Sub{ r12 l(XX) v(Tmpv*2/3) Chd_str;} Sub{ l(XX) v(Tmpv) Chd_str;} //小節区切りに左右されないためSub出力 l%(Tmpl)r //タイミング休符、書きもどして使用 } //Func Function Bas_gtr(Array Elm_copy){ //ベース Int Tmpv=MML(v); Int Tmpq=MML(q); Int Tmpl=MML(l); // 総ステップ値 Str Chd_str={}; FOR(Int I=0; I< SizeOf(Elm_copy); I++){ //IF(SizeOf(Elm_copy)-3== I){ v(Tmpv-3) q(Tmpq+9) } //ラスト3つ[q]伸ばし IF(Elm_copy(I)%1==0){ //数値チェック Elm_copy(I)=Elm_copy(I)+Master_key+Global_key+Part_key+Shift_key+Oct_key; Chd_str=Chd_str+{n(}+Elm_copy(I)+{)}; } ELSE{ Chd_str=Chd_str+Elm_copy(I); // [r] 書き込み } } // Print(Chd_str); Sub{ l%(Tmpl/SizeOf(Elm_copy)) Chd_str;} //小節区切りに左右されないためSub出力 l%(Tmpl)r //タイミング休符、書きもどして使用 q(Tmpq) v(Tmpv) } //Func Function Clv_gtr(){ //クラビ Int Tmpl=MML(l); // 総ステップ値 Int Tmpv=MML(v); Int Tmpq=MML(q); Str Chd_str=CLV; Shift_key= Shift_key+Shift_h; Str Rh=Chd_wte(Elm_chdh); Chd_str.s({H},Rh); //リズム譜置き換え Shift_key= Shift_key+Shift_i; Str Ri=Chd_wte(Elm_chdi); Chd_str.s({I},Ri); Shift_key= Shift_key+Shift_j; Str Rj=Chd_wte(Elm_chdj); Chd_str.s({J},Rj); Shift_key= Shift_key+Shift_k; v(Tmpv-4) q(Tmpq+6) Str Rk=Chd_wte(Elm_chdk); Chd_str.s({K},Rk); //ラスト[q]伸ばし Sub{ Chd_str;} // l%(Tmpl) r //タイミング休符、書きもどして使用 q(Tmpq) v(Tmpv) } //Func Function Drm_gtr(){ //ドラム Int Tmpl=MML(l); // 総ステップ値 Str Chd_str={}; IF(Track==10){ Chd_str=BD}; IF(Track==11){ Chd_str=SN}; IF(Track==12){ Chd_str=HH}; //Print(Chd_str); Sub{ Chd_str;} //小節区切りに左右されないためSub出力 l%(Tmpl) r //タイミング休符、書きもどして使用 } //Func //ドラム音色 Function Vwte(){ //ヒューマングループ付与 RESULT=-Random(4); } //Func Function Twte(){ RESULT=Random(3)-1; } //Func Int BD_lev=127; Int SN_lev=120; Int HH_lev=117; Int PC_lev=90; $Y{v(PC_lev -Vwte())t( Twte())n(50),} $y{v(SN_lev-30-Vwte())t( Twte())n(50),} //Perc. $X{v(BD_lev -Vwte())t(6+Twte())n(35)0n(36),} $x{v(BD_lev-35-Vwte())t(6+Twte())n(35)0n(36),} //BD ドン $J{v(HH_lev-20-Vwte())t(Twte()-11)n(42),} $j{v(HH_lev-56-Vwte())t(Twte()-12)n(42),} //HH close チッ $P{v(HH_lev-36-Vwte())t(Twte()-8)n(44),} $p{v(HH_lev-68-Vwte())t(Twte()-8)n(44),} //HH pedal $H{v(HH_lev-36-Vwte())t(Twte()-8)n(46),} $h{v(HH_lev-68-Vwte())t(Twte()-8)n(46),} //HH open トゥ // $G{v(SN_lev- 2-Vwte())t( Twte())n(40),} $g{v(SN_lev-58-Vwte())t( Twte())n(40),} //Sn $K{'n40,,,(SN_lev-34-Vwte()),(1+Twte()) n37,,, (SN_lev-20-Vwte()),Twte()'} $k{'n40,,,(SN_lev-54-Vwte()),(1+Twte()) n37,,, (SN_lev-50-Vwte()),Twte()'} //Sn&Rim タッ // $W{'n40,,,110-Vwte(),( 1+Twte())n37,,,115-Vwte(), Twte() '} // $w{'n40,,,110-Vwte(),(13+Twte())n37,,,115-Vwte(),(12+Twte())'} //Sn&Dub LH,RH同時使用でのみ $C{v(HH_lev-0 -Vwte())t(13+Twte())n(57),} $c{v(HH_lev-34-Vwte())t(13+Twte())n(57),} //Cym $D{v(HH_lev+10-Vwte())t( 4+Twte())n(51),} $d{v(HH_lev-34-Vwte())t( 4+Twte())n(51),} //RideCym $B{v(HH_lev+10-Vwte())t( 8+Twte())n(55),} $b{v(HH_lev-44-Vwte())t( 8+Twte())n(55),} //SplashCym $M{v(SN_lev-Vwte())t(2+Twte())'n(43)n(47)',}$m{v(SN_lev-60-Vwte())t(2+Twte())'n(43)n(47)',} //LowTom カッ $W{v(SN_lev-Vwte())t(2+Twte())'n(41)n(45)',}$w{v(SN_lev-60-Vwte())t(2+Twte())'n(41)n(45)',} //MidTom トッ $N{v(SN_lev-Vwte())t(1+Twte())'n(48)n(50)',}$n{v(SN_lev-60-Vwte())t(1+Twte())'n(48)n(50)',} //HighTom コッ $Q{v(SN_lev)t(Twte())n(63),} //Bomgo $R{v(SN_lev-44)t(Twte())n(61),} //BomgoRim $S{v(SN_lev)t(Twte())n(62),} //BomgoMute $T{v(SN_lev)t(Twte())n(64),} //BomgoLow //ファンクション自動各TR選択 #TRKSCT={ IF(Track==1|Track==2|Track==3){ IF(Chg==1){ q99 v66 Chr_gtr(Elm_chd);} ELSE{ q77 v75 Clv_gtr(Elm_chd);} } IF(Track==4){ q85 v88 Rot_gtr(Elm_chd); } IF(Track==5|Track==6|Track==7){ q99 v120 Bas_gtr(Elm_bass); } IF(Track==8|Track==9){ q88 v66 IF(Chg==1){ Bas_apg_b(Elm_chd);} ELSE{ Bas_apg_f(Elm_chd);} } IF(Track==10|Track==11|Track==12){ Drm_gtr(); } IF(Track==15|Track==16){ q99 v115 IF(Chg==1){ Pad_gtr_b(Elm_chd);}ELSE{ Pad_gtr_f(Elm_chd); } } } // //曲データブロック // 共通データマクロ #BASSMRO1 ={ Elm_bass= ( 0,{^},{r},12, -12,{r},0,{^}, 7,{^},{^},{^} ); } //5[3]度アウト //ルートを避ける #BASSMRO2 ={ Elm_bass= ( 0,{r},0,12, {r},-12,0, -5, {^},{^},{^},{r} ); } #BASSMRO21={ Elm_bass= ( 0,{r},0,12, {r},-12 ); } #BASSMRO22={ Elm_bass= ( 0,-5, {^},{^},{^},{r} ); } #BASSMRO5 ={ Elm_bass= ( {r},0,-12,12, {^},-12,0,-5, {^},{^},{^},{^} ); } #BASSMRO51={ Elm_bass= ( {r},0,-12,12, {^},-12 ); } #BASSMRO52={ Elm_bass= ( 0,-5, {^},{^},{^},{^} ); } #BASSMRO8 ={ Elm_bass= ( 0,{^},{r},12, -12,{^},7,{^}, -5,{^},{^},{r} ); } #BASSMRO3 ={ Elm_bass= ( 7,-12,{r},{r}, 0,{^},-12,{r}, {r},0,{^},{^} ); } //5度イン #BASSMRO31={ Elm_bass= ( 7,-12, {r},{r}, 0,{^} ); } // 1小節 #BASSMRO32={ Elm_bass= (-12,{r}, {r},0, {^},{^} );} #CLVMRO1 ={ CLV ={ l8 H^^^ rIH^ ^J^J rK^^ }; } #CLVMRO2 ={ CLV ={ l8 H^I^ J^K^ rH^^ rK^^ }; } #CLVMRO21={ CLV ={ l8 H^I^ J^K^ }; } #CLVMRO22={ CLV ={ l8 rH^^ rK^^ }; } #CLVMRO5 ={ CLV ={ l8 rH^^ rI^^ JK^^ rK^^ }; } #CLVMRO51={ CLV ={ l8 rH^^ rI^^ }; } #CLVMRO52={ CLV ={ l8 JK^^ rK^^ }; } #CLVMRO8 ={ CLV ={ l8 H^^r HI^J ^rK^ ^^^r }; } //H^^^ HI^J / ^HI^の Hがリズムのアクセント #CLVMRO3 ={ CLV ={ l8 H^^r HI^^ rJ^^ rK^^ }; } #CLVMRO31={ CLV ={ l8 H^^^ HI^^ }; } #CLVMRO32={ CLV ={ l8 rJ^^ rK^^ }; } #CLVMRO6 ={ CLV ={ l8 H^^^ HI^^ rJ^^ rK^^ | ^^rr }; } #BDMRO ={ l16 Xrrr rrrr rrrr Xrrr rrrr rrrr } #BDMRO1={ l16 Xrrr rrrr rrrr Xrrr } #BDMRO2={ l16 rrrr rrrr } #HHMRO ={ l16 Jrrr rrrr rrjr Jrrr rrjr Hrrr } #HHMRO1={ l16 JrrJ rrrr rrrr Jrrr } #HHMRO2={ l16 rrrr Hrrr } #SNMRO={ l16 rrrr rrrr Krrr rrKr rrKr rrrr } #SNMRO1={ l16 rrrr rrrr Krrr rrKr } #SNMRO2={ l16 rrKr rrrr } //　前半 #DATAA00={ l1+1 // Shift_key=-5; Elm_chd=(-12,0,4,7,10); // IF(Track==8){ Lyric={G7 D} } BD={ Rhythm{l8 rrrr rrrr l12 rrrr rrrr rrrr } }　//フィルイン / フラムイン SN={ Rhythm{l8 rrrr rrrr l12 rrrr rrrr r l36 kKr l12 rr } } HH={ Rhythm{l8 rrrr rrrr l12 rrrr rrrr rrrr | Crrr } } IF(Fwd==1){#TRKSCT;}ELSE{r} } // #DATA2={ Global_key=5; //Key:F l1+1 Shift_key=0; Elm_chd=(0,4,7,11,24); IF(Track==8){ Lyric={CM7 T Key:F} } #BASSMRO1; Shift_h=0; Elm_chdh=(0,4,7); Shift_i=0; Elm_chdi=(-24,-17); //2oct.下ハモリ Shift_j=0; Elm_chdj=(-12,-5); //1oct. Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO1; BD={ Rhythm{#BDMRO; rrrr rrrr} } SN={ Rhythm{#SNMRO; rrrr l48 kkkk kkkk Krrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-7; Elm_chd=(-5,3,10,14,17); IF(Track==8){ Lyric={Fm11/C SDM} } #BASSMRO2; Shift_h=0; Elm_chdh=(0,7,10); Shift_i=0; Elm_chdi=(3,10,14); Shift_j=0; Elm_chdj=(7,14,17); Shift_k=0; Elm_chdk=(10,14,17); #CLVMRO2; BD={ Rhythm{#BDMRO; rrrr rrXr} } SN={ Rhythm{#SNMRO; rrrr Krrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=0; Elm_chd=(-12,0,4,7,11); IF(Track==8){ Lyric={CM7 T} } #BASSMRO3; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(7,11,16); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO3; BD={ Rhythm{#BDMRO; rrrr rrXr} } SN={ Rhythm{#SNMRO; rrrr rmrr} } HH={ Rhythm{#HHMRO; Jrrr Hrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // #DATA3={ Global_key=0; //Key:C l1+1 Shift_key=-7; Elm_chd=(-8,0,4,7,24); IF(Track==8){ Lyric={FM/A SD Key:C} } #BASSMRO1; Shift_h=0; Elm_chdh=(0,4,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-8,-5); Shift_k=0; Elm_chdk=(4,7,12); #CLVMRO1; BD={ Rhythm{#BDMRO; rrrr rrrX} } SN={ Rhythm{#SNMRO; rrrr l48 kkkk kkkk rrrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-5; Elm_chd=(0,3,7,10); IF(Track==8){ Lyric={"Gm7 DM <- BbM7 SD [CM,Am 平行調へ変更]"} } #BASSMRO5; Shift_h=0; Elm_chdh=(0,3,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(3,7,10); #CLVMRO5; BD={ Rhythm{#BDMRO; rrXr rrrr} } //入り最初 フィルイン SN={ Rhythm{#SNMRO; rkrr kkrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr | Brrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-4; Elm_chd=( 0, 4, 7, 11); IF(Track==8){ Lyric={"A♭M7 SDM <- FM/C# SD"} } #BASSMRO3; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(11,19,24); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO3; BD={ Rhythm{#BDMRO; rrrr rrrx} } //シンバル裏のバス SN={ Rhythm{#SNMRO; rrrr rrrr} } HH={ Rhythm{#HHMRO; l48 rrrr rrrr rrrr dddd dddd drrr | Brrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // // #DATA4B={ Global_key=0; //Key:C l1+1 Shift_key=-3; Elm_chd=(0,3,7,10,14); IF(Track==8){ Lyric={Am9 T <- Dm9 SD} } #BASSMRO1; Shift_h=0; Elm_chdh=(0,3,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(3,10,14); #CLVMRO1; BD={ Rhythm{#BDMRO; rrrr rrrr} } SN={ Rhythm{#SNMRO; rrrr l48 kkkk kkkk Krrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-7; Elm_chd=(-3,0,3,7,10); IF(Track==8){ Lyric={Fm7/D SDM <- BbM7 SD} } #BASSMRO2; Shift_h=0; Elm_chdh=(0,3,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-10,-5); Shift_k=0; Elm_chdk=(3,7,10); #CLVMRO5; BD={ Rhythm{#BDMRO; rrrr rrXr} } SN={ Rhythm{#SNMRO; rrrr Krrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-9; Elm_chd=(-12,0,4,7,11); IF(Track==8){ Lyric={EbM7 TM} } #BASSMRO3; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(7,11,16); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO3; BD={ Rhythm{#BDMRO; xrxr xrxx} }　//フィルイン SN={ Rhythm{#SNMRO; rrkw nmkw} } HH={ Rhythm{#HHMRO; Hrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // #DATA5B={ Global_key=0; //Key:C l1+1 Shift_key=-5; Elm_chd=(-7,0,3,7,10,24); IF(Track==8){ Lyric={Gm7/C DM} } #BASSMRO1; Shift_h=0; Elm_chdh=(0,3,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-7,-5); Shift_k=0; Elm_chdk=(3,7,10); #CLVMRO1; BD={ Rhythm{#BDMRO; rrrr rrrX} } SN={ Rhythm{#SNMRO; rrrr l48 kkkk kkkk rrrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-2; Elm_chd=(0,4,7,11); IF(Track==8){ Lyric={BbM7 SD} } #BASSMRO5; Shift_h=0; Elm_chdh=(0,4,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO5; BD={ Rhythm{#BDMRO; rrrr xrXr} } SN={ Rhythm{#SNMRO; rrrr rrrr | rrrr　rrkr } } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} Global_key=5; l1+1 Shift_key=-5; Elm_chd=(-12,0,4,7,10); IF(Track==8){ Lyric={G7 D} } #BASSMRO3; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(7,10,19); Shift_j=0; Elm_chdj=(-12,-5,4); Shift_k=0; Elm_chdk=(4,7,10); #CLVMRO3; BD={ Rhythm{#BDMRO; rrrr rrrx} } //シンバル裏のバス SN={ Rhythm{#SNMRO; rrrr rrrr} } HH={ Rhythm{#HHMRO; l48 rrrr rrrr rrrr dddd dddd drrr | Brrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // // #DATA4A={ Global_key=0; //Key:C l1+1 Shift_key=-3; Elm_chd=(0,3,7,10,14); IF(Track==8){ Lyric={Am9 T <- Dm9 SD} } #BASSMRO1; Shift_h=0; Elm_chdh=(0,3,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(3,10,14); #CLVMRO1; BD={ Rhythm{#BDMRO; rrrr rrrr} } SN={ Rhythm{#SNMRO; rrrr l48 kkkk kkkk Krrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-2; Elm_chd=(0,4,7,9); IF(Track==8){ Lyric={Bb6 DM <- BbM7 SD} } #BASSMRO2; Shift_h=0; Elm_chdh=(0,4,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(4,7,9); #CLVMRO5; BD={ Rhythm{#BDMRO; rrrr rrXr} } SN={ Rhythm{#SNMRO; rrrr Krrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-1; Elm_chd=(0,5,7,10,17); IF(Track==8){ Lyric={"B7sus4 2SD [部分転調始め]"} } #BASSMRO31; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(7,10,17); Shift_j=0; Elm_chdj=(0,10); Shift_k=0; Elm_chdk=(5,7,10); #CLVMRO31; BD={ Rhythm{#BDMRO1;} } SN={ Rhythm{#SNMRO1;} } HH={ Rhythm{#HHMRO1;} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-1; Elm_chd=(0,4,7,10,15); IF(Track==8){ Lyric={"B7#9 2D [部分転調終い]"} } #BASSMRO32; Shift_h=0; Elm_chdh=(-17,-5); Shift_i=0; Elm_chdi=(0,10,15); Shift_j=0; Elm_chdj=(0,4,10); Shift_k=0; Elm_chdk=(4,15,19); #CLVMRO32; BD={ Rhythm{#BDMRO2; XrXr Xrrr} } //導入部前前 フィルイン SN={ Rhythm{#SNMRO2; kkkk wrrr} } HH={ Rhythm{#HHMRO2; Jrrr rrCr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // // #DATA5C={ Global_key=0; //Key:C l1+1 Shift_key=-8; Elm_chd=(-7,0,3,7,10); IF(Track==8){ Lyric={Em7/A T,D} } #BASSMRO1; Shift_h=0; Elm_chdh=(0,3,10); Shift_i=0; Elm_chdi=(-12,-5); Shift_j=0; Elm_chdj=(-7,0); Shift_k=0; Elm_chdk=(3,7,10); #CLVMRO1; BD={ Rhythm{#BDMRO; rrrr rrrX} } SN={ Rhythm{#SNMRO; rrrr l48 kkkk kkkk rrrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-2; Elm_chd=(-2,0,4,7,11); IF(Track==8){ Lyric={"BM7/A [コルトレーンチェンジ始め]"} } #BASSMRO51; Shift_h=0; Elm_chdh=(0,4,7); Shift_i=0; Elm_chdi=(-12,-5); Shift_j=0; Elm_chdj=(-2,0); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO51; BD={ Rhythm{#BDMRO1; } } SN={ Rhythm{#SNMRO1; } } HH={ Rhythm{#HHMRO1; } } IF(Fwd==1){#TRKSCT;}ELSE{r} Global_key=11; //Key:B l1 Shift_key=-10; Elm_chd=(-6,0,4,7,10); IF(Track==8){ Lyric={D7/Ab} } #BASSMRO52; Shift_h=0; Elm_chdh=(0,4,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-12,-6); Shift_k=0; Elm_chdk=(4,7,10); #CLVMRO52; BD={ Rhythm{#BDMRO2; rrrr xrXr} } SN={ Rhythm{#SNMRO2; rrrr rrrr | rrrr rrkr } } HH={ Rhythm{#HHMRO2; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-5; Elm_chd=(0,4,7,11); IF(Track==8){ Lyric={GM7} } #BASSMRO31; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(4,7,12); Shift_j=0; Elm_chdj=(-17,-12); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO31; BD={ Rhythm{#BDMRO1; } } SN={ Rhythm{#SNMRO1; } } HH={ Rhythm{#HHMRO1; } } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-1; Elm_chd=(-8,0,4,7,10); IF(Track==8){ Lyric={Bb7/F#} } #BASSMRO32; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(4,10,12); Shift_j=0; Elm_chdj=(-12,-8); Shift_k=0; Elm_chdk=(4,7,10); #CLVMRO32; BD={ Rhythm{#BDMRO2; rrrr rrxx} } //シンバル裏のバス SN={ Rhythm{#SNMRO2; rrrr rrrr} } HH={ Rhythm{#HHMRO2; l48 rrrr rrrr rrrr dddd dddd drrr | Brrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // #DATA5A={ Global_key=0; //Key:C l1+1 Shift_key=-8; Elm_chd=(-7,0,3,7,10); IF(Track==8){ Lyric={Em7/A T,D} } #BASSMRO1; Shift_h=0; Elm_chdh=(0,3,7); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-7,-5); Shift_k=0; Elm_chdk=(3,7,10); #CLVMRO1; BD={ Rhythm{#BDMRO; rrrr rrrX} } SN={ Rhythm{#SNMRO; rrrr l48 kkkk kkkk rrrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-10; Elm_chd=(-6,0,3,7,10,14); IF(Track==8){ Lyric={Dm9/Ab SD} } #BASSMRO5; Shift_h=0; Elm_chdh=(0,3,7); Shift_i=0; Elm_chdi=(-12,2); Shift_j=0; Elm_chdj=(-6,3); Shift_k=0; Elm_chdk=(3,7,14); #CLVMRO5; BD={ Rhythm{#BDMRO; rrrr xrXr} } SN={ Rhythm{#SNMRO; rrrr rrrr} } HH={ Rhythm{#HHMRO; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} Global_key=5; //Key:F l1+1 Shift_key=-5; Elm_chd=(-7,0,5,7,10); IF(Track==8){ Lyric={G7sus4 SD} } #BASSMRO8; Shift_h=0; Elm_chdh=(-12,-7,0); Shift_i=0; Elm_chdi=(-7,0,7); //パワーコード気味へ変更 Shift_j=0; Elm_chdj=(0,5,10); Shift_k=0; Elm_chdk=(0,5,12); #CLVMRO8; BD={ Rhythm{#BDMRO; Xrrr rrrr} } //導入部 フィルイン SN={ Rhythm{#SNMRO; krkr kkkr | rrrr rrkr } } HH={ Rhythm{#HHMRO; JrJr rrrB} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-5; Elm_chd=(-12,0,4,7,10); IF(Track==8){ Lyric={G7 D} } #BASSMRO3; Shift_h=0; Elm_chdh=(-17,-12,-8); Shift_i=0; Elm_chdi=(4,10,12); Shift_j=0; Elm_chdj=(-5,4,10); Shift_k=0; Elm_chdk=(7,10,16); #CLVMRO3; BD={ Rhythm{#BDMRO; rrrr rrrx} } //シンバル裏のバス SN={ Rhythm{#SNMRO; rrrr rrrr} } HH={ Rhythm{#HHMRO; l48 rrrr rrrr rrrr dddd dddd drrr | Brrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // #DATA6C={ Global_key=11 //Key:B l1+1 Shift_key=-9; Elm_chd=(-10,0,4,7,11); IF(Track==8){ Lyric={"EbM7/F SDM [コルトレーンチェンジ終い]"} } //DM7 [CM7 -> Am69] #BASSMRO1; Shift_h=0; Elm_chdh=(0,4,7); Shift_i=0; Elm_chdi=(-12,-10); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO1; BD={ Rhythm{#BDMRO; XrXr rrrr} } //導入部前 フィルイン SN={ Rhythm{#SNMRO; rrkk kkwr} } HH={ Rhythm{#HHMRO; JJrr rrrr | Crrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} Global_key=6; //Key:F# l1 Shift_key=-7; Elm_chd=(0, 3, 7, 9, 14); IF(Track==8){ Lyric={Fm69 SDM} } //Bm69 #BASSMRO21; Shift_h=0; Elm_chdh=(0,3,9); Shift_i=0; Elm_chdi=(-12,-5); Shift_j=0; Elm_chdj=(0,7); Shift_k=0; Elm_chdk=(7,9,14); #CLVMRO51; BD={ Rhythm{#BDMRO1;} } SN={ Rhythm{#SNMRO1;} } HH={ Rhythm{#HHMRO1;} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-5; Elm_chd=(0, 4, 7, 10, 15); IF(Track==8){ Lyric={G7#9 D} } //C#7#9 #BASSMRO22; Shift_h=0; Elm_chdh=(0,4,10); Shift_i=0; Elm_chdi=(-24,-17); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(7,10,15); #CLVMRO52; BD={ Rhythm{#BDMRO2; rrrr rrXr} } SN={ Rhythm{#SNMRO2; rrrr Krrr | rrrr rrkr } } HH={ Rhythm{#HHMRO2; Jrrr rrrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=0; Elm_chd=(0,4,7,11); IF(Track==8){ Lyric={"CM7 T [半音上へ転調完了]"} } #BASSMRO3; Shift_h=0; Elm_chdh=(-24,-17); Shift_i=0; Elm_chdi=(7,11,16); Shift_j=0; Elm_chdj=(-12,-5); Shift_k=0; Elm_chdk=(4,7,11); #CLVMRO6; BD={ Rhythm{#BDMRO; l48 xrxr xxxx rrrr rrrr rrrr rrrr} } //フィルイン SN={ Rhythm{#SNMRO; knkn wmWM} } HH={ Rhythm{#HHMRO; Jrrr rrrr | Crrr} } IF(Fwd==1){#TRKSCT;}ELSE{r} } // // 後半 #DATAB00={　Global_key=10; //Key:Bb l1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 IF(Track==1){ @53,32 P=7 V.T(0,11, !1+1+1+1, 11,70,!1+1+1+1, 70,70,!1+1+1+1 +1+1+1+1) } IF(Track==2){ @95,0 P=64 V.T(0,11, !1+1+1+1, 11,70,!1+1+1+1, 70,70,!1+1+1+1 +1+1+1+1) } IF(Track==3){ @86,0 P=120 V.T(0,11, !1+1+1+1, 11,70,!1+1+1+1, 70,70,!1+1+1+1 +1+1+1+1) } IF(Track==4){ V.T(0,11, !1+1+1+1+1+1, 11,66,!1+1, 66,66,!1+1+1+1 +1+1+1+1) } IF(Track==8){ V.T(0,11, !1+1+1+1+1+1+1+1+1+1+1+1 ,11,77,!1, 77,99,!1+1+1) } IF(Track==9){ V.T(0,11, !1+1+1+1+1+1+1+1+1+1+1+1 ,11,77,!1, 77,99,!1+1+1) } IF(Track==15){ V.T(77,120,!1, 120,120,!1+1+1, 120,77,!1+1+1+1, 77,77,!1+1+1+1 +1+1+1+1) } IF(Track==16){ V.T(77,120,!1, 120,120,!1+1+1, 120,77,!1+1+1+1, 77,77,!1+1+1+1 +1+1+1+1) } Shift_key=-8; Elm_chd=(-12,0,3,7,10); IF(Track==8){ Lyric={"Em7 T [転調 Key:Bb]"} } HH={ Rhythm{ l4 rrrr rr V=66 l16 rdrd rdrd l4 rrrr rr l16 rdrd rdrd l1 rrrr V=120} } //4小節のみ IF(Fwd==1){#TRKSCT;}ELSE{r} } // #DATAB1={ Global_key=10; //Key:Bb IF(Track==1){ V.T(70,108,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } IF(Track==2){ V.T(70,108,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } IF(Track==3){ V.T(70,108,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } IF(Track==4){ V.T(66, 90,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } IF(Track==8){ V.T(99,116,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } IF(Track==9){ V.T(99,116,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } IF(Track==15){ V.T(77,111,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } IF(Track==16){ V.T(77,111,!1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1 +1+1+1+1) } l1+1 Shift_key=-10; Elm_chd=(0, 3, 7, 10, 14, 17); IF(Track==8){ Lyric={Dm11 SD} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-5; Elm_chd=(-7,0, 5, 7, 9); IF(Track==8){ Lyric={CM add9 T} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-5; Elm_chd=(0, 4, 7, 10, 14); IF(Track==8){ Lyric={G9 D} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-7; Elm_chd=(-12,0,4,7,11); IF(Track==8){ Lyric={FM7 SD} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-7; Elm_chd=(-10,0,4,7,11); IF(Track==8){ Lyric={FM7/G SD} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-8; Elm_chd=(-7,0,3,7,10); IF(Track==8){ Lyric={Em7/A T,D} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-3; Elm_chd=(-12,0,3,7,10); IF(Track==8){ Lyric={Am7 T} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-12; Elm_chd=(0, 4, 8, 10); IF(Track==8){ Lyric={"Caug7 [部分転調始め]"} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-8; Elm_chd=(-12,0,4,7,11); IF(Track==8){ Lyric={"EM7 [部分転調終い]"} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-8; Elm_chd=(0,3,7,10,14); IF(Track==8){ Lyric={Em9 T} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-3; Elm_chd=(-12,0,3,7,10); IF(Track==8){ Lyric={Am7 T} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1 Shift_key=-7; Elm_chd=(-12,0,4,7,11); IF(Track==8){ Lyric={FM7 SD} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-7; Elm_chd=(-10,0,4,7,11); IF(Track==8){ Lyric={FM7/G SD} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-10; Elm_chd=(-7,0,3,7,10); IF(Track==8){ Lyric={Dm7/G SD} } IF(Fwd==1){#TRKSCT;}ELSE{r} l1+1 Shift_key=-5; Elm_chd=(-12,0, 5, 7, 10); IF(Track==8){ Lyric={G7sus4 SD} } // F7sus4 SD IF(Fwd==1){#TRKSCT;}ELSE{r} } // #DATAB2={ Global_key=5; //Key:F l1+1 Shift_key=0; Elm_chd=(-12,0,4,7,11); IF(Track==8){ Lyric={"CM7 T [転調 Key:F]"} } IF(Fwd==1){#TRKSCT;}ELSE{r} Global_key=9; //Key:A l1+1 Shift_key=-2; Elm_chd=(-12,0,4,7,9); IF(Track==8){ Lyric={Bb6 DM Key:A} } //D6 Key:F IF(Fwd==1){#TRKSCT;}ELSE{r} Global_key=9; l1+1+1+1 Shift_key=0; Elm_chd=(-12, -5, 0, 4, 7, 11); IF(Track==8){ Lyric={"CM7 T [転調 Key:A]"} } //EM7 Key:F IF(Fwd==1){#TRKSCT;}ELSE{r} } // //データ呼び出し、コントロールブロック #PART0={ //初期パート Time=TimeBase*4; } // #PART00={ //休符パート l1+1 r } // #PART1={ //序章 IF(Track==8|Track==9){ Oct_key=24;} Part_key=0; IF(Track==4|Track==8|Track==9){ Fwd=1;} IF(Track==4){ V.T(0,66,!1+1+1+1 +1+1+1+1) } #DATA2;#DATA3; Fwd=0; // IF(Track==4|Track==8|Track==9|Track==15|Track==16){ Fwd=1;} IF(Track==15|Track==16){ V.T(0,110,!1+1+1+1 +1+1+1+1) #TR15RLD_SET; #TR16RLD_SET; } #DATA4B;#DATA5B; Fwd=0; Oct_key=0; //初期化 IF(Track==15|Track==16){ #TR15ERS_SET; } IF(Track==10|Track==11|Track==12){ Fwd=1;} #DATAA00; Fwd=0; // } // #PART2={ //前半 IF(Track==1|Track==2|Track==3|Track==5|Track==6|Track==7|Track==10|Track==11|Track==12){ Fwd=1;} Part_key=0; #DATA2;#DATA3;#DATA4A;#DATA5A; Fwd=0; // IF(Track==1|Track==2|Track==3|Track==5|Track==6|Track==7|Track==10|Track==11|Track==12|Track==15|Track==16){ Fwd=1;} Part_key=0; IF(Track==15|Track==16){ V.T(0,77,!1+1+1+1,77,77,!1+1+1+1) #TR15RLD_SET; #TR16RLD_SET; } #DATA2;#DATA3;#DATA4A;#DATA5C;#DATA6C; Fwd=0; // } // #PART3={ //後半 IF(Track==1|Track==2|Track==3|Track==9|Track==8){ Chg=1;} IF(Track==1|Track==2|Track==3|Track==4|Track==8|Track==9|Track==12|Track==15|Track==16){ Fwd=1;} IF(Track==1|Track==2|Track==3){ CHO=0 REV.T(14+10,6+10,!1+1+1+1+1+1) } #DATAB00; Fwd=0; // IF(Track==1|Track==2|Track==3|Track==9|Track==8){ Chg=1;} IF(Track==1|Track==2|Track==3|Track==4|Track==8|Track==9|Track==15|Track==16){ Fwd=1;} #DATAB1; Fwd=0; Chg=0; //初期化 } // #PART4={ //終局 IF(Track==1|Track==2|Track==3|Track==9|Track==8){ Chg=1;} IF(Track==8|Track==9){ Oct_key=24;} IF(Track==15|Track==16){ Oct_key=24;} IF(Track==1|Track==2|Track==3|Track==4|Track==8|Track==9|Track==15|Track==16){ Fwd=1;} IF(Track==1|Track==2|Track==3){ REV.T(6+10,24+10,!1+1+1+1,24,60,!1+1) } #DATAB2; Fwd=0; Oct_key=0; Chg=0; //初期化 } // //ソング出力ブロック #SONG={ #PART0; IF(Track==8){ TrackName ={" --- 帰還 --- [序章]"} } #PART1; IF(Track==8){ TrackName ={" --- 帰還 --- [前半]"} } #PART2; IF(Track==8){ TrackName ={" --- 帰還 --- [後半]"} } #PART3; IF(Track==8){ TrackName ={" --- 帰還 --- [終局]"} } #PART4; IF(Track==8){ TrackName ={" --- 帰還 --- "} } #PART00; } // //テストブロック /* #SONG={ #PART0; IF(Track==10|Track==11|Track==12){ Fwd=1;} Part_key=0; #DATAA00; Fwd=0; Oct_key=0; Chg=0; //初期化 } */ Include(gs.h); ResetGS()r4; CH(10) GS_RHYTHM(1)r8; //RF BD CH(11) GS_RHYTHM(2)r8; //RH Sn CH(12) GS_RHYTHM(1)r8; //LH HH SysEx$ = F0,7F,7F,04,01,00,6E,F7;r24 //MASTER VOLUME : 127 -> 110[6E] // MASTER TUNEが442Hzなってるらしいので調律をリセット // SysEx$ = F0,41,10,42,12,40,00,00,00,04,0C,04,2C,F7;r48 //MASTER TUNE 445Hz SysEx$ = F0,41,10,42,12,{40,00,00,00,04,00,00},F7;r48 //MASTER TUNE 440Hz auto chksum // A4 438Hz 439Hz 440Hz 441Hz // DATA 00 03 0B 01 00 03 0D 09 00 04 00 00 00 04 02 07 // A4 442Hz 443Hz 444Hz 445Hz // DATA 00 04 04 0F 00 04 07 06 00 04 09 0D 00 04 0C 04 // Function GSScaleTuningは、ドラムトラック拡張時は使用しないほうがよい? Function GSScaleTuningKAI (C,Cp,D,Dp,E,F,Fp,G,Gp,A,Ap,B){ // Int DeviceNumber = $10; FOR(Int I=$11; I <= $1F ; I++){ //[$10がTR=10に該当] IF(I< $1A | $1B< I){ //[$1A,$1BがTR=11,12に該当] SysEx = $F0,$41,(DeviceNumber),$42,$12,{$40,(I),$40,(C),(Cp),(D),(Dp),(E),(F),(Fp),(G),(Gp),(A),(Ap),(B)},$F7; } } } // // Pitch KeyinA 444Hz(+16セント) //ドラムトラックは迂回 GSScaleTuningKAI (64+16,64+16,64+16,64+16,64+16,64+16,64+16,64+16,64+16,64+16,64+16,64+16)r3; //[+63,-64]RPN // 1200*log(442/440)/log2 = 7.85141504セント グーグル電卓機能より // 1200*log(444/440)/log2 = 15.6673834セント BR(12) // TW-Music2(DirectX[Music]) Effect // ReverbSetting Time Dpth High Mix //-- CuePoint={"TwmParam (111, 60, 127,120)"} //初期値(127,117,0,127) CuePoint={"TwmParam (101, 66, 11, 88)"} //初期値(127,117,0,127) // CuePoint={"TwmParam (127, 127, 60)"} //tenjyou.mmlより参照設定 // 高周波を比較的強く出し //tenjyou.mmlより参照コメント // タイム・デプス共に最大で演出的に // Time [0-127], // Gain [0-127], // HighFreq [0-127], // Mix [0-127] // ChorusSetting Wave Mix Dpth FB Freq Dly Phs //-- CuePoint={"TwmChorus ( 1, 120, 33, 66, 11, 66, 3)"} //初期値(0,64,25,79,14,114,3) CuePoint={"TwmChorus ( 1, 44, 66, 111, 66,111, 1)"} //初期値(0,64,25,79,14,114,3) // CuePoint={"TwmChorus ( 1, 127, 30, 60, 1, 50, 0)"} //tenjyou.mmlより参照設定値 // ゆらぎの周期を最も遅くし、フランジャー設定 //tenjyou.mmlより参照コメント // ディレイを長めにとって、擬似ステレオに // Waveform [0-1], // WetDryMix[0-127], // Depth [0-127], // Feedback [0-127], // Frequency[0-127], // Delay [0-127], // Phase [0-4] TimeBase=168; Tempo=144; TrackSync; System.RandomSeed=65525 //乱数列を生成する数値 - 種を現在時刻から取得しないケース #COM_SET={ v.Random=9 t.Random=6 q.Random=3 } //ヒューマングルーブ付与 [和音とドラムは追加扱い] TimeKey((Time),,1); //移調 C# TR=1 FineTune=64+2 #TR1SET={ P=100 V=98-4 REV=14+10 CHO=44+30 Master_key=48; #COM_SET;} //EP.onNoteWaveEx(127,80,!4) EP.Frequency=10 #TR1SET; @81,8 //Sine r48 #SONG; //r48はジャストクロックタイミングをずらすため TR=2 FineTune=64-2 CoarseTune=64+12 #TR1SET; @5,24 //EP 60's r48 #SONG; TR=3 FineTune=64 #TR1SET; @93,0 //Bowed Glass r48 #SONG; TR=4 FineTune=64 V=100 // EP.onNoteWaveEx(127,120,!1)　//Func側へ移動 EP.Frequency=10 P.onNote(32,32,32,32,32,96,96,96,96,96,0,0,0,0,0,127,127,127,127,127) REV=0+36 CHO=0 Master_key=96; #COM_SET; @81,8 //Sine r30 #SONG; TR=5 FineTune=64+1 CoarseTune=64 #TR5SET={ PitchBend.onNoteWaveEx(0,-111,!3) p.Random=10 p.Frequency=10 P=40 V=87+39 REV=8+16 CHO=0+1 Master_key=24; #COM_SET;} #TR5SET; @52,0 //Syn.Strings2 r60 #SONG; TR=6 FineTune=64-2 CoarseTune=64+12 #TR5SET; @82,1 //Saw r60 #SONG; TR=7 FineTune=64-1 CoarseTune=64+12 @81,8 //Sine #TR5SET; r60 #SONG; TR=8 FineTune=64-2 P=6 #TR8SET={PitchBend.onNoteWaveEx(-111,0,!4) p.Frequency=10 EP.onNoteWaveEx(127,120,!1) EP.Frequency=6 V=100 REV=36+27 CHO=0+1 Master_key=60; #COM_SET;} #TR8SET; @81,1 //Square #SONG; TR=9 FineTune=64+2 P=121 #TR8SET; @81,1 //Square #SONG; UseKeyShift(off) //タイムキー:off / 移調:off TR=10 PitchBend=-6000 V=96+27 //音色の前に読まないとなぜか反映しない P=70 REV=23+40 CHO=0 #COM_SET; @26 //BD / TR-808 #SONG; TR=11 PitchBend=6000 V=105 P=24 REV=21+40 CHO=0 #COM_SET; @25 //Sn / Elc.Dr #SONG; TR=12 PitchBend=-6000 V=110 P=85 REV=19+40 CHO=0 #COM_SET; @26 //HH / TR-808 #SONG; UseKeyShift(on) //タイムキー:on / 移調:on TR=15 FineTune=64-1 CoarseTune=64 #TR15RLD_SET={ PitchBend.onNoteWave(-444,444,!1+1) p.Frequency=10 P.onNoteWaveEx(16,96,!4) P.Frequency=10 EP.onNoteWaveEx(0,96,!2,96,0,!4) EP.Frequency=10 } #TR15ERS_SET={ PitchBend=0 P=64 EP=0 } M=6 // P=96 #TR15SET={ V=110 REV=1+44 CHO=0+1 Master_key=36; #COM_SET;} #TR15SET; @96,0 //Warm Pad r12 #SONG; TR=16 FineTune=64+1 CoarseTune=64 #TR16RLD_SET={ PitchBend.onNoteWave(111,-111,!1+1) p.Frequency=10 P.onNoteWaveEx(96,31,!4) P.Frequency=10 EP.onNoteWaveEx(96,32,!4,32,96,!2) EP.Frequency=10 } M=11 // P=31 #TR15SET; @102,0 //Goblin r12 #SONG;