/*
◎ダウンロード、ありがとうございます。よかったら保存してね。

◎場面設定；ごんぎつね。ある書籍に載っていた曲。主旋律はある
けど伴奏がない。仕方がないので自作したというわけ。著作権があ
りそうなので、公開は半分だけです。
　全部聞きたい方は、私とお友達になっていただき、下記ホームペー
ジのゲストブックへ要旨と返信メルアドを記入してね。）
		    http://www.geocities.jp/apollon_7777
　　　　　    　--- from Shakuhachist of Phantom ---
◎備忘録１（この曲について）
・編集始 … '13/10/05 ID6_1347 … 初登録。

◎備忘録２（mmlについて）
・TyokuNal様式チューニング【8vaにつき5.0cent下げる=[BR(1);p%(-40)]】参考ID_4455[四季-秋]
・adas様式デチューニング【片方だけFineTune(68)を記入;4/64≒6cent上げる】参考ID_4694[electronic parade]
・TempoChange書式…TempoChange(438,504,!1^1);テンポ改60,!2…初期値省略可
・Modulation.onNoteWave書式…M.W(0,0,!1^1,0,68,!2.)
・Modulation.onTime書式…M.T(0,0,!1^1,0,68,!2.)
・v.T書式;v.T(75,42,!1^1)
・v.onNote書式;v.onNote(50,120,80,120);
・Slurタイプ;C:\Program Files\sakura\doc\faq\help01.htm
・連符書式例
ロ;Div{ロ&ツ&ロ&} ;Div{ロ&シ&ロ&} ;Div{ロ&ッ&ロ&}
ッ;Div{ッ&ツ&ッ}  シ(シ);Div{シ&ツ&シ&}
ツ;Div{ツ&レ&ツ}  ヘ(ヘ);Div{ヘ&レ&ヘ}
レ;Div{レ&チ&レ}  ウ(半チ);Div{ウ&チ&ウ&}
チ;Div{チ&`ハ&チ} チ;Div{チ&パ&チ&}  ;Div{チ&ヰ&チ}
ヰ;Div{ヰ&`ハ&ヰ} ;Div{ヰ&パ&ヰ} パ(メハ);Div{パ&`ハ&パ}
ハ;Div{ハ&ロ&ハ}  リ;Div{リ&ロ&リ}2^8
*/
//**************************************初期設定
ResetXG();ResetGS();ResetGM();
TrackName={"fox_gon1309"};
Copyright={"unknown;arr.by y_nis};
MetaText ={""};
System.TimeBase(96);
System.Keyshift=(Ky)
//System.Include(chord2.h); //--
TimeSignature=2,4;
System.MeasureShift=2;
読む(chord2.h);
読む(fadeio.h) 
FUNCTION T(Tx){;Tempo(Tx);};T=104;//T=Tempo
~{改}={TempoChange}//使用例=;改(90,20,!1^1^1)★注;初期値省略不可…参考;5_6030鐘が鳴る
FUNCTION X(Ex){EP(Ex)};//A〜Gの文字を使いたくない…使用例;X(90)
FUNCTION Z(Ep,Ez,Ln){EP.T(Ep,Ez,Ln)};//同上…使用例;Z(110,75,!1.)
//▼↑[FUNCTION Z]を[FUNCTION Y]とすると,エラー[関数Yを、再定義しています]と出るのはなぜ？(Yは定義していないつもり…)
//Int Rpt=1//繰り返し回数
//■●▲★|| Chord_＋α
Str Gbmb5={'"g-"ac'};

//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
//####D  EM7  Gbm7   Abm7  AM7 B7  Dbm7  Ebm7b5 ( Gb7 )`&"

//Natu   Am7  Bm7b5  CM7   Dm7 Em7 FM7   G7  `&"
//Melo   AmM7 Bm7  (CM7p5) D7  E7  Gb7b5 Abdim=Bdim=Ddim=Fdim
//###D   AM7  Bm7    Dbm7  DM7 E7  Gbm7  Abm7b5 ( Bb7 )`&"

//bNat  Dm7  Em7b5  FM7   Gm7 Am7 BbM7  C7  `&"
//bMel  DmM7 Em7  (FM7p5) G7  A7  Bm7b5 Dbdim=Edim=Gdim=Bbdim
//##Di  DM7  Em7    Gbm7  GM7 A7  Bm7   Dbm7b5 ( Eb7 )`&"

//bbNa  Gm7  Am7b5  BbM7  Cm7 Dm7 EbM7  F7  `&"
//bbMe  GmM7 Am7 (BbM7p5) C7  D7  Em7b5 Gbdim=Adim=Cdim=Ebdim
//#Dia  GM7  Am7    Bm7   CM7 D7  Em7   Gbm7b5 ( Ab7 )`&"

//bbbN  Cm7  Dm7b5  EbM7  Fm7 Gm7 AbM7  Bb7  `&"
//bbbM  CmM7 Dm7 (EbM7p5) F7  G7  Am7b5 Bdim=Ddim=Fdim=Abdim
//Diat  CM7  Dm7    Em7   FM7 G7  Am7   Bm7b5 ( Db7 )`&"

//bbbbN Fm7  Gm7b5  AbM7  Bbm7 Cm7 DbM7  Eb7 `&"
//bbbbM FmM7 Gm7 (AbM7p5) Bb7  C7  Dm7b5 Edim=Gdim=Bbdim=Dbdim
//bDiat FM7  Gm7    Am7   BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"

//bbbbbN Bbm7  Cm7b5  DbM7  Ebm7 Fm7 GbM7  AbM7       `&"
//bbbbbM BbmM7 Cm7 (DbM7p5) Eb7  F7  Gm7b5 Adim=Cdim=Ebdim=Gbdim
//bbDiat BbM7  Cm7    Dm7   EbM7 F7  Gm7   Am7b5 ( B7 )`&"

//bbbbbbN Ebm7  Fm7b5  GbM7  Abm7 Bbm7 CbM7  DbM7         `&"
//bbbbbbM EbmM7 Fm7 (GbM7p5) Ab7  Bb7  Cm7b5 Ddim=Fdim=Abdim=Bdim
//bbbDiat EbM7  Fm7    Gm7   AbM7 Bb7  Cm7   Dm7b5 ( E7 )`&"


//■●▲★|| Modulation/Exp
Str M0={M(0)};
Str Ms={M.W(11,11,!4, 11,66,!16)};//尺八長
Str Mm={M(11)};
Str Mk={M(66)};//琴
Str Mw={M(64)};//ベース=Mm
Str Mv={M.W(11,11,!4,11,58,!16)};//Vn長
Str Mn={M.W(11,11,!16.,11,54,!16)};//Vn短

Str PU={EP.T(107,127,!4)};//Vn_cresc
Str PL={EP.T(127,107,!2)};//Vn_dec


//■●▲★|| per

~{て}={v93;n(LowTom2),};//n41(低トム2)
~{な}={v90;n(MidTom2),};//n45(中トム2)
~{こ}={v87;n(HighTom2),};//n48(高トム2)

~{す}={v75;n(Snare1),}//n38(スネア1)
~{き}={v92;n(Kick1),}//n36(Kick1)
~{ば}={v92;n(LowTom1),}//n43(バスドラム)

~{り}={v93;n(RideCymbal1),}//n51(Rideシンバル)

//~{し}={v93;n(CrashCymbal1),}//n49(シンバル)
~{く}={v93;n(ClosedHiHat),}//n42(クローズ)


//■■■■|| Repat1 沖縄風に bbm→#M ||■■■■ #SAi3 4節
//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SHp1={l16; r^^^     r^^^   |r^^^      r^^^     |r^^^   ^^^^    |r^^^     r^^^    };
#PRp1={l16; し^^し  `れ^^し |ら^^ら    ら^^ら   |ら^^ら`ど^^ら  |そ^^そ   そ^^そ  };
#PLp1={l16; e^^^     f#^<g^ |a^^^      b^>c^    |d^^^    e^f#^ <|g^^^     g^  g^> };
#KTp1={l16;r^^^      r^^^   |r^^^      r^^^     |r^^^    ^^^^   |r^^^     r^^^    };
#JJp1={l4 ;[Em]            [|Am]               [|D7]           [|G]               };
//Cp1={l4 ; 1               |4                  |7              |3
#RTp1={l4 ;[Em7]           [|Am7]              [|D7]           [|GM7]             };
#WWp1={l16; e^^^     f#^g^  |a^^^     "b^c^     |d^^^    e^f#^  |g^^^     ^^  g^  };

#SHp2={ r^^^        r^^^       |r^^^        r^^^       |r^^^       ^^^^  |r^^^      r^^^  };
#PRp2={ ^^ふ#^      ^^ふ#^     |ふ#^^^      れ^^^      |み^^^      ^^^^  |^^^^      r^^^  };
#PLp2={<f#^^^       f#^a^      |b^^^        c^d^       |e^^^      ^^"b^  |e^"b^     c^d^> };
#KTp2={ r^^^        r^^^       |r^^^        r^^^       |r^^^       ^^^^  |r^^^      r^^^  };
#JJp2={[Gbmb5]                [|Bm]                   [|Em]             [|Em]             };
//Cp2={ 2                      |5                      |1                |1
#RTp2={[Gbm7b5]               [|Bm7]                  [|Em7]            [|Em7]            };
#WWp2={ f#^^^       f#^a^      |b^^^        c^d^       |e^^^      ^^"b^  |e^"b^     c^d^  };
//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SHp={#SHp1#SHp2};
#PRp={#PRp1#PRp2};
#PLp={#PLp1#PLp2};
#KTp={#KTp1#KTp2};
#JJp={#JJp1#JJp2};
#RTp={#RTp1#RTp2};
#WWp={#WWp1#WWp2};
//■●▲★|| main1
//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SH11={l16; み^^み   み^^れ |み^^み    み^^れ |み^^み    ふ#^^み|れ^^^     r^^^   };
#PR11={l16; r^  g0b^ r^g0b^ |r^  g0`c^ r^g0`c^|r^  a0`c^ r^a0`c^|r^  f#0a^ r^f#0a^};
#PL11={l16;"e0e^^^  "e0e^^^"|e0e^^^   "e0e^^^"|e0e^^^   "e0e^^^"|d0d^^^   "d0d^^^ };
#KT11={l16; r^^^     ^^^^   |r^^^      ^^^^   |r^^^      ^^ ^^  |r^^^      ^^^^   };
#JJ11={l4 ;[Em]            [|C]              [|Am]             [|D7]              };
//C11={l4 ; 1               |6                |4                |7
#RT11={l4 ;[Em7]           [|CM7]            [|Am7]            [|D7]              };
#WW11={l16; e^^^     ^^d^   |c^^^      ^^<b^  |a^^^      b^>c^  |d^^^      e^f#^  };

#SH12={ し^^^    し^^し |ら^^ら    そ^^ら     |し^^し     し^^し    |し^^^      r^^^      };
#PR12={ r^ g0b^  r^ g0b^|r^  a0`c^ r^  a0`c^  |r^  a0`d#^ r^  a0`d#^|r^  a0`d#^ r^  a0`d#^};
#PL12={"d0d^^^  "d0d^^^"|e0e^^^   "e0e^   ^^ "|f#0f#^^^  "f#0f#^^^ "|f#0f#^^^  "f#0f#^^^  };
#KT12={ r^^^     ^^^^   |r^^^        ^^^^     |r^^^       ^^^^      |r^^^       ^^^^      };
#JJ12={[G]             [|Am]                 [|B7]                 [|B7]                  };//▲Bm7?B7?
//C12={ 3               |4                    |5                    |5
#RT12={[GM7]           [|Am7]                [|B7]                 [|B7]                  };
#WW12={ g^^^     ^^g^   |a^^^      ^^    <a^  |b^^^       ^^b^      |b^b^>      c#^d#^    };
//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SH13={し^^し   `れ^^し |ら^^ら    ら^^ら   |ら^^ら `ど^^ら |そ^^そ   そ^^そ  };
#PR13={ r^  g0b^ r^g0b^ |r^  a0`c^ r^  a0`c^|r^f#0a^ r^f#0a^|r^  g0b^ r^  g0b^};
#PL13={"e0e^^^  "e0e^^^"|e0e^^^   "e0e^^^  "|d0d^^^ "d0d^^^"|d0d^^^  "d0d^^^  };
#KT13={ r^^^     r^^^   |r^^^      r^^^     |r^^^    ^^^^   |r^^^     r^^^    };
#JJ13={[Em]            [|Am]               [|D7]           [|G]               };
//C13={ 1               |4                  |7              |3
#RT13={[Em7]           [|Am7]              [|D7]           [|GM7]             };
#WW13={ e^^^     f#^g^  |a^^^     "b^c^     |d^^^    e^f#^  |g^^^     ^^g^    };

#SH14={ ^^ふ#^      ^^ふ#^     |ふ#^^^      れ^^^      |み^^^      ^^^^  |^^^^      r^^^  || ^^^^    ^^^^   |r^^^      ^^^^  };
#PR14={ r^    a0`c^ r^    a0`c^|r^    b0`d^ r^    b0`d^| r^  g0b^ r^g0b^ | r^  g0b^ r^g0b^|| r^ g0b^ r^ g0b^| r^  g0b^ r^g0b^};
#PL14={"f#0f#^^^   "f#0f#^^^  "|f#0f#^^^   "f#0f#^^^  "|e0e^^^   "e0e^^^"|e0e^^^   "e0e^^^||"e0e^^^ "e0e^^^"|e0e^^^   "e0e^^^};
#KT14={ r^^^        r^^^       |r^^^        r^^^       |r^^^       ^^^^  |r^^^      r^^^  || ^^^^    ^^^^   |r^^^      ^^^^  };
#JJ14={[Gbmb5]                [|Bm]                   [|Em]             [|Em]             ||[Em]           [|Em]             };
//C14={ 2                      |5                      |1                |1               ||1               |1
#RT14={[Gbm7b5]               [|Bm7]                  [|Em7]            [|Em7]            ||[Em7]          [|Em7]            };
#WW14={ f#^^^       ^^a^       |b^^^        c^d^       |e^^^      ^^"b^  |e^^^      ^^"b^ || e^^^    ^^"b^  |e^"b^     c^d^  };
//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SHm1={#SH11#SH12#SH13#SH14};
#PRm1={#PR11#PR12#PR13#PR14};
#PLm1={#PL11#PL12#PL13#PL14};
#KTm1={#KT11#KT12#KT13#KT14};
#JJm1={#JJ11#JJ12#JJ13#JJ14};
#RTm1={#RT11#RT12#RT13#RT14};
#WWm1={#WW11#WW12#WW13#WW14};

//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SH21={ み^^^     ^^^^  >|み^^^     ^^み^  |れ^れ^  ^^れ^  |ど^^^<    r^^^   };
#PR21={ r^  g0`c^ r^g0`c^|r^  a0`c^ r^a0`c^|r^ g0b^ r^g0b^ |r^  a0`c^ r^a0`c^};
#PL21={"e0e^^^   "e0e^^^"|e0e^^^   "e0e^^^"|d0d^^^ "d0d^^^"|e0e^^^   "e0e^^^ };
#KT21={ r^^^      r^^^   |r^^^      r^^^   |r^^^    ^^^^   |r^^^      r^^^   };
#JJ21={[C]              [|Gbmb5]          [|Bm]           [|Am]              };
//C21={ 6                |2                |5              |4
#RT21={[CM7]            [|Gbm7b5]         [|Bm7]          [|Am7]             };
#WW21={ c^^^      d^e^   |f#^^^     ^^a^   |b^^^    ^^b^   |a^^^      ^^a^   };


#SH22={ r^し^ ^^し^|ら^^^`ど^^^|し^^^ ^^^^|^^^^ r^^^ };
#PR22={ #PR12      |           |          |          };
#PL22={ #PL12      |           |          |          };
#KT22={ r^^^  r^^^ |r^^^  r^^^ |r^^^  ^^^^|r^^^ r^^^ };
#JJ22={[G]        [|Gbmb5]    [|B7]      [|B7]       };
//C22={ 3          |2          |57        |57
#RT22={[GM7]      [|Gbm7b5]   [|B7]      [|B7]       };
#WW22={ g^^^  ^^g^ |f#^^^ ^^a^ |b^^^ ^^<b^|b^^^ b^b^>};
//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SH23={ ら^^ら    ら^^ら   |そ^r^   ら^^ら  |r^^^     し^^し  |し^^^    し^^r   };
#PR23={ r^  a0`c^ r^  a0`c^|r^f#0a^ r^f#0a^ |r^  g0b^ r^  g0b^|r^  g0`c^ r^g0`c^};
#PL23={"e0e^^^   "e0e^^^  "|d0d^ ^^"d0d^ ^^"|d0d^^^  "d0d^^^ "|e0e^^^   "e0e^^^ };
#KT23={ r^^^      r^^^     |r^^^    r^^^    |r^^^     ^^^^    |r^^^     r^^^    };
#JJ23={[Am]               [|D7]            [|G]              [|C]               };
//C23={ 4                  |7               |3                |6
#RT23={[Am7]              [|D7]            [|GM7]            [|CM7]             };
#WW23={"a^^^     "b^c^     |d^^^    e^f#^   |g^^^     a^"b^   |c^^^      d^e^   };

#SH24={ ら^^^       ^^^^       |そ^^^       ふ#^^^      |み^^^     ^^^^   |^^^^      ^^^^  || ^^^^    ^^^^   |^^^^      r^^^  };
#PR24={ r^    a0`c^ r^    a0`c^|r^    b0`d#^ r^   b0`d#^| r^  g0b^ r^g0b^ | r^  g0b^ r^g0b^|| r^ g0b^ r^ g0b^| r^  g0b^ g0b^r };
#PL24={"f#0f#^^^   "f#0f#^^^  "|f#0f#^^^   "f#0f#^^^   "|e0e^^^   "e0e^^^"|e0e^^^   "e0e^^^||"e0e^^^ "e0e^^^"|e0e^^^   "e0e^^^};
#KT24={ r^^^        ^^^^       |r^^^        ^^^^        |r^^^      ^^^^   |^^^^      ^^^^  || ^^^^    ^^^^   |^^^^      r^^^  };
#JJ24={[Gbmb5]                [|B7]                    [|Em]             [|Em]             ||[Em]            |Em              };
//C24={ 2                      |57                      |1                |1               || 1              |1
#RT24={[Gbm7b5]               [|B7]                    [|Em7]            [|Em7]            ||[Em7]          [|Em7]            };
#WW24={ f#^^^       ^^a^       |b^^^        c^d#^       |e^^^      ^^"b^  |e^^^      ^^"b^ || e^^^    ^^"b^  |e^"b^     e^^^  };
//#Natu  Em7  Gbm7b5 GM7   Am7 Bm7 CM7   D7 `&"
//#Melo  EmM7 Gbm7 (GM7p5) A7  B7  Db7b5 Ebdim=Gbdim=Adim=Cdim
#SHm2={#SH21#SH22#SH23#SH24};
#PRm2={#PR21#PR22#PR23#PR24};
#PLm2={#PL21#PL22#PL23#PL24};
#KTm2={#KT21#KT22#KT23#KT24};
#JJm2={#JJ21#JJ22#JJ23#JJ24};
#RTm2={#RT21#RT22#RT23#RT24};
#WWm2={#WW21#WW22#WW23#WW24};

#SHm2aud={Fadeout(2) み^^^     ^^^^  >|み^^^     ^^み^  |れ^れ^  ^^れ^  |ど^^^<    r^^^   };
#PRm2aud={Fadeout(2) r^  g0`c^ r^g0`c^|r^  a0`c^ r^a0`c^|r^ g0b^ r^g0b^ |r^  a0`c^ r^a0`c^};
#PLm2aud={Fadeout(2)"e0e^^^   "e0e^^^"|e0e^^^   "e0e^^^"|d0d^^^ "d0d^^^"|e0e^^^   "e0e^^^ };
#KTm2aud={Fadeout(2) r^^^      r^^^   |r^^^      r^^^   |r^^^    ^^^^   |r^^^      r^^^   };
#JJm2aud={Fadeout(2)[C]              [|Gbmb5]          [|Bm]           [|Am]              };
//Cm2aud={Fadeout(2) 6                |2                |5              |4
#RTm2aud={Fadeout(2)[CM7]            [|Gbm7b5]         [|Bm7]          [|Am7]             };
#WWm2aud={Fadeout(2) c^^^      d^e^   |f#^^^     ^^a^   |b^^^    ^^b^   |a^^^      ^^a^   };

//■●▲★|| 集計
Int St=3;// 0…前奏〜、1…m1〜、2…m2〜、3…公開版
If(St=0){;//0…前奏
#SH= {  #SHp #SHm1#SHm2};
#PR= {  #PRp #PRm1#PRm2};
#PL= {  #PLp #PLm1#PLm2};
#KT= {  #KTp #KTm1#KTm2};
#JJu={r8#JJp #JJm1#JJm2};
#JJl={  #JJp #JJm1#JJm2};
#RT= {  #RTp #RTm1#RTm2};
#WW= {  #WWp #WWm1#WWm2};
};

If(St=1){;//m1〜
#SH= {  #SHm1#SHm2};
#PR= {  #PRm1#PRm2};
#PL= {  #PLm1#PLm2};
#KT= {  #KTm1#KTm2};
#JJu={r8#JJm1#JJm2};
#JJl={  #JJm1#JJm2};
#RT= {  #RTm1#RTm2};
#WW= {  #WWm1#WWm2};
};

If(St=2){;//m2〜
#SH= {  #SHm2};
#PR= {  #PRm2};
#PL= {  #PLm2};
#KT= {  #KTm2};
#JJu={r8#JJm2};
#JJl={  #JJm2};
#RT= {  #RTm2};
#WW= {  #WWm2};
};
If(St=3){;//0…前奏
#SH= {  #SHp #SHm1#SHm2aud};
#PR= {  #PRp #PRm1#PRm2aud};
#PL= {  #PLp #PLm1#PLm2aud};
#KT= {  #KTp #KTm1#KTm2aud};
#JJu={r8#JJp #JJm1#JJm2aud};
#JJl={  #JJp #JJm1#JJm2aud};
#RT= {  #RTp #RTm1#RTm2aud};
#WW= {  #WWp #WWm1#WWm2aud};
};

//■●▲★|| Play
l64
Int In=0 // 0…全楽器演奏、1…楽譜印刷用
If(In=0){;//0…全楽器演奏
TR=1; CH=1; @(Flute);      o5;v99;v.Random=8;//@1
q97;P=64+22;REV=10;CHO=20;BR=1;p%(- 0);FineTune(68);Time(0:0:-5);#SH;
TR=2; CH=2; @(Clarinet);   o5;v79;v.Random=8;//@1
q97;P=64+42;REV=10;CHO=20;BR=1;p%(- 0);             Time(0:0:-5);#SH//+1.5oct

TR=3; CH=3; @(BrightPiano); o4;v89;v.Random=7;//@1
q98;P=64-32;REV=20;CHO=10;BR=1;p%(- 0);FineTune(68);Time(0:0: 0);#PR;
TR=4; CH=4; @(GrandPiano);  o4;v89;v.Random=7;//@1
q98;P=64-32;REV=20;CHO=10;BR=1;p%(- 0);             Time(0:0: 0);#PR//+1.25oct

TR=5; CH=5; @(BrightPiano); o4;v79;v.Random=6;//@1
q99;P=64-37;REV=20;CHO=10;BR=1;p%(- 0);FineTune(68);Time(0:0: 0);#PL;
TR=6; CH=6; @(GrandPiano)   o4;v79;v.Random=6;//@1
q99;P=64-37;REV=20;CHO=10;BR=1;p%(- 0);             Time(0:0: 0);#PL//+1.25oct

TR=7; CH=7; @(DrawbarOrgan);o5;v70;v.Random=6;//@1
q94;P=64+02;REV= 5;CHO= 3;BR=1;p%(- 0);             Time(0:0:-1);//#RT//+1oct
TR=8; CH=8; @(DrawbarOrgan);o4;v70;v.Random=6;//@1
q94;P=64-02;REV= 5;CHO= 3;BR=1;p%(- 0);             Time(0:0:-2);#JJl//基準

TR=11;CH=11;@(AcousticBass);o3;v89;v.Random=7;//@1
q96;P=64+05;REV= 5;CHO=10;BR=1;p%(- 0);FineTune(68);Time(0:0:-3);#WW//-0.75oct
TR=12;CH=12;@(AcousticBass);o3;v89;v.Random=7;//@1
q96;P=64+10;REV= 5;CHO=10;BR=1;p%(- 0);             Time(0:0:-3);#WW//-0.75oct

TR=13;CH=13;@(AcousticBass);o2;v79;v.Random=6;//@1
q95;P=64-05;REV=20;CHO=10;BR=1;p%(- 0);FineTune(68);Time(0:0:-3);#WW//-1.75oct
TR=14;CH=14;@(AcousticBass);o2;v79;v.Random=6;//@1
q95;P=64-10;REV=20;CHO=10;BR=1;p%(- 0);             Time(0:0:-3);#WW//-1.75oct
};
If(In=1){;//1…楽譜印刷用
l64;TR=1;CH=1;r@(Clarinet);    o5;rv79;v.Random=8;r//@1
q97;P=64+42;rREV=10;CHO=20;rBR=1;p%(- 0);r;Time(0:-1: 0);#SH//+1.5oct
l64;TR=2;CH=2;r@(GrandPiano);  o5;rv89;v.Random=7;r//@1
q98;P=64-32;rREV=20;CHO=10;rBR=1;p%(- 0);r;Time(0:-1: 0);#PR//+1.25oct
l64;TR=3;CH=3;r@(GrandPiano)   o5;rv79;v.Random=6;r//@1
q99;P=64-37;rREV=20;CHO=10;rBR=1;p%(- 0);r;Time(0:-1: 0);#PL//+1.25oct
l64;TR=4;CH=4;r@(AcousticBass);o4;rv89;v.Random=7;r//@1
q96;P=64+10;rREV= 5;CHO=10;rBR=1;p%(- 0);r;Time(0:-1: 0);#WW//-0.75oct
};





