//_------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37) //_------------------------------------------------------------------------------ MetaText = {" Water Forest = Trance "}; //↑:タイトル Copyright = {" ＭＭ GM/GSで作成 Ver.4.1 "}; //著作権表示 //_一応、曲の説明？---------------------------------------------------------------------------------- //下のナンバーを変えると曲のタイプが変わります // 1 ＝ 従来のGM規格で制作 // 2 ＝ GS規格で制作（試験運転用テンプレート） Str NO = 2 /*…オリジナル(以後:自) 作曲　投稿 No.20 … 暫定完了 [ Water Forest ] ※ 説明欄が長くなりました…すみません(汗; ...ですので読むのが面倒だなぁ…と思う方は説明欄を飛ばして下さい（汗； 　初めての御方は「初めまして、宜しくお願い致します」 m(_ _)m 皆様、こんにちは、お久しぶりです、[ ＭＭ(えむえむ) ] です。 そして、ダウンロードして頂き誠に有り難うございます m(_ _)m 　今回は…そろそろ新境地を開こう!!と言う事で初めてのGS規格で製作してみました。 曲調はかなり短めで、音ゲー等の挿入曲っぽい感じで仕上げてみました。 後は、ドラムを複数で演奏・コード３のインクルの使い方・各種の設定等等…です。 ・ １ はいつも通りのGMでTWM2で作曲 ・ ２ は今回初めてGSの試作テンプレをアップ …という風になっております。 しかし、相変わらずGSの使い方がいまいちピンっと来ていないのか？地味に理解している様でしていない感じ のテンプレです（汗; 一応、演奏する分には問題は無いみたいなのですが、一つ問題点が解決されていない所が有るみたいでして… 　途中演奏すると… TR10のドラムは正常に番号をふった通りの音源になるのですが、TR11はナゼかスタンダートに戻ってしまう… と言う現象が起きます…（自分のPCでの現象なのですが<汗;） 　一先ず、原因が特定出来るまでは最初から演奏でこのGS用のテンプレでやってみようかと思います。 まだまだ処理の仕方といい、音色の付け方といい、拙い部分は有り、展開や終わり方がざっくりとした感じに なってしまいましたが、楽しく聴いて頂けたら作り手としては本当に嬉しい限りです 　それでは、お粗末ながらも長文の御説明を最後まで御付き合いして頂き、誠に有難う御座います m(_ _ )m 　　　これで、失礼致します!! (´・ω・`)ﾉｼ 《 更新記録 》 ・2012/ 7/ 6 … Ver.4.1 一先ず全体の流れが出来上がり、しょーと版 ( 通常版 … [ 2:00〜3:30 ] を目安に作っております ) 細かい修正もしたけど…どうでしょうか？ (汗; 《 その他 》 ・使用音源等 … 「ＴＷＭ２ ( 推奨 ) 」・ ヘッドホン ( Sony社の[ MDR-XD200 ) で制作 出来れば、イヤホンやヘッドホンで聴いて頂けると嬉しいです Vista使用者は「音割れや無音」にご注意下さい　m(_ _)m ・ [ REMIX ]等する際は、 コメ欄に「○○に使用しますよ」等と一言声を掛けて頂けたら有り難いです m(_ _)m */ IF(NO==1){ //_ = 初期設定 = ---------------------------------------------------------------------------- Time(0:1:0); TimeSignature = 4,4; //拍子記号の設定 System.MeasureShift = 1; //初期設定の位置を小節数分ずらす(弄らないこと) System.TimeBase = 96; //四分音符分解機能を設定 ResetGM; r1 ResetGS; r1 //音源初期化命令 TrackSync; r1 //全てのトラックを同期化 KeyFlag=(0,0,0,0,0,0,0); // 記号設定 /*定義ファイルの読込欄*/ Include(unison.h); Include(delay.h); Include(bend.h); Include(stdmsg.h); Include(fadeio.h); Include(chord3.h) //_簡単命令文-------------------------------------------------------------------- Function BT(UD1,UD2,L){ p%.T(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(時間指定) Function BNW(UD1,UD2,L){ p%.WR(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(ノート毎) Function TC(TC1,TC2,VT){ TempoChange(TC1,TC2,VT); } //ﾃﾝﾎﾟﾁｪﾝｼﾞ(今のﾘｽﾞﾑ,変えたいﾘｽﾞﾑ,掛かる時間) Function VC(Vh1,Vt1,Vh2,Vt2){ M.WR(0,Vh1,Vt1,Vh1,Vh2,Vt2); } //ﾋﾞﾌﾞﾗｰﾄの掛かり具合(Vhは大きさ,Vｔは掛かる時間) Function BP(X,Y){ BR(X); p%(Y); } /* ピッチを戻す */ Function Po(Int Po,po){ If(Po==on){y64(po);} Else{y64(0);} } /* ﾍﾟﾀﾞﾙを押す放す */ Function RC(Int R,C){ REV(R);CHO(C); } /* リバーブとコーラスを纏めておく */ Function Vm(Int V,O,L,m){ v(V);o(O);l(L);M(m); } /* 左から [ Vel; Oct; l ; Mod の順で短縮 [←: v〜M ] */ Function TK(T){ TrackKey = (T) } // トラックキー Function EV(E,v){ EP(E);V(v); } // EPとVを簡略化のつもりです(w 初期設定は[ 100,100 ] //_ﾘｽﾞﾑｽﾍﾟｰｽ------------------------------------------------------------------------------ /*リズムの定義*/ $S{n82,}/*ｼｪｲｶｰ*/ $h{n39,}/*ﾊﾝﾄﾞｸﾗｯﾌﾟ*/ $O{n46,}/*ﾊｲﾊｯﾄ(ｵｰﾌﾟﾝ)*/ $p{n44,}/*ﾍﾟﾀﾞﾙﾊｲﾊｯﾄ*/ $H{n42,}/*ﾊｲﾊｯﾄ(ｸﾛｰｽﾞ)*/ $k{n36,}/*ﾊﾞｽﾄﾞﾗ1*/ $K{n35,}/*ﾊﾞｽﾄﾞﾗ2*/ $s{n38,}/*ｽﾈｱ1*/ $w{n40,}/*ｽﾈｱ2*/ $M{n43,}/*ﾛｰﾀﾑ1*/ $m{n41,}/*ﾛｰﾀﾑ2*/ $J{n47,}/*ﾐﾄﾞﾙﾀﾑ1*/ $j{n45,}/*ﾐﾄﾞﾙﾀﾑ2*/ $U{n50,}/*ﾊｲﾀﾑ1*/ $u{n48,}/*ﾊｲﾀﾑ2*/ $B{n56,}/*ｶｳﾍﾞﾙ*/ $G{n53,}/*ﾗｲﾄﾞﾍﾞﾙ*/ $F{n51,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ1*/ $R{n59,}/*ﾗｲﾄﾞｼﾝﾊﾞﾙ2*/ $C{n49,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ1*/ $c{n57,}/*ｸﾗｯｼｭｼﾝﾊﾞﾙ2*/ $D{n52,}/*ﾁｬｲﾅ */ $d{n55,}/*ｽﾌﾟﾗｯｼｭ */ TR(10); Time(0:1:8); CH(10); @(27,90,0); RC(12,80);EV(125,125); Time(1:1:0); TR(20); Time(0:1:8); CH(10); BR(48); BT(0,512,!8); Time(1:1:0); TR(21); Time(0:1:8); CH(10); Time(1:1:0); TR(22); Time(0:1:8); CH(11); @(119,0,0); Vm(100,4,16,0); RC(0,0);EV(100,100); //------------------------------------------------------------------------------ Rythm{(TR(10); //トラックとチャンネルをリズムモード（10）に設定 #S1 = { v.onNote(80,55,85,55); } ) //_ｼｪｲｶｰ {{ (Time(1:1:0)); v(50); l16;[8 rSSr SSrS rSSr SSrS rSSr SSrS rSSr SSrS ] (Time(18:1:0));[8 rSSr SSrS rSSr SSrS rSSr SSrS rSSr SSrS ] } //_ﾊﾝﾄﾞ (Time(1:1:0)); v(100); l16; [8 [4 r4h4 ] ] r4h4 h8.h8.h8 (Time(18:1:0)); [8 [3 r4h4 ] r4h8h8 ] r4h4 h8.h8.h8 } //_ｵｰﾌﾟﾝ&ｸﾛｰｽﾞﾊｲﾊｯﾄ+α (Time(1:1:0)); v(100); l16; #S1; #S1;[5 ppHp ppHp ppHp ppHp | ppHp ppHp pHHp HpHp ]v110[ Hrc0d0OrrD0C0Orr ] #S1; ppHp ppHp v82 OOpO pOOO #S1; ppOp ppOp v82 OOpO pOOO #S1; [ ppOp ppOp ppOp ppOp | ppOp ppOp pHOp OpOp ] (Time(18:1:0)); #S1; [[ HrOr HrOr HrOr HrOr : HrOr HrOr HrOr HrOr ] HrOr HrOr OOrO rOOO ] v100[8 O8v-4][8Ov+5][8O32v+1][12O48v+2] v110 [ Hrc0d0OrrD0C0Orr ] #S1; ppHp ppHp v82 OOpO pOOO #S1; ppOp ppOp v82 OOpO pOOO #S1; [ ppOp ppOp ppOp ppOp | ppOp ppOp pHOp OpOp ] 　　　//Track10のライン (TR(20);) //_Cowbell=ｶｳﾍﾞﾙ {{ (Time(1:1:0)); v(80); l16; [[15G4]G8G8][7G4]G8G8 [ v80;F0Rr v120;GrrGrr] [[v90 G8 v75 F0R8]v84;GGGG8GG8][[7 v90 G8 v75 F0R8 ] v100 G8G8] (Time(18:1:0));[[15 v90 G8 v75 F0R8 ] v100 G8G8][7 v90 G8 v75 F0R8 ] v100 G8G8 [ v80;F0Rr v120;GrrGrr] [[v90 G8 v75 F0R8]v84;GGGG8GG8][[7 v90 G8 v75 F0R8 ] v100 G8G8] } (Time(1:1:0)); v(120); l16; (Time(12:1:0)); D0C0c1 (Time(18:1:0)); D0C0c1 (Time(29:1:0)); D0C0c1 }//Track20まで (TR(21);) //_ｷｯｸ(ﾊﾞｽﾄﾞﾗ)+ﾀﾑ系 {{ (Time(1:1:0)); v(125); l16; [15 k4 ] k8k8 [7 k4 ] k8k8 [6 k4 ] [k8] [4k] [6 k4 ] [k8] [4k] [k8k8.k8.][ k4 ] [k8] [4k] [3 k4 ] k8k8 [7 k4 ] k8k8 [4 k4 ] [k8 [6k64] r24 ] [[6k64]r12] [9k96] (Time(18:1:0));v(125); [15 k4 ] k8k8 [7 k4 ] k8k8 [6 k4 ] [k8] [4k] [6 k4 ] [k8] [4k] [k8k8.k8.][ k4 ] [k8] [4k] [3 k4 ] k8k8 [7 k4 ] k8k8 [4 k4 ] [k8 [6k64] r24 ] [[6k64]r12] [9k96] } //_ｽﾈｱ(ｺﾞｰｽﾄ) (Time(1:1:0)); v(55); l16; }//Track21まで }//Rythmまで TR(22); CH(11); //ﾊﾞｽﾄﾞﾗ（Elec-Dr） Time(1:1:0); //_ﾄﾗｯｸｽﾍﾟｰｽ = 基本設定 = ------------------------------------------------------------------------------------------------- TR(01); CH(01); Time(0:2:16); Tempo(90); @(051, 0,0); RC(60,20); Vm(98,6,1,48); q(098); P(096); EV(100,100); // TR(02); CH(02); Time(0:2:16); @(082, 90,1); RC(60,20); Vm(98,6,1,48); q(098); P(032); EV(100,100); // TR(03); CH(03); Time(0:2:16); @(045, 00,0); RC(100,40); Vm(78,7,1,48); q(098); P(064); EV(100,100); // TR(04); CH(04); Time(0:2:16); @(040, 16,0); RC(20,120); Vm(108,4, 8,0); q(075); P(064); EV(110,110); // TR(05); CH(05); Time(0:2:16); @(039, 0,0); RC(80,120); Vm(120,3, 8,0); q(075); P(064); EV(120,120); // TR(06); CH(06); Time(0:2:16); @( 89,000,0); RC(40,0); Vm(100,7,8,0); q(050); P(064); EV(100,100); // TR(07); CH(07); Time(0:2:16); @( 81, 1,0); RC(40,0); Vm(108,7,8,0); q(050); P(064); EV(100,100); // TR(08); CH(08); Time(0:2:16); @(003, 08,0); RC(60,20); Vm(104,6,1,0); q(098); P(064); EV(100,120); // TR(09); CH(09); Time(0:2:16); @(082,110,0); RC(88,48); Vm(88,6,1,0); q(098); P(064); EV(100,100); // TR(12); CH(12); Time(0:2:16); @(013, 00,0); RC(20,88); Vm(96,6,8,0); q(50); P(064); EV(100,120); // TR(13); CH(13); Time(0:2:16); @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // TR(14); CH(14); Time(0:2:16); @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // TR(15); CH(15); Time(0:2:16); @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // TR(16); CH(16); Time(0:2:16); @(001,0,0); RC(0,0); Vm(0,0,0,0); q(098); P(064); EV(100,100); // //_ﾄﾗｯｸｽﾍﾟｰｽ2 = 各種設定 = ------------------------------------------------------------------------------------------------ TR(1); CH(1); Int TKX = 0 // ﾒｲﾝﾊﾟｰﾄ1… Time(1:1:0); Tempo(155); TK=TKX Str CHO1 = { #KEY_C; Tm1(!1,1); Dm4(!1,3); Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2); #KEY_B; Tm1(!1,2); SD1(!1,2); Tm1(!1,1); SD2(!1,1); T3(!1,1); T2(!2,1); T2(!2,1); V.WR(0,120,!8,110,60,!4.); SDM5(!2,2);SDM6(!2,2); #KEY_A; V.T=45,100,!2 T4(!1,1); SDM5(!2,1);SDM6(!2,1); #KEY_Fp; T4(!1,4); SDM5(!2,4);SDM6(!2,4); #KEY_Cp; T2(!1,3); T1(!1,3);^2 } Str CHO1h = { #KEY_C; Tm1(!1,1); Dm4(!1,3); Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2); #KEY_B; Tm1(!1,2); SD1(!1,2); Tm1(!1,1); SD2(!1,1); T3(!1,1); T2(!2,1); T2(!2,1); V.WR(45,120,!8,120,60,!4.); SDM5(!2,2);SDM6(!2,2); #KEY_A; V.WR(45,90,!4); T4(!1,1); SDM5(!2,1);SDM6(!2,1); #KEY_Fp; T4(!1,4); SDM5(!2,4);SDM6(!2,4); #KEY_Cp; T2(!1,3); T1(!1,3);^2 } Str CHO2 = { #KEY_C; Tm1(!1,1); Dm4(!1,3); Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2); #KEY_B; Tm1(!1,2); SD1(!1,2); Tm1(!1,1); SD2(!1,1); T3(!1,1); T2(!2,1); T2(!2,1); V.WR(120,60,!2); SDM5(!2,2);SDM6(!2,2); #KEY_A; V=120 T4(!1,1); SDM5(!2,1);SDM6(!2,1); #KEY_Fp; T4(!1,4); SDM5(!2,4);SDM6(!2,4); #KEY_Cp; T2(!1,3); T1(!1,3);^2 } Time(1:1:0); EP.WR(45,105,!1,105,30,!1);CHO1 Time(18:1:0); CHO1 //------------------------------------------------------------------------------ TR(2) ;CH(2); // ﾒｲﾝﾊﾟｰﾄ1(ｱｼｽﾄ) Time(1:1:0); TK=TKX EP.WR(45,105,!1,105,30,!1); CHO1 Time(18:1:0); CHO1 //------------------------------------------------------------------------------ TR(3); CH(3); // ﾒｲﾝﾊﾟｰﾄ2… Time(1:1:0); TK=TKX EP.WR(105,30,!1,30,105,!1); CHO1 Time(18:1:0); CHO1 //------------------------------------------------------------------------------ TR(4); CH(4); // ﾒｲﾝﾊﾟｰﾄ2(ｱｼｽﾄ) Time(1:1:0); TK=TKX Sub{ o4 [rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b] [4rc+^c+]} Time(18:1:0);o4 [rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b] [4rc+^c+] // c"gcgc"g "be"be "b"b "g"a"g#"f"g"d#"d"e"g#"g# //------------------------------------------------------------------------------ TR(5); CH(5); // ｼﾝｾ系やSFX等 Time(1:1:0); TK=TKX EP.WR(30,125,!8.); [c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br] [4c+^c+r] Time(18:1:0); [c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br] [4c+^c+r] //------------------------------------------------------------------------------ TR(6); CH(6); // ｼﾝｾ系やSFX等のﾊﾞｯｸｱｼｽﾄ Time(1:1:0); TK=TKX P.N(64,96,32,104,24,74,56,44,84); MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) Time(18:1:0);MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) //------------------------------------------------------------------------------ TR(7); CH(7); // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? Time(1:1:0); TK=TKX P.N(64,32,96,24,104,56,74,84,44); MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) Time(18:1:0);MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) //------------------------------------------------------------------------------ TR(8); CH(8); TK=TKX // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? Time(1:1:0); CHO2 Time(18:1:0); CHO2 //------------------------------------------------------------------------------ TR(9); CH(9); // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? Time(1:1:0);BR=12 p%=128 TK=TKX EP.WR=60,100,!4,100,60,!2. V.WR(45,90,!4); P.WR=64,127,!16,127,0,!8,0,64,!16 CHO1h Time(18:1:0); CHO1h //------------------------------------------------------------------------------ TR(12); CH(12); // ｼﾝｾﾍﾞｰｽ系の下部ﾊﾟｰﾄ? Time(1:1:0); TK=TKX EP.WR=100,0,!8. [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] Time(18:1:0); TK=TKX EP.WR=100,0,!8. [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] //------------------------------------------------------------------------------ //------------------------------------------------------------------------------ TR(13); CH(13); // SE等 Time(1:1:0); TK=TKX //------------------------------------------------------------------------------ TR(14); CH(14); // SE等 Time(1:1:0); //------------------------------------------------------------------------------ TR(15); CH(15); // SE等 Time(1:1:0); //------------------------------------------------------------------------------ TR(16); CH(16); // SE等 Time(1:1:0); //------------------------------------------------------------------------------ } IF(NO==2){ //_------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.37) //_------------------------------------------------------------------------------ MetaText = {" Water Forest ( Test-Type for GS ) = Trance "}; //↑:タイトル Copyright = {" ＭＭ GSで作成中 Ver.4.1 "}; //著作権表示 //_一応、曲の説明？--------------------------------------------------------------------------- /* */ //_ = 初期設定 = ---------------------------------------------------------------------------- TimeSignature = 4,4; //拍子記号の設定 System.MeasureShift = 1; //初期設定の位置を小節数分ずらす(弄らないこと) System.TimeBase = 128; //四分音符分解機能を設定 Tempo(90); //いんくるーどぅ☆ Include(unison.h); Include(delay.h); Include(bend.h); Include(stdmsg.h); Include(fadeio.h); Include(chord3.h) Include(groove.h); Include(gs.h); //リ…リセッシュしましょ♪ System.MeasureShift(1);ResetGS; //ドラムを増やして上げましょ♪ CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;//トラック11 //CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;//トラック12 //CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;//トラック13 //CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;//トラック14 //簡素ふぁんくしょん♪ Function BT(UD1,UD2,L){ p%.T(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(時間指定) Function BNW(UD1,UD2,L){ p%.WR(UD1,UD2,L,0,0,1); } // ベントを簡単に纏めておく(ノート毎) Function TC(TC1,TC2,VT){ TempoChange(TC1,TC2,VT); } //ﾃﾝﾎﾟﾁｪﾝｼﾞ(今のﾘｽﾞﾑ,変えたいﾘｽﾞﾑ,掛かる時間) Function VC(Vh1,Vt1,Vh2,Vt2){ M.WR(0,Vh1,Vt1,Vh1,Vh2,Vt2); } //ﾋﾞﾌﾞﾗｰﾄの掛かり具合(Vhは大きさ,Vｔは掛かる時間) Function BP(X,Y){ BR(X); p%(Y); } /* ピッチを戻す */ Function Po(Int Po,po){ If(Po==on){y64(po);} Else{y64(0);} } /* ﾍﾟﾀﾞﾙを押す放す */ Function RC(Int R,C){ REV(R);CHO(C); } /* リバーブとコーラスを纏めておく */ Function Vm(Int V,O,L,m){ v(V);o(O);l(L);M(m); } /* 左から [ Vel; Oct; l ; Mod の順で短縮 [←: v〜M ] */ Function EV(E,v){ EP(E);V(v); } // EPとVを簡略化のつもりです(w 初期設定は[ 100,100 ] Function TK(T){ TrackKey = (T) } // トラックキー Str KF = { KeyFlag+()} // トラックキー TrackSync;r1//全てのトラックを同期化 //------------------------------------------------------------------------------ //------------------------------------------------------------------------------ TR(1);CH(1);KF TK(0) @(051, 0,0); RC(60,20); Vm(98,6,1,48); q(098); P(096); EV(100,100); // Time(1:1:0) Tempo(155); Str CHO1 = { #KEY_C; Tm1(!1,1); Dm4(!1,3); Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2); #KEY_B; Tm1(!1,2); SD1(!1,2); Tm1(!1,1); SD2(!1,1); T3(!1,1); T2(!2,1); T2(!2,1); V.WR(0,120,!8,110,60,!4.); SDM5(!2,2);SDM6(!2,2); #KEY_A; V.T=45,100,!2 T4(!1,1); SDM5(!2,1);SDM6(!2,1); #KEY_Fp; T4(!1,4); SDM5(!2,4);SDM6(!2,4); #KEY_Cp; T2(!1,3); T1(!1,3);^2 } Str CHO1h = { #KEY_C; Tm1(!1,1); Dm4(!1,3); Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2); #KEY_B; Tm1(!1,2); SD1(!1,2); Tm1(!1,1); SD2(!1,1); T3(!1,1); T2(!2,1); T2(!2,1); V.WR(45,120,!8,120,60,!4.); SDM5(!2,2);SDM6(!2,2); #KEY_A; V.WR(45,90,!4); T4(!1,1); SDM5(!2,1);SDM6(!2,1); #KEY_Fp; T4(!1,4); SDM5(!2,4);SDM6(!2,4); #KEY_Cp; T2(!1,3); T1(!1,3);^2 } Str CHO2 = { #KEY_C; Tm1(!1,1); Dm4(!1,3); Tm1(!2,2); SD1(!2,2); Tm1(!2,2); Dm2(!2,2); #KEY_B; Tm1(!1,2); SD1(!1,2); Tm1(!1,1); SD2(!1,1); T3(!1,1); T2(!2,1); T2(!2,1); V.WR(120,60,!2); SDM5(!2,2);SDM6(!2,2); #KEY_A; V=120 T4(!1,1); SDM5(!2,1);SDM6(!2,1); #KEY_Fp; T4(!1,4); SDM5(!2,4);SDM6(!2,4); #KEY_Cp; T2(!1,3); T1(!1,3);^2 } Time(1:1:0); EP.WR(45,105,!1,105,30,!1);CHO1 Time(18:1:0); CHO1 //------------------------------------------------------------------------------ TR(2);CH(2);KF TK(0) @(082, 90,1); RC(60,20); Vm(98,6,1,48); q(098); P(032); EV(100,100); // Time(1:1:0); EP.WR(45,105,!1,105,30,!1);CHO1 Time(18:1:0); CHO1 //------------------------------------------------------------------------------ TR(3);CH(3);KF TK(0);@(045, 00,0); RC(100,40); Vm(78,7,1,48); q(098); P(064); EV(100,100); Time(1:1:0); EP.WR(105,30,!1,30,105,!1); CHO1 Time(18:1:0); CHO1 //------------------------------------------------------------------------------ TR(4);CH(4);KF TK(0);@(003, 16,0); RC(60,20); Vm(104,6,1,0); q(098); P(064); EV(100,120); Time(1:1:0); CHO2 Time(18:1:0); CHO2 //------------------------------------------------------------------------------ TR(5);CH(5);KF TK(0);@(082,110,0); RC(88,48); Vm(88,6,1,0); q(098); P(064); EV(100,100); // Time(1:1:0);BR=12 p%=128 TK=TKX EP.WR=60,100,!4,100,60,!2. V.WR(45,90,!4); P.WR=64,127,!16,127,0,!8,0,64,!16 CHO1h Time(18:1:0); CHO1h //------------------------------------------------------------------------------ TR(6);CH(6);KF TK(0);@(040, 16,0); RC(20,120); Vm(108,4, 8,0); q(075); P(064); EV(110,115); Time(1:1:0); Sub{ o4 [rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b] [4rc+^c+]} Time(18:1:0);o4 [rc^c][r"g^"g] rc^crf^f rc^cr"g^"g [[r"b^"b][re^e]] [4r"b^"b] [4rc+^c+] //------------------------------------------------------------------------------ TR(7);CH(7);KF TK(0);@(039, 0,0); RC(80,120); Vm(120,3, 8,0); q(075); P(064); EV(120,120); // Time(1:1:0); EP.WR(30,125,!8.); [c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br] [4c+^c+r] Time(18:1:0); [c^cr]["g^"gr] c^cr f^fr c^cr"g^"gr [["b^"br][e^er]] [4"b^"br] [4c+^c+r] //------------------------------------------------------------------------------ TR(8);CH(8);KF TK(0);@( 89,000,0); RC(40,0); Vm(100,7,8,0); q(050); P(064); EV(100,100); // Time(1:1:0); P.N(64,96,32,104,24,74,56,44,84); MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) Time(18:1:0); MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) //------------------------------------------------------------------------------ TR(9);CH(9);KF TK(0);@( 81, 1,0); RC(40,0); Vm(108,7,8,0); q(050); P(064); EV(100,100); // Time(1:1:0); P.N(64,32,96,24,104,56,74,84,44); MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) Time(18:1:0);MidiDelayS( [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] ) //------------------------------------------------------------------------------ TR(13);CH(13);KF TK(0);@(013, 00,0); RC(20,88); Vm(96,6,8,0); q(50); P(064); EV(100,120); // Time(1:1:0); EP.WR=100,0,!8. [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] Time(18:1:0); TK=TKX EP.WR=100,0,!8. [4cd#g`c] "gcd#c "adfd "gcd#c "gcdc ["f#"bdf#] ["g#"beg#] ["f#"bdf#] [ "e"f#"bd# ] ["d#"f#"a#"f# ] "e"f#"be f#"b"f#"e "g8.d8.f#8 "f#8."a8.c#8 "e"f#"a"f#"e"f#c#"a [c"a]["b"g] "a#c#d#c# "a#d#f#d# [f#d][ec#] [c#f#g#`c#] [c#fg#`c#] //------------------------------------------------------------------------------ TR(14);CH(14);KF TK(0);@(003, 8,0); RC(100,40); Vm(96,6,8,0); q(50); P(064); EV(100,120); // P.N(64,32,96,24,104,56,74,84,44); Time(11:1:0);EP.T(60,98,!4)v120l16;MidiDelayS("gdf#b `f#`dgf#) EP.T(100,40,!1) MidiDelayS("f#"ac#e`e`c#af#) "e1 Time(28:1:0);EP.T(60,98,!4)v120l16;MidiDelayS("gdf#b `f#`dgf#) EP.T(100,40,!1) MidiDelayS("f#"ac#e`e`c#af#) "e1 //------------------------------------------------------------------------------ TR(10);CH(10); KF TK(0) @12,7,0 RC(12,100);Vm(100,3,16,0); q30; P=60;EV(108,112); // Time(1:1:0) p%=8000 Sub{v108; l16; [7c4][c8][6c4][4c8] [7 c4 ] c8c8 [6 c4 ] [c8] [4c] [6 c4 ] [c8] [4c] [c8c8.c8.][[ c4 ] [c8] [4c]] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9"b96]v+18 r24 ] [[6"b64]r12] [9"b96] } Sub{v110 [5r4d4r4d4r4d4r4d4][r8d8.d8.][v88[r8d8]v102[d8][4dv+2]][6r4d4]r4d4 d8.d8.d8} Sub{v.N=80,62,73,62 [5 [[4rg+a+g+]]]v76[ a+r`c#0`e0`grr`c#0`e0`grr ]v96 Sub{`a0`e1} v.N=80,62,73,62 [3 [[4rg+a+g+]]]} v80; [[15`f4]`f8`f8][7`f4]`f8`f8 [ v80;`d+0`br v120;`frr`frr] [[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8] Time(18:1:0);v96 Sub{`a0`e1} Time(18:1:0); Sub{v108; l16; [7c4][c8][6c4][4c8] [7 c4 ] c8c8 [6 c4 ] [c8] [4c] [6 c4 ] [c8] [4c] [c8c8.c8.][[ c4 ] [c8] [4c]] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9c96]v+18 r24 ] [[6c64]r12] [9c96] } Sub{v110 [5r4d4r4d4r4d4r4d4][r8d8.d8.][v88[r8d8]v102[d8][4dv+2]][6r4d4]r4d4 d8.d8.d8} Sub{v.N=80,62,73,62 [5 [[4rg+a+g+]]]v76[ a+r`c#0`e0`grr`c#0`e0`grr ]v96 Sub{`a0`e1} v.N=80,62,73,62 [3 [[4rg+a+g+]]]} [[15 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8][7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8 [ v80;`d+0`br v120;`frr`frr] [[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8] //------------------------------------------------------------------------------ TR(11);CH(11);KF TK(0) @27,90,0 RC(16,120);Vm(100,3,16,0); q30; P=68;EV(108,112); // Time(1:1:0); p%=8000 Sub{v125; l16; [7c4][c8][6c4][4c8] [7 c4 ] c8c8 [6 c4 ] [c8] [4c] [6 c4 ] [c8] [4c] [c8c8.c8.][[ c4 ] [c8] [4c] ] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9c96]v+18 r24 ] [[6c64]r12] [9c96] } Sub{v.N=80,60,90,60 [5[[4f#f#a#r]]]v100[ a+r`c#0`e0`grr`c#0`e0`grr ]v125 Sub{`a0`e1} [v.N=80,60,90,60 [f#f#g#f#] v82 a#a#g#a# g#a#a#a# ] v.N=80,60,90,60 [ g+g+a+g+ g+g+a+g+ g+g+a+g+ g+g+a+g+ | g+g+a+g+ g+g+a+g+ g+f#a+g+ a+g+a+g+ ] } Sub{v100 [5r4d+4r4d+4r4d+4r4d+4][r8d+8.d+8.][v88[r8d+8]v102[d+8][4d+v+2]][6r4d+4]r4d+4 d+8.d+8.d+8 } v80; [[15`f4]`f8`f8][7`f4]`f8`f8 [ v80;`d+0`br v120;`frr`frr] [[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8] Time(18:1:0);v125 Sub{`a0`e1} Time(18:1:0); Sub{v125; l16; [7c4][c8][6c4][4c8] [7 c4 ] c8c8 [6 c4 ] [c8] [4c] [6 c4 ] [c8] [4c] [c8c8.c8.][[ c4 ] [c8] [4c] ] [7 c4 ] c8c8 [4 c4 ] [c8 v-18[9c96]v+18 r24 ] [[6c64]r12] [9c96] } Sub{v.N=80,60,90,60 [5[[4f#f#a#r]]]v100[ a+r`c#0`e0`grr`c#0`e0`grr ]v125 Sub{`a0`e1} [v.N=80,60,90,60 [f#f#g#f#] v82 a#a#g#a# g#a#a#a# ] v.N=80,60,90,60 [ g+g+a+g+ g+g+a+g+ g+g+a+g+ g+g+a+g+ | g+g+a+g+ g+g+a+g+ g+f#a+g+ a+g+a+g+ ] } Sub{v100 [5r4d+4r4d+4r4d+4r4d+4][r8d+8.d+8.][v88[r8d+8]v102[d+8][4d+v+2]][6r4d+4]r4d+4 d+8.d+8.d+8 } v80; [[15`f4]`f8`f8][7`f4]`f8`f8 [ v80;`d+0`br v120;`frr`frr] [[v90 `f8 v75 `d+0`b8]v84;`f`f`f`f8`f`f8][[7 v90 `f8 v75 `d+0`b8 ] v100 `f8`f8] //------------------------------------------------------------------------------ }