/*
★ダウンロード、ありがとうございます。よかったら保存してね。
midiのブラスの低音は聞きづらく感じ、ついオクターブ上げてしまいます。
低音を聞きやすくするには？アドヴァイスや感想などをよろしくお願いします。
'12/12/29_改訂2版

ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*　      Classic名曲 mml_file化推進機構       　*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*　    　　　　　　　　　　　　　　　　　     　*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*　    大きな古時計 (Grandfather's Clock)     　*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*　  ヘンリー,クレイ,ワーク(Henry Clay Work)  　*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*　    　　　　　　　　　　　　　　　　　     　*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*　               midi by TODO                　*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*　             Sakura Ver.2.372              　*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ

★ Henry Clay Work(ヘンリー・クレイ・ワーク,1832-1884,USA)
　19世紀のアメリカ合衆国を代表する歌曲作曲家。コネチカット州ミドルタウン
に生まれる。奴隷制廃止運動の活動家の家庭に生まれ育ち、自らも地下鉄道の組
織活動に助力を惜しまなかったとされる。
　主な作品
1865…ジョージア行進曲 "Marching Through Georgia"
1865…調子をそろえてクリック "Ring the Bell, Watchman!"
1876…大きな古時計 "Grandfather's Clock"

★ TODO (TOyama_Ddesktop_Orchestra,富山デスクトップオーケストラ)
   --- from Shakuhachist of Phantom ---
   http://www.geocities.jp/apollon_7777

★備忘録
・初掲載 … '12/12/28, ID=06-1115,05-6353
・改訂 …… '12/12/29, 作者名を南砺から富山へ。ローマ数字を半角数字に。

・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

*/
//**************************************初期設定
ResetXG();ResetGS();ResetGM();
TrackName={"clock_sb015_t112};
Copyright={"Henry_Work,midi_by_TODO"};
MetaText ={""};
System.TimeBase(192);
System.Keyshift=(Ky)
//System.Include(chord2.h); //--
TimeSignature=4,2;
System.MeasureShift=2;
FUNCTION T(Tx){;Tempo(Tx);};Int Tx=112;//T=標準116,練習用112,108,104,
~{改}={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//繰り返し回数

//■●▲★||尺八設定 … ●Rotsurechi1001●
//・Ist=1→5孔,Ist=2→7孔
//・｢レシ｣重複のため、片仮名｢ドレミ｣と併用不可
//・５孔音量設定 … 基本音v115; 
//メリv98(-17);大メリv81(-34);ピv103(-12);カリv127(+12)
~{甲}={>};//そこから8va
~{乙}={<};//そこから-8va
If(Ist=1){//
//符}={音量音程} 和名|     乙  |   甲  | 大甲 |
~{パ}={v 98b };//盤渉|     メハ|   メハ|      |
~{ヰ}={v127b-};//鸞鏡|         |カチ,ヰ|      |
~{イ}={v 81b-};//鸞鏡|カチ,半ハ|       |      |
~{チ}={v115a };//黄鏡|       チ|     チ|      |
~{ウ}={v 98a-};//鳧鐘|     メチ|   メチ|      |
~{レ}={v115g };//双調|       レ|       |大甲レ|
~{ヘ}={v 98g-};//下無|     メレ|   メレ|      |
~{ツ}={v115f };//勝絶|       ツ|     ツ|大甲ツ|
~{シ}={v 98e };//平調|     メツ|   メツ|    四|
~{タ}={v115e-};//断金|         |       |    タ|
~{ッ}={v 81e-};//断金|  カロ,ッ|カロ,ッ|      |
~{ピ}={v103d };//壱越|         |       |    ピ|
//~{ヒ}={v115d};//壱越|        |     ヒ|    ヒ|//琴譜の記号との関係で削除
~{ロ}={v115d };//壱越|       ロ|     ロ|      |
~{リ}={v 98d-};//上無|     メロ|     リ|    リ|
~{ハ}={v115c };};//神仙| 大メロ|     ハ|    ハ|
//尺八設定 … ●Rotsurechi_7●
If(Ist=2){
~{パ}={b};~{ヰ}={b-};~{イ}={b-};~{チ}={a};~{ウ}={a-};
~{レ}={g};~{ヘ}={g-};~{ツ}={f}; ~{シ}={e};~{タ}={e-};~{ッ}={e-};
~{ピ}={d};~{ロ}={d}; ~{リ}={d-};~{ハ}={c};};

//●[イ]を検索すると[ツ]もヒットするのは日本語の配列の関係らしい。
//●Rotsurechi_R101の不具合…「ヘ」は平仮名・片仮名紛らわしい(入力面)


//■●▲★|| 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


//■●▲★|| Chord_121215   C7p5,Bbm6
//7
Str Ab7={'"a-ce-g-'};Str Cmb5= {'ce-g-'};
Str A7= {'"ad-eg'};  Str Dbmb5={'d-eg'};
Str Bb7={'"b-dfa-'}; Str Dmb5= {'dfa-'};
Str B7= {'"be-g-a'}; Str Ebmb5={'e-g-a'};
Str C7= {'cegb-'};   Str Emb5= {'egb-'};
Str D7= {'dg-a`c'};  Str Gbmb5={'g-a`c'};
Str Eb7={'e-gb-`d-'};Str Gmb5= {'gb-`d-'};
Str E7= {'ea-b`d'};  Str Abmb5={'a-b`d'};
Str F7= {'"f"ace-'}; Str Amb5= {'"ace-'};
Str Gb7={'"g-"b-d-e'};Str Bbmb5={'"b-d-e'};
Str G7= {'"g"bdf'};  Str Bmb5= {'"bdf'};
//m7
Str Abm7={'"a-be-g-'};Str B= {'be-g-'};
Str Am7= {'"aceg'};   Str C= {'ceg'};
Str Bbm7={'"b-d-fa-'};Str Db={'d-fa-'};
Str Bm7= {'"bdg-a'};  Str D= {'dg-a'};
Str Cm7= {'ce-gb-'};  Str Eb={'e-gb-'};
Str Dbm7={'d-ea-b'};  Str E= {'ea-b'};
Str Dm7= {'dfa`c'};   Str F= {'fa`c'};
Str Ebm7={'e-g-b-`d-'};Str Gb={'g-b-`d-'};
Str Em7= {'egb`d'};   Str G= {'gb`d'}; 
Str Fm7= {'"f"a-ce-'};Str Ab={'"a-ce-'};
Str Gbm7={'"g-"ad-e'};Str A= {'"ad-e'};
Str Gm7= {'"g"b-df'}; Str Bb={'"b-df'};
//M7
Str AbM7={'"a-ce-g'};Str Cm= {'ce-g'};
Str AM7= {'"ad-ea-'};Str Dbm={'d-ea-'};
Str BbM7={'"b-dfa'}; Str Dm= {'dfa'};
Str CM7= {'cegb'};   Str Em= {'egb'};
Str DM7= {'dg-a`d-'};Str Gbm={'g-a`d-'};
Str EbM7={'e-gb-`d'};Str Gm= {'gb-`d'};
Str EM7= {'ea-b`e-'};Str Abm={'a-b`e-'};
Str FM7= {'"f"ace'}; Str Am= {'"ace'};
Str GM7= {'"g"bdg-'};Str Bm= {'"bdg-'};
//M7b5
Str EbM7b5={'e-ga`d'};Str Dsus4= {'ga`d'};

//mM7(3Notes=aug)
Str AmM7={'"acea-'};  Str Caug= {'cea-'};//=Eaug=Abaug
Str AbmM7={'"a-c-e-g'};Str Cbaug= {'c-e-g'};
Str DmM7={'dfa`d-'};  Str Faug= {'fa`d-'};//=Aaug=Dbaug
Str GmM7={'"g"b-dg-'};Str Bbaug={'"b-dg-'};//=Daug=Gbaug
//dim
Str Abdim={'"a-"bdf'};//Str Bmb5={'"bdf'};
Str Adim= {'"ace-g-'};//Str Cmb5={'ce-g-'};
Str Bbdim={'"b-d-eg'};//Str Dbmb5={'d-eg'};
Str Bdim= {'"bdfa-'};//Str Dmb5={'dfa-'};
Str Cdim= {'ce-g-a'};//Str Ebmb5={'e-g-a'};
Str Dbdim={'d-egb-'};//Str Emb5={'egb-'};
Str Ddim= {'dfa-b'};   Str Fmb5={'fa-b'};
Str Ebdim={'e-g-a`c'};//Str Ebmb5={'e-g-a'};
Str Edim= {'egb-`d-'};//Str gmb5={'gb-`d-'};
Str Fdim= {'dfa-b'};//Str Abmb5={'"a-b`d'};
Str Gbdim={'"g-"ace-'};//Str Amb5={'"ace-'};
Str Gdim= {'"g"b-d-e'};//Str Bbmb5={'"b-d-e'};
//7sus4
Str A7sus4={'"adeg'};Str Em7o5={'deg'};
Str Bb7sus4={'"b-e-fa-'};Str Fm7o5= {'e-fa-'};
Str C7sus4={'cfgb-'};Str Gm7o5={'fgb-'};
Str D7sus4={'dga`c'};Str Am7o5={'ga`c'};
Str G7sus4={'"gcdf'};Str Dm7o5={'cdf'};
//6
Str Ab6={'"a-ce-f'};Str F7o3= {'ce-f'};//Ab6=Fm7,F7o3=Cmbb5
Str A6= {'"ad-eg-'};Str Gb7o3={'d-eg-'};
Str Bb6={'"b-dfg'}; Str G7o3= {'dfg'};//Bb6=Gm7,G7o3=Dmbb5
Str B6= {'"be-g-a-'};Str Ab7o3={'e-g-a-'};//B6=Abm7,Ab7o3=Ebmbb5
Str C6= {'cega'};    Str A7o3= {'ega'};
Str D6= {'dg-ab'};   Str B7o3= {'g-ab'};//D6=Bm7,B7o3=Gbmbb5
Str Eb6={'e-gb-`c'}; Str C7o3= {'gb-`c'};//Eb6=Cm7,C7o3=Gmbb5
Str F6= {'"f"acd'};  Str D7o3= {'"acd'};//F6=Dm7,D7o3=Ambb5
Str G6= {'"g"bde'};  Str E7o3= {'"bde'};//G6=Em7,E7o3=Bmbb5
//m6
Str Bbm6={'"b-d-fg'};Str Dbb5= {'d-fg'};//Bb6=Gm7,G7o3=Dmbb5
Str Cm6= {'ce-ga'}; Str Ebb5={'e-ga'};//Cm6=Am7b5


//7b5
Str Gb7b5={'"g-"b-ce'};//Str C7o5={'"b-ce'};

//7p5
Str C7p5={'cea-b-'}  Str Eb5= {'ea-b-'};

//m7b5
Str Am7b5= {'"ace-g'};//Str Cm={'ce-g'};
Str Bm7b5= {'"bdfa'};// Str Dm={'dfa'};
Str Dbm7b5={'d-egb'};// Str Em={'egb'};
Str Dm7b5= {'dfa-`c'};  Str Fm={'fa-`c'};
Str Em7b5= {'egb-`d'};//Str Gm={'gb-`d'};
Str Gbm7b5={'"g-"ace'};//Str Am={'"ace'};
Str Gm7b5= {'"g"b-d-f'};Str Bbm={'"b-d-f'};

//m7p5
Str Gm7p5= {'"g"b-e-f'};Str Bbsus4={'"b-e-f'};
Str Bm7p5={'"bdga'};//Str Dsus4={'dga'};

//M7p5
Str BbM7p5={'"b-dg-a'};//Str D={'dg-a'};
Str CM7p5= {'cea-b'};//Str E={'ea-b'};
Str EbM7p5={'e-gb`d'};//Str G= {'gb`d'};
Str FM7p5= {'"f"ad-e'}//Str A={'"ad-e'};
Str GM7p5= {'"g"be-g-'};//Str B={'"be-g-'};

//_add9
Str Aadd9= {'"ad-eb'}; Str Dbm7o5={'d-eb'};
Str Cadd9= {'ceg`d'};//Str Em7o5= {'eg`d'};
Str Ebadd9={'e-gb-`f'};//Str Gm7o5= {'"gb-`f'};
Str Fadd9= {'"f"acg'};//Str Am7o5={'"acg'}; 
Str Gadd9= {'"g"bda'};  Str Bm7o5={'"bda'};

//m_add9
Str Amadd9={'"aceb'};  Str CM7o5= {'ceb'};
Str Cmadd9={'ce-g`d'}; Str EbM7o5={'e-g`d'};
Str Dmadd9={'dfa`e'};  Str FM7o5= {'fa`e'};
Str Gmadd9={'"g"b-da'};Str BbM7o5={'"b-da'};

//9_改訂120106
Str A9= {'"ad-egb'};//Str Dbm7b5={'d-egb'};
Str C9= {'cegb-`d'};//Str Em7b5={'egb-`d'};
Str Eb9={'e-gb-`d-`f'};//Str Gm7b5={'gb-`d-`f'};
Str F9= {'"f"ace-g'};//Str Am7b5={'"ace-g'};
Str G9= {'"g"bdfa'};//Str Bm7b5={'"bdfa'};
//m9
Str Dm9= {'dfa`c`e'};//Str FM7= {'fa`c`e'};


//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)`&"


//■●▲★|| per

~{て}={v 93;n(LowTom2),};//n41(低トム2)
~{な}={v 90;n(MidTom2),};//n45(中トム2)
~{こ}={v 87;n(HighTom2),};//n48(高トム2)

~{す}={v 75;n(Snare1),}//n38(スネア1)
~{き}={v 92;n(Kick1),}//n36(Kick1)
~{ば}={v 92;n(LowTom1),}//n43(バスドラム)

~{り}={v 93;n(RideCymbal1),}//n51(Rideシンバル)

~{し}={v 93;n(CrashCymbal1),}//n49(シンバル)
~{く}={v 93;n(ClosedHiHat),}//n42(クローズ)

//■■■■||  ||■■■■ #p 4+1節
//bDiat FM7  Gm7     Am7  BbM7 C7  Dm7   Em7b5  (Gb7)`&"
#KKp={l8; r^ ^^ ^^^^ ||f^r^  g^ab- `|c^r^  r^^^ `|r^c^  `r^c^ `|f^r^  r^^^};//Gro
#PTp={l8; r^ ^^ ^^c^ ||f^ef  g^ab- `|c^^^  ^b-ag |f^^^   e^^^  |f^^^  r^c^};//Ttp1
#PUp={l8; r^ ^^ ^^c^ ||f^ef  e^fg   |a^^^  ^r^^  |c^^^   c^^^  |c^^^  r^c^};;//Tp2
#PVp={l8; r^ ^^ ^^c^ ||c^^^  ^^^^   |c^^^  ^r^^ <|a^^^   b-^^^ |a^^^  ^^>r^};;//Tp3
#OHp={l8; r^ ^^ ^^r^ ||c^^^  ^^^^   |c^^^  "b-^^^|r^c^   ^^c^  |^^^^  ^^r^};//aH1
#OIp={l8; r^ ^^ ^^r^<||a^^^  b-^^^  |agg-^  g^^^>|r^c^   ^^c^  |^^^^  ^^r^};//aH2
#TVp={l8; r^ ^^ ^^^^ ||a^^^  b-^^^  |agg-^  g^^r |a^^^   b-^^^ |a^^^  ^^r^};//Tv1,≒##OIp
#TWp={l8; r^ ^^ ^^^^ ||f^^^  e^^^   |fe-d^  d^^r |f^^^   e^^^  |f^^^  ^^r^};//Tv2
#PRp={l2;[r]         ||F     C7     |   D7    Gm |F      C7   [|F]        };//Pf右
//Cp={l2; r^ ^^ ^^^^ ||1     57     |1           |1      57    |1
#PLp={l2;[r]         ||F     C7     |F     Gm    |F      C7   [|F]        };//Pf左
#UHp={l8; r^ ^^ ^^r^ ||f^^^  e^^^   |fe-d^ b-^^^`|r^c^  `r^c^  |^^c^  f^r^};//ユフォ
#TUp={l8; r^ ^^ ^^r^ ||f^^^  e^^^   |fe-d^ b-^^r`|c^^^  `c^^^  |r^c^  f^r^};//チュバ
#PKp={l8; f^f^f^r^l16||[ffff ffff]l8|f^^^  r^^^  |r^c^   ^^c^  |^^c^  f^c^};//太鼓l16
#PQp={l8; f^`c^ f^r^ ||r^^^  ^^^^   |r^^^  ^^^^  |f^`c^  f^`c^ |f^`c^ f^r^};//WoodBlock

//■●▲★|| #m1 4*2節
//bDiat FM7  Gm7     Am7  BbM7 C7  Dm7   Em7b5  (Gb7)`&"
#KK1={l8; r^^^ ^^^^ |r^^^  ^^^^ |r^^^ ^^^^|r^`c^ f^`c^};//A,
#PT1={l8; f^ef g^fg |aab-a drgg |f^ff e^de|f^^^  r^ c^};//A,
#PU1={#PT1};//A,
#PV1={l8; c^^^ ^^^^ |c^^^  d^^r |c^^^ ^^^^|c^^^  r^ c^};//A,
#OH1={#PV1};//A,
#OI1={l8;<a^^^ b-^^^|a^^^  b-^^r|a^^^ g^^^|a^^^  ^^>r^};//A,
#TV1={l8; a^^^ b-^^^|a^^^  b-^^r|a^^^ g^^^|a^^^  ^^ r^};//A,≒#OI1
#TW1={l8; f^^^ e^^^ |f^^^  ^^^r |f^^^ e^^^|f^^^  ^^ r^};//A,
#PR1={l2; F    C7   |F     Bb   |F    C7 [|F]         };//A,
//C1={l2; 1    57   |1     4    |1    57  |1
#PL1={l2; F    C7   |F     Bb   |F    C7 [|F]         };//A,
#UH1={l8; c^^^ ^^^^ |c^^^ "b-^^r|c^^^ ^^^^|c^^^  ^^ r^};//A,
#TU1={l8; f^^^ e^^^ |f^^^ "b-^^r|c^^^ c^^^|f^c^  f^ r^};//A,
#PK1={l8; r^^^ ^^^^ |r^^^  ^^^^ |r^^^ ^^^^|r^c^  f^ ^^};//A,太鼓
#PQ1={l8; r^^^ ^^^^ |r^^^  ^^^^ |r^^^ ^^^^|f^`c^ f^`c^};//A,Wood

//bDiat FM7  Gm7     Am7  BbM7 C7  Dm7   Em7b5  (Gb7)`&"
#KK2={ r^^^ ^^^^ |r^^^  ^^^^   |r^^^  ^^^^   |rfa`c `f^ r^};//A,
#PT2={ f^ef g^fg |aab-a d rgg  |f^ff  e^de   |f^^^   r^ fa};//
#PU2={ f^ef e^de |fgg-^ d rd-d-|c^cc  c^cc   |c^^^   r^ cf};
#PV2={ c^cc c^cc |fe-dc<b-rb-b-|a^aa  b-^b-b-|a^^^   r^ a>c};
#OH2={ c^^^ ^^^r |c^^^  d^ d-^ |c^^^  ^^^^   |c^^^   ^^ r^};
#OI2={<a^^^ b-^^^|a^^^  b-^^r  |a^^^  b-^^^  |a^^^   ^^>r^};
#TV2={ a^^^ b-^^^|agg-^ b-^^r  |a^^^  b-^^^  |a^^^   ^^ r^};//≒#OI2
#TW2={ f^^^ e^^^ |fe-d^ g^^r   |f^^^  g^^^   |f^^^   ^^ r^};//
#PR2={ F    C7   |  D7    Gm7b5|F     C7    [|F]       };//●Gm7b5
//C2={ 1    57   |1 6   2 2m7b5|1     57     |1
#PL2={ F    C7   |F     Gm     |F     C7    [|F]       };//
#UH2={ c^^^ ^^^^ |fe-d^ g^^r   |c^^^  ^^^^   |c^^^   ^^r^};
#TU2={ f^^^ e^^^ |fe-d^ g^^r   |c^^^  c^^^   |f^c^   f^r^};
#PK2={ r^^^ ^^^^ |r^^^  ^^^^   |r^^^  ^^^^   |r^c^   f^^^};//A,太鼓
#PQ2={ r^^^ ^^^^ |r^^^  ^^^^   |r^^^  ^^^^   |f^`c^  f^`c^};//Wood

#KKm1={#KKp#KK1#KK2};//Gro
#PTm1={#PTp#PT1#PT2};
#PUm1={#PUp#PU1#PU2};
#PVm1={#PVp#PV1#PV2};
#OHm1={#OHp#OH1#OH2};
#OIm1={#OIp#OI1#OI2};
#TVm1={#TVp#TV1#TV2};
#TWm1={#TWp#TW1#TW2};
#PRm1={#PRp#PR1#PR2};
#PLm1={#PLp#PL1#PL2};
#UHm1={#UHp#UH1#UH2};
#TUm1={#TUp#TU1#TU2};
#PKm1={#PKp#PK1#PK2};//太鼓
#PQm1={#PQp#PQ1#PQ2};//Wood

//■●▲★|| m2 4*3+3+1+4*2節   m3 4*3+3+4節
//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KK3={l8; rfa`c `f^^^  |rfb->d f^^^    |e^^^ f^^^|d^f^  e^^^<};//B,
#PT3={l8;`c^ag   f^ef  |gfed   crfa   `|c^ag f^ef|g^^^  ^^rc};//B,
#PU3={l8; a^fe   d^d-d |d^"b-^"arcf    |a^ee d^dd|d^^^  e^rc};//B,
#PV3={l8; f^c<b- a^aa  |b-^^^  ara>c   |e^cc<a^aa|b^^^> c^rc};//B,
#OH3={l8;"rf"ac  f^^^ "|rf"b-d f^^^   "|race a^^^|g^f^  e^rc};//B,
#OI3={l8;#OH3};//B,
#TV3={l8;`c^^^   a^^^  |b-^^^  a^^r   `|c^^^`d^^^|b^^^ `c^r^};////B,●b
#TW3={l8; a^^^   f^^^  |f^^^   f^^r    |a^^^ a^^^|g^^^  ^^r^};//
#PR3={l2; F      Dm    |Bb     F       |Am   Dm  |G7    C7  };//B,何か物足りない
//C3={l2; 1      6     |4      1       |3    6   |27    57  };//B,
#PL3={l2; F      Dm    |Bb     F       |Am   Dm  |G7    C7  };//B,
#UH3={l8; f^^^   d^^^ "|b-^^^  c^^r    |e^^^ f^^^|f^^^  e^r^};//B,
#TU3={l8; f^^^   d^^^ "|b-^^^  f^^r    |a^^^ d^^^|g^^^  c^^r};//B,
#PK3={l8; r^^^   ^^^^  |r^^^l16[ffff]l8|a^^^ r^^^|r^^^  r^^^};//B,太鼓●l16●Tx
#PQ3={l8; r^^^   ^^^^  |r^^^   ^^^^    |r^^^ ^^^^|f^`c^ f^`c^};//B,Wood

//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KK4={ r^^^ ^^^^     |r^^^  ^^^^   `|r^c^`r^c^`|r^c^ f^r^};//
#PT4={ ffr^ g^r^     |aab-a d rgg   |f^^^ e^^^ |f^^^ ^^r^};//
#PU4={ ccr^ e^r^     |fgg-^ d rd-d- |c^^^ c^^^ |c^^^ ^^r^};//
#PV4={"a"ar^c^r^     |fe-dc<b-rb-b- |a^^^ b-^^^|a^^^ ^^>r^};//
#OH4={ ccr^ c^r^     |fe-dc<b-rb-b->|r^c^ ^^c^ |^^^^ r^cc};//
#OI4={<aar^ b-^r^>   |d^^^  d rd-^  |r^c^ ^^c^ |^^^^ r^cc};//
#TV4={ aar^ b-^r^    |agg-^ b-^^^   |a^^^ b-^^^|a^^^ ^^r^};//
#TW4={ ffr^ e^r^     |fe-d^ g^^^    |f^^^ g^^^ |f^^^ ^^r^};//
#PR4={ r    r        |   D7    Gm7b5|F    C7  [|F]       };//≒#PR2
//C4={ F    C7       | F D7 Gm Gm7b5|F    C7  [|F]
#PL4={#PL2};//B,
#UH4={ ccr^ c^r^     |fe-d^ g^^^    |f^^^ c^^^ |c^^^  ^^r^};//
#TU4={ ffr^ c^r^     |fe-d^ g^^r    |c^^^ c^^^ |f^c^  f^r^};//
#PK4={ r^^^ r^^^     |r^^^  r^^^    |r^^^ ^^^^ |r^c^  f^^^};//太鼓●Tx
#PQ4={ r^^^ ^^^^     |r^^^  ^^^^    |r^^^ ^^^^ |f^`c^ f^`c^};//Wood

//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KK5={[4c^r^`c^r^]};//C,
#PT5={ r^^^ ^^^^ |r^^^  ^^^^ |r^^^ ^^^^ |r^^^  ^^^c};//C,
#PU5={ r^^^ ^^^^ |r^^^  ^^^^ |r^^^ ^^^^ |r^^^  ^^^c};//C,
#PV5={ r^^^ ^^^^ |r^^^  ^^^^ |r^^^ ^^^^ |r^^^  ^^^c};//C,
#OH5={ f^cc dcc^"|arcr "arcr |f^cc dcc^"|arcr "arcr};//C,
#OI5={#OH5}; 
#TV5={`c^^^ ^^^^`|c^^^ ^rb-^`|c^^^ ^^^^`|c^^^  ^^r^};//
#TW5={ a^^^ b-^^^|a^^^ ^rb-^ |a^^^ b-^^^|a^^^  r^g^};//
#PR5={ F    C7   |  F      C7|F    C7   |F     C7  };//C,●C7p5→C7訂正
//C5={ 1    57   |1     57p5 |1    57   |1     57  };//C,●C7p5→C7訂正
#PL5={ F    C7   |F     F    |F    C7   |F     C7  };//C,
#UH5={ f^^^ e^^^ |f^^^  c^^r |f^^^ e^^^ |f^^^  r^e^};//C,
#TU5={ a^^^ g^^^ |f^^^  c^^r |a^^^ g^^^ |f^^^  c^^r};//C,
#PK5={ r^^^ ^^^^ |r^^^  ^^^^ |r^^^ ^^^^ |r^^^  r^^^};//C,太鼓●Tx
#PQ5={ r^^^ ^^^^ |f^`c^ f^`c^|r^^^ ^^^^ |f^`c^ f^`c^};//C,Wood

//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KK6x={`rf`ca r`g`e`c |a^r^   b-^r^ `|r^c^`r^c^};//
#PT6x={ ffr^  g ^ r ^ |aab-a  d rg g |f^^^ e^^^  };//≒4
#PU6x={ ccr^  e ^ r ^ |fgg-^  d rd-d-|c^^^ c^^^  };//
#PV6x={"a"ar^ c ^ r ^ |fe-dc <b-rb-b-|a^^^ b-^^^>};//≒4
#OH6x={ ccr^  c ^ r ^ |fe-dc <b-rb-b-|a^^^>c^^^  };//
#OI6x={<aar^  b-^ r ^>|c^^^   d rd-^ |c^^^"b-^^^ };//
#TV6x={ aar^  b-^ r ^ |agg-^  b-^^^  |a^^^ b-^^^ };//
#TW6x={ ffr^  e ^ r ^ |fe-d^  g^^^   |f^^^ g^^^  };//
#PR6x={ F     C7      |  D7     Gm7b5|F    C7    };//≒2●Gm7b5
//C6x={ 1     57      |1 67   2 2m7b5|1    57
#PL6x={ F     C7      |F      Gm     |F    C7    };//≒2
#UH6x={ ccr^  c ^ r^  |fe-d^  g^^r   |f^^^ c^^^  };//
#TU6x={ ffr^  c ^ r^  |fe-d^  g^^r   |c^^^ c^^^  };//
#PK6x={ r^^^  r^^^    |r^^^   r^^^   |r^^^ r^^^  };//太鼓●Tx
#PQ6x={ r^^^   ^^^^   |r^^^   r^^^   |r^^^ r^^^  };//Wood

#KKi={#KK3#KK4#KK5#KK6x};
#PTi={#PT3#PT4#PT5#PT6x};
#PUi={#PU3#PU4#PU5#PU6x};
#PVi={#PV3#PV4#PV5#PV6x};
#OHi={#OH3#OH4#OH5#OH6x};
#OIi={#OI3#OI4#OI5#OI6x};
#TVi={#TV3#TV4#TV5#TV6x};
#TWi={#TW3#TW4#TW5#TW6x};
#PRi={#PR3#PR4#PR5#PR6x};
#PLi={#PL3#PL4#PL5#PL6x};
#UHi={#UH3#UH4#UH5#UH6x};
#TUi={#TU3#TU4#TU5#TU6x};
#PKi={#PK3#PK4#PK5#PK6x};//太鼓
#PQi={#PQ3#PQ4#PQ5#PQ6x};//Wood

//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KK6y={`r^c^  f^r^};//
#PT6y={ f^^^  ^^r^};//≒4
#PU6y={ c^^^  ^^r^};//
#PV6y={"a^^^  ^^r^};//
#OH6y={ c^^^  ^^r^};//
#OI6y={"a^^^  ^^r^};//
#TV6y={ a^^^  ^^r^};//
#TW6y={ f^^^  ^^r^};//
#PR6y={[F]        };//≒2
//C6y={ 1
#PL6y={[F]        };//≒2
#UH6y={ c^^^  r^c^};//
#TU6y={ f^^^  ^^r^};//
#PK6y={ r^c^  f^^^};//太鼓
#PQ6y={ f^`c^ f^`c^};//Wood

//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KK7={ r^^^ ^^^^   |r^^^  ^^^^  |r^^^ ^^^^   |r^^^ ^^^^  };//D
#PT7={ r^^^ ^^^^   |r^^^ ^^^^   |r^^^ ^^^^   |rcag f^`cb-};//D
#PU7={ r^^^ ^^^^   |r^^^ ^^^^   |r^^^ ^^^^   |r^^^ ^^^^  };//D
#PV7={ r^^^ ^^^^   |r^^^ ^^^^   |r^^^ ^^^^   |r^^^ ^^^^  };//D
#OH7={ rfff reee   |rfff rfff   |rfff reee   |rfff rfff  };//D
#OI7={ rccc rccc   |rccc rddd   |rccc rccc   |rccc rccc  };//D
#TV7={ raaa rb-b-b-|raaa rb-b-b-|raaa rb-b-b-|raaa raaa  };//D
#TW7={ rfff reee   |rfff rfff   |rfff rggg   |rfff rfff  };//D
#PR7={#PR1};//D
//C7={ F    C7  |F     Bb   |F    C7 [|F]
#PL7={#PL1};//D
#UH7={ f^ef g^fg   |aab-a drgg  |f^ff e^de   |f^^^  r^c^ };//D
#TU7={ f^r^ e^r^   |f^r^ "b-^r^ |c^r^ c^r^   |f^r^  f^r^ };//D
#PK7={ r^^^ ^^^^   |r^^^  ^^^^  |r^^^ ^^^^   |r^^^  ^^^^ };//D,太鼓
#PQ7={ r^^^ ^^^^   |r^^^  ^^^^  |r^^^ ^^^^   |f^`c^ f^`c^};//D,Wood

//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KK8={ r^^^ ^^^^  |r^^^  ^^^^  |r^^^ ^^^^  |r^^^  ^^^^};//
#PT8={ a^^^ b-^^^>|r^c^  d^d-^ |c^^^<b-^^^`|r^cb- a^fa};//
#PU8={ r^^^ ^^^^  |r^^^  ^^^^  |r^^^ ^^^^  |r^^^  ^^cf};//
#PV8={ r^^^ ^^^^  |r^^^  ^^^^  |r^^^ ^^^^  |r^^^  ^^"ac};//
#OH8={ rfff reee  |rfff  rfff  |rfff reee  |rfff  rfff};//
#OI8={ rccc rccc  |rccc  rdd-d-|rccc rccc  |rccc  rccc};//
#TV8={#TV7};//
#TW8={#TW7};//
#PR8={ F    C7    |  F     Bbm6|F    C7   [|F]        };//≒1
//C8={ F    C7    |F     Bb    |F    C7   [|F]           (=#PL1)
#PL8={#PL1};//
#UH8={ f^ef g^fg  |aab-a drgg  |f^ff e^de  |f^^^  ^^r^};//≒#UH7
#TU8={#TU7};//
#PK8={ r^^^ ^^^^  |r^^^  ^^^^  |r^^^ ^^^^  |r^^^  ^^^^};//太鼓
#PQ8={ r^^^ ^^^^  |r^^^  ^^^^  |r^^^ ^^^^  |f^`c^ f^`c^};//Wood

#KKm2={#KKi #KK6y#KK7#KK8};
#PTm2={#PTi #PT6y#PT7#PT8};
#PUm2={#PUi #PU6y#PU7#PU8};
#PVm2={#PVi #PV6y#PV7#PV8};
#OHm2={#OHi #OH6y#OH7#OH8};
#OIm2={#OIi #OI6y#OI7#OI8};
#TVm2={#TVi #TV6y#TV7#TV8};
#TWm2={#TWi #TW6y#TW7#TW8};
#PRm2={#PRi #PR6y#PR7#PR8};
#PLm2={#PLi #PL6y#PL7#PL8};
#UHm2={#UHi #UH6y#UH7#UH8};
#TUm2={#TUi #TUy6#TU7#TU8};
#PKm2={#PKi #PK6y#PK7#PK8};//太鼓
#PQm2={#PQi #PQ6y#PQ7#PQ8};//Wood

//bDia  FM7  Gm7    Am7  BbM7 C7  Dm7   Em7b5 ( Gb7 )`&"
#KKz={      `r^c^`f^r^        |r^b-^ r^b-^ |      `f^^^　v0r};//
#PTz={       f^^^ ^^r^        |r^b-^ r^b-^ |       r^^^  a^^^  |^^^^ ^^^^||v0r};//
#PUz={       c^^^ ^^r^        |r^f^  r^f^  |       rafe  f^^^  |^^^^ ^^^^||v0r};//
#PVz={      "a^^^ ^^r^        |r^d^  r^d-^ |       r^^^  c^^^  |^^^^ ^^^^||v0r};//
#OHz={       c^^^"rf"ac       |f^^^  f^^^  |       f^^^  ^^^^  |^^^^ ^^^^||v0r};//
#OIz={      <a^^^ rf a>c      |f^^^  f^^^  |       f^^^  ^^^^  |^^^^ ^^^^||v0r};//
#TVz={       a^^^ ^^r^ >      |r^d^  r^d-^ |       r^^^  c^^^  |^^^^ ^^^^||v0r};//
#TWz={       f^^^ ^^r^        |r^b-^ r^b-^ |       r^^^  a^^^  |^^^^ ^^^^||v0r};//
#PRz={      [F]               |Bb    Bbm   |         F     v0r |         };//
//Cz={       1                |4     4m    |       1
#PLz={      [F]               |Bb    Bbm   |       F     F   v0|r};//
#UHz={       c^^^ ^^r^        |r^f^  r^f^  |       r^^^  c^^^  |^^^^ ^^^^||v0r};//
#TUz={       f^^^ ^^r^        |r^b-^ r^b-^ |       r^^^  f^^^  |^^^^ ^^^^||v0r};//
#PKz={T(Tx-4)r^c^ f^^^T(Tx-5)"|r^b-^ ^^"b-^|T(Tx-6)^^r^  f^^^v0|r};//太鼓●T(Tx)
#PQz={       r^^^ ^^^^        |r^^^   ^^^^ |       r^^^  ^^^^v0|r};//Wood

#KKm3={#KKi #KKz};
#PTm3={#PTi #PTz};
#PUm3={#PUi #PUz};
#PVm3={#PVi #PVz};
#OHm3={#OHi #OHz};
#OIm3={#OIi #OIz};
#TVm3={#TVi #TVz};
#TWm3={#TWi #TWz};
#PRm3={#PRi #PRz};
#PLm3={#PLi #PLz};
#UHm3={#UHi #UHz};
#TUm3={#TUi #TUz};
#PKm3={#PKi #PKz};//太鼓
#PQm3={#PQi #PQz};//Wood


//■●▲★|| 集計
Int St=1 //1…前・m1〜、2…m2p〜、3…m3〜
If(St=1){
#KK={   #KKm1 #KKm2 #KKm3};
#PT={   #PTm1 #PTm2 #PTm3};
#PU={   #PUm1 #PUm2 #PUm3};
#PV={   #PVm1 #PVm2 #PVm3};
#OH={   #OHm1 #OHm2 #OHm3};
#OI={   #OIm1 #OIm2 #OIm3};
#TV={   #TVm1 #TVm2 #TVm3};
#TW={   #TWm1 #TWm2 #TWm3};
#PR={r4;#PRm1 #PRm2 #PRm3};
#PL={   #PLm1 #PLm2 #PLm3};
#UH={   #UHm1 #UHm2 #UHm3};
#TU={   #TUm1 #TUm2 #TUm3};
#PK={   #PKm1 #PKm2 #PKm3};//太鼓
#PQ={   #PQm1 #PQm2 #PQm3};//Wood
};
If(St=2){
#KK={   #KKm2 #KKm3};
#PT={   #PTm2 #PTm3};
#PU={   #PUm2 #PUm3};
#PV={   #PVm2 #PVm3};
#OH={   #OHm2 #OHm3};
#OI={   #OIm2 #OIm3};
#TV={   #TVm2 #TVm3};
#TW={   #TWm2 #TWm3};
#PR={r4;#PRm2 #PRm3};
#PL={   #PLm2 #PLm3};
#UH={   #UHm2 #UHm3};
#TU={   #TUm2 #TUm3};
#PK={   #PKm2 #PKm3};//太鼓
#PQ={   #PQm2 #PQm3};//Wood
};
If(St=3){
#KK={   #KKm3};
#PT={   #PTm3};
#PU={   #PUm3};
#PV={   #PVm3};
#OH={   #OHm3};
#OI={   #OIm3};
#TV={   #TVm3};
#TW={   #TWm3};
#PR={r4;#PRm3};
#PL={   #PLm3};
#UH={   #UHm3};
#TU={   #TUm3};
#PK={   #PKm3};//太鼓
#PQ={   #PQm3};//Wood
};

//■●▲★|| Play …… TyokuNal様式チューニング=8vaにつき5.0cent下げる=[BR(1);p%(-40)]
Int Is=1;//  1=全, 2=ペット,　3=アルトホ, 4=トロンボ, 5=ユホ・チュバ
If(Is=1){;//
TR=1;CH=1;@(Trumpet);       o5;v89;v.Random=7;q99;P=64-52;REV=20;CHO=20;BR=1;p%(-40);Time(0:0:-2);#PT;//ペト1;+1.00oct
TR=2;CH=2;@(Trumpet);       o5;v89;v.Random=7;q99;P=64-44;REV=20;CHO=20;BR=1;p%(-30);Time(0:0:-1);#PU;//ペト2;+0.75oct
TR=3;CH=3;@(Trumpet);       o5;v89;v.Random=7;q99;P=64-36;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-1);#PV;//ペト3;+0.50oct

TR=4;CH=4;@(Trumpet);       o5;v89;v.Random=7;q98;P=64-28;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-0);#OH;//アル1;+0.50oct
TR=5;CH=5;@(Trumpet);       o5;v89;v.Random=7;q98;P=64-20;REV=20;CHO=20;BR=1;p%(-10);Time(0:0:-0);#OI;//アル2;+0.25oct

TR=6;CH=6;@(GrandPiano);    o4;v89;v.Random=7;q45;P=64-12;REV=15;CHO= 7;BR=1;p%(- 0);Time(0:0:-0);#PR;//コド上;基準
TR=7;CH=7;@(GrandPiano);    o3;v89;v.Random=7;q44;P=64- 4;REV=15;CHO= 7;BR=1;p%(+40);Time(0:0:-0);#PL;//コド下;-1.0oct

TR=08;CH=08;@(TaikoDrum);   o4;v89;v.Random=7;q92;P=64+ 4;REV=15;CHO=15;BR=1;p%(+20);Time(0:0:-0);#PK;//太鼓　;-0.50oct
TR=09;CH=09;@(Woodblock);   o6;v59;v.Random=4;q91;P=64+12;REV=15;CHO=15;BR=1;p%(-80);Time(0:0:-0);#PQ;//ウッド;+2.00oct
TR=11;CH=11;@(Glockenspiel);o5;v59;v.Random=4;q93;P=64+20;REV=15;CHO=15;BR=1;p%(-70);Time(0:0:-0);#KK;//グロケ;+1.75oct▼音がとりにくい！

TR=12;CH=12;@(Trombone);    o4;v89;v.Random=7;q97;P=64+28;REV=20;CHO=20;BR=1;p%(- 0);Time(0:0:-0);#TV;//ボン1;基準
TR=13;CH=13;@(Trombone);    o4;v89;v.Random=7;q97;P=64+36;REV=20;CHO=20;BR=1;p%(+10);Time(0:0:-1);#TW;//ボン2;-0.25oct

TR=14;CH=14;@(Tuba);        o4;v89;v.Random=7;q96;P=64+44;REV=20;CHO=20;BR=1;p%(+20);Time(0:0:-1);#UH;//ユフォ;-0.50oct
TR=15;CH=15;@(Tuba);        o3;v89;v.Random=7;q96;P=64+52;REV=20;CHO=20;BR=1;p%(+40);Time(0:0:-2);#TU;//チュバ;-1.00oct
}//■v120

