// ---------------------------------------------------------------- メタイベント

TrackName     ={"以心伝心〜intermezzo〜"} // タイトル
Copyright     ={"by JKC"}                 // 著作権
InstrumentName={"MS-GS + TW-MUSIC2"}      // 音源

// ---------------------------------------------------------------------- 初期化

ResetGM r8 TrackSync                      // 音源初期化

// ---------------------------------------------------------------------- 定義１

$h{v80  n42} $H{v100 n42}                 // C-HiHat
$b{v80  n35} $B{v100 n36}                 // Kick2,     Kick1
$s{v80  n38} $S{v100 n38}                 // Snare1
$x{v100 n50} $X{v100 n48}                 // HighTom1,  HighTom2
$y{v100 n47} $Y{v100 n45}                 // MidTom1,   MidTom2
$z{v100 n43} $Z{v100 n41}                 // LowTom1,   LowTom2
$c{v100 n51} $C{v80  n49}                 // R-Cymbal1, Cr-Cymbal1
$a{v100 n31} $A{v100 n37}                 // Sticks,    SideStick

Str Pn={r64 y64,127 r-64}                 // ペダル踏む
Str Pf={r-64 y64,0 r64}                   // ペダル放す
Str Pp={Pf;Pn;}                           // ペダル踏みかえる
Str Pu={p%.T(-800,0,!16)}                 // しゃくり（半音下から目的の音へ）

// ---------------------------------------------------------------------- 定義２

// ＜ディチューントラック解説＞
// TR1 ← CH(01,02,03)  ３chディチューン・パン・ディレイ　メロディとか
// TR2 ← CH(04,05)     ２chディチューン・パン　　　　　　ベースとか
// TR3 ← CH(06,07)     ２chディチューン・パン　　　　　　コードとか
// TR4 ← CH(08,09)     ２chディチューン・パン　　　　　　コーラスとか
// TRD ← CH(10)                                          ドラム専用
// TR5 ← CH(11,12,13)  ３chディチューン・パン・ディレイ　かざりとか
// TR6 ← CH(14,15)     ２chディチューン・パン　　　　　　かざりとか
//        CH(16)                                          予備

Function TR1(Int X, Str XX){
 TR(1)  FineTune(64) P(64)  V(X)  TA(XX);
 TR(2)  FineTune(68) P(127) D1(X) TA(XX);
 TR(3)  FineTune(60) P(0)   D2(X) TA(XX);
}
Function TR2(Int X, Str XX){
 TR(4)  FineTune(64) P(0)   V(X)  TA(XX);
 TR(5)  FineTune(68) P(127) V(X)  TA(XX);
}
Function TR3(Int X, Str XX){
 TR(6)  FineTune(64) P(0)   V(X)  TA(XX);
 TR(7)  FineTune(68) P(127) V(X)  TA(XX);
}
Function TR4(Int X, Str XX){
 TR(8)  FineTune(64) P(0)   V(X)  TA(XX);
 TR(9)  FineTune(68) P(127) V(X)  TA(XX);
}
Function TRD(Int X, Str XX){
 TR(10) UseKeyShift(off)    V(X)  XX;
}
Function TR5(Int X, Str XX){
 TR(11) FineTune(64) P(64)  V(X)  TA(XX);
 TR(12) FineTune(68) P(127) D1(X) TA(XX);
 TR(13) FineTune(60) P(0)   D2(X) TA(XX);
}
Function TR6(Int X, Str XX){
 TR(14) FineTune(64) P(0)   V(X)  TA(XX);
 TR(15) FineTune(68) P(127) V(X)  TA(XX);
}
Function TA(Str X){UseKeyShift(on) BR(12) X;}    // 共通部分
Function D1(Int X){V(X*2/3)     r16}             // ディレイ１
Function D2(Int X){V(X*2*2/3/3) r8 }             // ディレイ２

Function TC(INT X){If(TR==1){TempoChange(X,!1)}} // rit.（複数トラック対策）
Function TK(INT X){If(TR==1){TimeKey(,,X)}}      // 転調（複数トラック対策）

// -------------------------------------------------------------------- 全体設定

Tempo(80) TimeKey(,,-1)

// ------------------------------------------------------------------------ 楽譜