If(Is=2){;//2=ペット,
TR=1;CH=1;@(Trumpet);       o5;v110;v.Random=7;q99;P=64-60;REV=20;CHO=20;BR=1;p%(-40);Time(0:0:-2);#PT;//ペト1;+1.00oct■v110
TR=2;CH=2;@(Trumpet);       o5;v110;v.Random=7;q99;P=64- 0;REV=20;CHO=20;BR=1;p%(-30);Time(0:0:-1);#PU;//ペト2;+0.75oct■v110
TR=3;CH=3;@(Trumpet);       o5;v110;v.Random=7;q99;P=64+60;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-1);#PV;//ペト3;+0.50oct■v110

TR=4;CH=4;@(Trumpet);       o5;v69;v.Random=7;q98;P=64-28;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-0);#OH;//アル1;+0.50oct
TR=5;CH=5;@(Trumpet);       o5;v69;v.Random=7;q98;P=64-20;REV=20;CHO=20;BR=1;p%(-10);Time(0:0:-0);#OI;//アル2;+0.25oct

TR=6;CH=6;@(GrandPiano);    o4;v69;v.Random=7;q45;P=64-12;REV=15;CHO= 7;BR=1;p%(- 0);Time(0:0:-0);#PR;//コド上;基準
TR=7;CH=7;@(GrandPiano);    o3;v69;v.Random=7;q44;P=64- 4;REV=15;CHO= 7;BR=1;p%(+40);Time(0:0:-0);#PL;//コド下;-1.0oct

TR=08;CH=08;@(TaikoDrum);   o4;v69;v.Random=7;q92;P=64+ 4;REV=15;CHO=15;BR=1;p%(+20);Time(0:0:-0);#PK;//太鼓　;-0.50oct
TR=09;CH=09;@(Woodblock);   o6;v59;v.Random=4;q91;P=64+12;REV=15;CHO=15;BR=1;p%(-80);Time(0:0:-0);#PQ;//ウッド;+2.00oct
TR=11;CH=11;@(Glockenspiel);o5;v59;v.Random=4;q93;P=64+20;REV=15;CHO=15;BR=1;p%(-70);Time(0:0:-0);#KK;//グロケ;+1.75oct

TR=12;CH=12;@(Trombone);    o4;v69;v.Random=7;q97;P=64+28;REV=20;CHO=20;BR=1;p%(- 0);Time(0:0:-0);#TV;//ボン1;基準
TR=13;CH=13;@(Trombone);    o4;v69;v.Random=7;q97;P=64+36;REV=20;CHO=20;BR=1;p%(+10);Time(0:0:-1);#TW;//ボン2;-0.25oct

TR=14;CH=14;@(Tuba);        o4;v69;v.Random=7;q96;P=64+44;REV=20;CHO=20;BR=1;p%(+20);Time(0:0:-1);#UH;//ユフォ;-0.50oct
TR=15;CH=15;@(Tuba);        o3;v69;v.Random=7;q96;P=64+52;REV=20;CHO=20;BR=1;p%(+40);Time(0:0:-2);#TU;//チュバ;-1.00oct
}