TR1(110,{v100 @5 q96 l16 o6                             // Electric Piano 1
 f0a4^ab>c"f0c4d8c8 | c0e4.<gg^8g>c0e^4<  |
 f0a4^ab>c"f0c4d8c8 | "g0c4^<gfe^4r4      |
 f0a4^ab>c"f0c4d8c8 | c0e4.<gg^8g>c0e^4<  |
 f0a4^ab>c"f0c4.cg  | c0g4.fe^4< TK(2) r4 |
 r1                 | r1                  |
 r2.c0e8a8          | "b0g4.e0a4.a"a8.v86a"a8.v72a"a8.v100 TK(-1) |
 f0a4^ab>c"f0c4d8c8 | c0e4.<gg^8g>c0e^4<  |
 f0a4^ab>c"f0c4d8c8 | "g0c4^<gfe^4r4      |
 f0a4^ab>c"f0c4d8c8 |
 TC(76) c0e4."g0c"g0c^4r4   |
 TC(62) "a-0c4^cde-d0f4a-4^ |
 TC(58) c0e0g1              |
})
TR2(90,{v100 @38 q98 l16 o3                                  // Slap Bass 2
 f4.f8`f2 | c4.c8`c2 | f4.f8`f2 | c4.c8`c2    |
 f4.f8`f2 | c4.c8`c2 | f4.f8`f2 | c4.c8`c4 g4 |
 f2ffr4.  | e2eer4.  | f2ffr4.  | e4.a4.^2.   |
 f4.f8`f2 | c4.c8`c2 | f4.f8`f2 | c4.c8`c2    |
 r1       | r1       | r1^      | r1          |
})
TR3(80,{v100 @1 q99 l8 o6                                    // Grand Piano
 Pn;"fcacPp;"fca-c<    | Pp;cg`egcg`eg>     |
 Pp;"fcacPp;"fca-c<    | Pp;cg`egcg`eg>     |
 Pp;"fcacPp;"fca-c<    | Pp;cg`egcg`eg>     |
 Pp;"fcacPp;"fca-c<    | Pp;cg`eg`eg Pf;r4< |
 Pn;fa>cd"f0c0e2       | Pp;egb>c"e0"g0d2<< |
 Pp;fa>cd"f0c0e2       | Pp;egbe0g0`c+4.Pf;r2.> |
 Pn;"fcacPp;"fca-c<    | Pp;cg`egcg`eg>     |
 Pp;"fcacPp;"fca-c<    | Pp;cg`egcg`eg>     |
 Pp;"fcacPp;"fca-c<    | Pp;c>g>dcdcdc<<    |
 Pp;a->cfa-Pp;"b-dfa-. | Pp;ceg>c^2         |
})
TR4(75,{v100 @49 q98 l16 o5                                    // Strings 1
 c2a-4g8f8     | e2c4"b-4 | c2a-4g8f8     | e4.f8g2        |
 c2a-4g8f8     | e2c4"b-4 | c2a-4g8f8     | e4.f8g4 r4v65  |
 r4ab>cde4d8c8 | d2r2<    | r4ab>cde4e8a8 | g4.e4.r2.<v100 |
 c2a-4g8f8     | e2c4"b-4 | c2a-4g8f8     | e4.f8g2        |
 c2v85a-4b-4>  | c2^8<g8f8e8 |
 f2v.T(95,65,!2)"b-dfa-b->dfb-^> |
 v65EP.T(64,127,!2,127,64,!2)c1  |
})
TRD(90,{@1 l8 Rhythm{                                              // Drums
 hhhhhhhh r-1 brAbbrsr | hhhhhhhh r-1 brAbbrsr |
 hhhhhhhh r-1 brAbbrsr | hhhhhhhh r-1 brAbbrsr |
 hhhhhhhh r-1 brAbbrsr | hhhhhhhh r-1 brAbbrsr |
 hhhhhhhh r-1 brAbbrsr | hhhhhhhh r-1 brAbbr s,16s,16r |
 crcrs,16s,16rhh r-1 brrbbrAr |
 crcrs,16s,16rhh r-1 brrbbrAr |
 crcrs,16s,16rhh r-1 brrbbrAr |
 rrrCrrhrhrhr r-1. x,16x,16y,16y,16z,16z,16brrrrrrsr |
 hhhhhhhh r-1 brAbbrsr | hhhhhhhh r-1 brAbbrsr |
 hhhhhhhh r-1 brAbbrsr | hhhhhhhh r-1 brAbbrsr |
 crrrrrrr r-1 brrrrrrr | r1 | r1r16 | r1 |
}})
TR5(100,{v100 @65 q97 l16 o5                                 // Soprano Sax
 r1 | r1 | r1 | r1        |
 r1 | r1 | r1 | r2. ab>cd |
 Pu;e2r8e8f8g8 | e4.dPu;e^8d8<ab>cd |
 Pu;e2r8e8d8c8 | d4.c+4.r2.         |
 [8r1]r |
})