If(Is=3){;//3…アルトホ
TR=1;CH=1;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-52;REV=20;CHO=20;BR=1;p%(-40);Time(0:0:-2);#PT;//ペト1;+1.00oct
TR=2;CH=2;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-44;REV=20;CHO=20;BR=1;p%(-30);Time(0:0:-1);#PU;//ペト2;+0.75oct
TR=3;CH=3;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-36;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-1);#PV;//ペト3;+0.50oct

TR=4;CH=4;@(Trumpet);       o5;v120;v.Random=7;q98;P=64-60;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-0);#OH;//アル1;+0.50oct■v120
TR=5;CH=5;@(Trumpet);       o5;v120;v.Random=7;q98;P=64+60;REV=20;CHO=20;BR=1;p%(-10);Time(0:0:-0);#OI;//アル2;+0.25oct■v120

TR=6;CH=6;@(GrandPiano);    o4;v69;v.Random=7;q45;P=64-12;REV=15;CHO= 7;BR=1;p%(- 0);Time(0:0:-0);#PR;//コド上;基準
TR=7;CH=7;@(GrandPiano);    o3;v69;v.Random=7;q44;P=64- 4;REV=15;CHO= 7;BR=1;p%(+40);Time(0:0:-0);#PL;//コド下;-1.0oct

TR=08;CH=08;@(TaikoDrum);   o4;v69;v.Random=7;q92;P=64+ 4;REV=15;CHO=15;BR=1;p%(+20);Time(0:0:-0);#PK;//太鼓　;-0.50oct
TR=09;CH=09;@(Woodblock);   o6;v59;v.Random=4;q91;P=64+12;REV=15;CHO=15;BR=1;p%(-80);Time(0:0:-0);#PQ;//ウッド;+2.00oct
TR=11;CH=11;@(Glockenspiel);o5;v59;v.Random=4;q93;P=64+20;REV=15;CHO=15;BR=1;p%(-70);Time(0:0:-0);#KK;//グロケ;+1.75oct

TR=12;CH=12;@(Trombone);    o4;v69;v.Random=7;q97;P=64+28;REV=20;CHO=20;BR=1;p%(- 0);Time(0:0:-0);#TV;//ボン1;基準
TR=13;CH=13;@(Trombone);    o4;v69;v.Random=7;q97;P=64+36;REV=20;CHO=20;BR=1;p%(+10);Time(0:0:-1);#TW;//ボン2;-0.25oct

TR=14;CH=14;@(Tuba);        o4;v69;v.Random=7;q96;P=64+44;REV=20;CHO=20;BR=1;p%(+20);Time(0:0:-1);#UH;//ユフォ;-0.50oct
TR=15;CH=15;@(Tuba);        o3;v69;v.Random=7;q96;P=64+52;REV=20;CHO=20;BR=1;p%(+40);Time(0:0:-2);#TU;//チュバ;-1.00oct
}

If(Is=4){;//4…トロンボ
TR=1;CH=1;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-52;REV=20;CHO=20;BR=1;p%(-40);Time(0:0:-2);#PT;//ペト1;+1.00oct
TR=2;CH=2;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-44;REV=20;CHO=20;BR=1;p%(-30);Time(0:0:-1);#PU;//ペト2;+0.75oct
TR=3;CH=3;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-36;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-1);#PV;//ペト3;+0.50oct

TR=4;CH=4;@(Trumpet);       o5;v69;v.Random=7;q98;P=64-28;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-0);#OH;//アル1;+0.50oct
TR=5;CH=5;@(Trumpet);       o5;v69;v.Random=7;q98;P=64-20;REV=20;CHO=20;BR=1;p%(-10);Time(0:0:-0);#OI;//アル2;+0.25oct

TR=6;CH=6;@(GrandPiano);    o4;v89;v.Random=7;q45;P=64-12;REV=15;CHO= 7;BR=1;p%(- 0);Time(0:0:-0);#PR;//コド上;基準
TR=7;CH=7;@(GrandPiano);    o3;v69;v.Random=7;q44;P=64- 4;REV=15;CHO= 7;BR=1;p%(+40);Time(0:0:-0);#PL;//コド下;-1.0oct

TR=08;CH=08;@(TaikoDrum);   o4;v69;v.Random=7;q92;P=64+ 4;REV=15;CHO=15;BR=1;p%(+20);Time(0:0:-0);#PK;//太鼓　　;-0.50oct
TR=09;CH=09;@(Woodblock);   o6;v59;v.Random=4;q91;P=64+12;REV=15;CHO=15;BR=1;p%(-80);Time(0:0:-0);#PQ;//ウッド;+2.00oct
TR=11;CH=11;@(Glockenspiel);o5;v59;v.Random=4;q93;P=64+20;REV=15;CHO=15;BR=1;p%(-70);Time(0:0:-0);#KK;//グロケ;+1.75oct

TR=12;CH=12;@(Trombone);    o4;v120;v.Random=7;q97;P=64-60;REV=20;CHO=20;BR=1;p%(- 0);Time(0:0:-0);#TV;//ボン1;基準    ■v120
TR=13;CH=13;@(Trombone);    o4;v120;v.Random=7;q97;P=64+60;REV=20;CHO=20;BR=1;p%(+10);Time(0:0:-1);#TW;//ボン2;-0.25oct■v120

TR=14;CH=14;@(Tuba);        o4;v69;v.Random=7;q96;P=64+44;REV=20;CHO=20;BR=1;p%(+20);Time(0:0:-1);#UH;//ユフォ;-0.50oct
TR=15;CH=15;@(Tuba);        o3;v69;v.Random=7;q96;P=64+52;REV=20;CHO=20;BR=1;p%(+40);Time(0:0:-2);#TU;//チュバ;-1.00oct
}

If(Is=5){;//5=ユホ・チュバ
TR=1;CH=1;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-52;REV=20;CHO=20;BR=1;p%(-40);Time(0:0:-2);#PT;//ペト1;+1.00oct
TR=2;CH=2;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-44;REV=20;CHO=20;BR=1;p%(-30);Time(0:0:-1);#PU;//ペト2;+0.75oct
TR=3;CH=3;@(Trumpet);       o5;v69;v.Random=7;q99;P=64-36;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-1);#PV;//ペト3;+0.50oct

TR=4;CH=4;@(Trumpet);       o5;v69;v.Random=7;q98;P=64-28;REV=20;CHO=20;BR=1;p%(-20);Time(0:0:-0);#OH;//アル1;+0.50oct
TR=5;CH=5;@(Trumpet);       o5;v69;v.Random=7;q98;P=64-20;REV=20;CHO=20;BR=1;p%(-10);Time(0:0:-0);#OI;//アル2;+0.25oct

TR=6;CH=6;@(GrandPiano);    o4;v69;v.Random=7;q45;P=64-12;REV=15;CHO= 7;BR=1;p%(- 0);Time(0:0:-0);#PR;//コド上;基準
TR=7;CH=7;@(GrandPiano);    o3;v69;v.Random=7;q44;P=64- 4;REV=15;CHO= 7;BR=1;p%(+40);Time(0:0:-0);#PL;//コド下;-1.0oct

TR=08;CH=08;@(TaikoDrum);   o4;v69;v.Random=7;q92;P=64+ 4;REV=15;CHO=15;BR=1;p%(+20);Time(0:0:-0);#PK;//太鼓　;-0.50oct
TR=09;CH=09;@(Woodblock);   o6;v59;v.Random=4;q91;P=64+12;REV=15;CHO=15;BR=1;p%(-80);Time(0:0:-0);#PQ;//ウッド;+2.00oct
TR=11;CH=11;@(Glockenspiel);o5;v59;v.Random=4;q93;P=64+20;REV=15;CHO=15;BR=1;p%(-70);Time(0:0:-0);#KK;//グロケ;+1.75oct

TR=12;CH=12;@(Trombone);    o4;v69;v.Random=7;q97;P=64+28;REV=20;CHO=20;BR=1;p%(- 0);Time(0:0:-0);#TV;//ボーン1;基準
TR=13;CH=13;@(Trombone);    o4;v69;v.Random=7;q97;P=64+36;REV=20;CHO=20;BR=1;p%(+10);Time(0:0:-1);#TW;//ボーン2;-0.25oct

TR=14;CH=14;@(Tuba);        o4;v120;v.Random=7;q96;P=64-60;REV=20;CHO=20;BR=1;p%(+20);Time(0:0:-1);#UH;//ユフォ;-0.50oct■v120
TR=15;CH=15;@(Tuba);        o3;v120;v.Random=7;q96;P=64+60;REV=20;CHO=20;BR=1;p%(+40);Time(0:0:-2);#TU;//チュバ;-1.00oct■v120
}

