/*
★ダウンロード、ありがとうございます。よかったら保存してね。
Go to the Sea_1108_Gm-GM
|r^^^ rロレイ |
|ロ^ロロ ^ロハ<イ|イ^チ^ rロヘチ|>ハ^ハハ ^ハ ロッ|ッ^ロ^< rロレイ>|
|ロ^ロロ ^ロハ<イ|イ^チ^ rッレイ|>ハ^ハハ ^ハ<イチ|イチ^レ ^^^^> |
★場面想定；
なつ、ナツ、夏、
部屋の温度は36度。体の温度と同じじゃないか。
海へ行きたい！泳ぎたい！
しかし、体型直すの先決。
ハマグリ食べたい！焼きイカ食べたい！
しかし、お金に余裕はない。
我思う、故に、私は ボケてはいない
フラフラするけど、勝手に診断。
--- from Shakuhachist of Phantom ---
http://www.geocities.jp/apollon_7777
★備忘録
・編集始 … '11/07/26
・初掲載 … '11/08/14 ID6_0670
・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={"032Go to the Sea1108"};
Copyright={"music by y_nis"};
MetaText ={""};
System.TimeBase(96);
System.Keyshift=(Ky)
//System.Include(chord2.h); //--
TimeSignature=4,2;
System.MeasureShift=2;
FUNCTION T(Tx){;Tempo(Tx);};T=80;//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//繰り返し回数
//■●▲★||尺八設定 … ●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(11)};//
Str Ms= {M.W(11,11,!8.,11,64,!16)};//尺八長
Str M2= {M.W(11,11,!8 ,11,68,!16)}; //尺八短
Str Mk= {M.W(64,11,!8.)}; //琴
Str MBS={M.W(0,0,!8 ,0,48,!8)};//ベース短
Str MBL={M.W(0,0,!4 ,0,48,!8)};//ベース長
Str Mv= {M.W(11,11,!8.,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_110402_最終Dm9_triad"aug"→"mM7"
//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 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 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 Cm6= {'ce-ga'}; Str Ebb5={'e-ga'};//Cm6=Am7b5
//7b5
Str Gb7b5={'"g-"b-ce'};//Str C7o5={'"b-ce'};
//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 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-'};
//m7p5
Str Gm7p5= {'"g"b-e-f'};Str Bbsus4={'"b-e-f'};
Str Bm7p5={'"bdga'};//Str Dsus4={'dga'};
//9_改訂110402
Str A9= {'"ad-gb'}; Str Dbm7b5o3={'d-gb'};
Str C9= {'ceb-`d'}; Str Em7b5o3={'eb-`d'};
Str Eb9={'e-g`d-`f'};Str Gm7b5o3={'g`d-`f'};
Str F9= {'"f"ae-g'}; Str Am7b5o3={'"ae-g'};
Str G9= {'"g"bfa'}; Str Bm7b5o3={'"bfa'};
//m9
Str Dm9= {'df`c`e'}; Str FM7o3= {'f`c`e'};
//M_add9
Str Aadd9= {'"ad-eb'}; Str Dbm7o5={'d-eb'};
Str Cadd9= {'ceg`d'};//Str Em7o5= {'eg`d'};
Str Ebadd9={'e-gb-`f'};Str Bm7o5= {'"gb-`f'};
Str Fadd9= {'"f"acg'};//Str Am7o5={'"acg'};
//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'};
//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 )`&"
//bDia FM7 Gm7 Am7 BbM7 C7 Dm7 Em7b5 ( Gb7 )`&"
//■●▲★|| 転調
Str MIN={調#();};//G-Minor
Str MJR={調#(bef);};//G-Major
//調#(bef)で上がる音
//bbNa Gm7 Am7b5 BbM7 Cm7 Dm7 EbM7 F7 //Me Gbdim Em7b5// D7 //イ パ ッ シ ツ
// b-f e- b-f e-b- f e-b- fe- // e- eb- // 無 //b- b e- e f
//#Dia GM7 Am7 Bm7 CM7 D7 Em7 Gbm7b5// Gbm7b5 G7 // D7 //パ ハ シ ツ ヘ
//■●▲★|| percussion
System.Keyshift=(0)
TR=10;CH=10;v.Random=7;
~{ぎ}={v79; n(ShortGuiro),};//n73
~{く}={v99; n(Claves),};//n75
~{は}={v111;n(HandClap),};//n39
~{ぐ}={v121;n(ClosedHiHat),};//n42
~{ち}={v116;n(ChineseCymbal),};//n52
Str PKw={l16;[くぐぎくはぐはぐ|くぐぎくはぐち^]};//1行
Str PKz={l16;くぐぎくはぐはぐ|くぐぎ^ ^ぐくぐ |くぐぎく はぐはぐ|くぐ^く ^^ち^||^v0r64};//1行
#PKp={[2PKw]};#PKm1={[4PKw]};#PK25={PKw};#PKz={PKw;PKz};//#PKm2=#PKm1,#PK26=#PK25,
//■●▲★|| pre
//bbNa Gm7 Am7b5 BbM7 Cm7 Dm7 EbM7 F7 `&"
//bbMe GmM7 Am7 (BbM7p5) C7 D7 Em7b5 Gbdim=Adim=Cdim=Ebdim
#VNp1={l16;#VN21};
#SHp1={l16; r^^^ ^^^^|r^^^ ^^^^|r^^^ ^^^^|r^^^ ^^^^ };
#KTp1={l16;#KT21};
#JJp1={l2 ;#JJ21};
#PPp1={l2 ;#PP21};
//Cp1={l2 ; Gm7 | Gm7 | Cm7 | Cm7 };
#RTp1={l2 ;#RT21};
#WWp1={l16;#WW21};
#VNp2={#VN22};
#SHp2={ r^^^ ^^^^ |r^^^ ^^^^|r^^^ ^^^^|r^^^ r<ロレイ>};
#KTp2={#KT22}
#JJp2={#JJ22};
#PPp2={#PP22};
//Cp2={ BbM7 |EbM7 |D7 |D7 };
#RTp2={#RT22};
#WWp2={#WW22};
#VNp={#VNp1#VNp2};
#SHp={#SHp1#SHp2};
#KTp={#KTp1#KTp2};
#JJp={#JJp1#JJp2};
#PPp={#PPp1#PPp2};
#RTp={#RTp1#RTp2};
#WWp={#WWp1#WWp2};
//■●▲★|| main1
//bbNa Gm7 Am7b5 BbM7 Cm7 Dm7 EbM7 F7 `&"
//bbMe GmM7 Am7 (BbM7p5) C7 D7 Em7b5 Gbdim=Adim=Cdim=Ebdim
#VN11={l16;Mv;b-^^^ ^^^^ |g^^^ ^^^^ | e-^^^ ^^^^ M0|d^^^ a^^^ };
#SH11={l16; ロ^ロロ ^ロハ<イ|イ^チ^ rロヘチ|>ハ^ハハ ^ハロッ|ッ^ロ^< rロレイ>};//=KT13
#KT11={l16; gb-gf g^df |gb-ge-Mk;g^^^M0 | g`cgf g^e-g |a`dagMk;a^^^M0};
#JJ11={l2 ; Bb |Gm | Eb |Dm };
#PP11={l2 ; '"gg' |'e-`e-' |'c`c' '"|b-b-' };
//C11={l2 ; 1 |6 | 4 |3 };
#RT11={l2 ; Gm7 |Ebdim | Cm7 |BbM7 };
#WW11={l16; "g^^"b- ^^d^ |e-^^e- ^^d^ | c^^c ^^c^ "|b-^^c ^^d^};
#VN12={Mv;g^^^ ^^^^ M0|e-^^^ c^^^ | d^^^ "a^^^ "|b-^^^ d^f^ };
#SH12={ロ^ロロ ^ロハ<イ|イ^チ^ rッレイ|>ハ^ハハ ^ハ<イチ|イチ^レ ^^^^>};//=KT14
#KT12={ gb-gf g^e-g |a`cagMk;a^^^M0 | g-ag-d g-^dg-Mk|g^^^M0; rdgb-};
#JJ12={ Gm |Cm | Gbmb5 |Bb };
#PP12={'e-`e-' '"|aa' |'d`d' '"|gg' };
//C12={ 6 |2 | 5 |1 };
#RT12={ EbM7 |Am7b5 | D7 |Gm7 };
#WW12={ e-^^d ^^"b-^ "|a^^c ^^e-^ | d^^e ^^f^ |g^^g ^^"g^};
#VN12={ g^^^ ^^^^ |e-^^^ c^^^ | d^^^ ^^^^ "|b-^^^ d^f^ };
//bbNa Gm7 Am7b5 BbM7 Cm7 Dm7 EbM7 F7 `&"
//bbMe GmM7 Am7 (BbM7p5) C7 D7 Em7b5 Gbdim=Adim=Cdim=Ebdim
#VN13={#VN11};
#SH13={ r^^^ r^^^ |r^^^ r^^^ | r^^^ ^^^^ |r^^^ r^^^ };
#KT13={>d^Mk;d^ ^M0;dc<b-|b-^a^ rdg-a|>c^Mk;c^ ^M0;cde-|e-^d^<rdgb-};//=SH11
#JJ13={#JJ11};//=11
#PP13={#PP11};//=11
//C13={ Gm7 |EbM7 | Cm7 | BbM7 };
#RT13={#RT11};
#WW13={#WW11};//=11
#VN14={#VN12};
#SH14={ r^^^ r^^^ |r^^^ r^^^ |r^^^ ^^^^ |r^^^ ^^^^};
#KT14={>d^Mk;d^ ^M0;dc<b-|b-^a^ re-gb-|>c^Mk;c^ ^M0;c<b-a|b-a^g ^^r^};//=SH12
#JJ14={#JJ12};
#PP14={#PP12};
//C14={ EbM7 | Am7b5 | D7 |Gm7 };//=12
#RT14={#RT12};
#WW14={#WW12};
#VNm1={#VN11#VN12#VN13#VN14};
#SHm1={#SH11#SH12#SH13#SH14};
#KTm1={#KT11#KT12#KT13#KT14};
#JJm1={#JJ11#JJ12#JJ13#JJ14};
#PPm1={#PP11#PP12#PP13#PP14};
#RTm1={#RT11#RT12#RT13#RT14};
#WWm1={#WW11#WW12#WW13#WW14};
#VN21={l16;M0; d^^^ "b-^^^ |d^^^ c^d^ |e-^^^ c^^^ | e-^^^ d^e-^ };
#SH21={l16;M0; イレ^ツ レロツレ|イレ^ツ レ^r^ `|ハレ^ツ レロツレ|`ハレ^ツ レ^r^ };
#KT21={l16;M0; gb-gf g^df |gb-gf Mk;g^^^Mk>|cdc<b-`c^gb- >|cdc<b-Mk;`c^^^M0};
#JJ21={l2 ;M0; Bb |Bb |Eb | Eb };
#PP21={l2 ;M0;'"gg' '"|gg' '|c`c' |'c`c' };
//C21={l2 ;M0; 1 | 1 |4 | 4 };
#RT21={l2 ;M0; Gm7 |Gm7 |Cm7 | Cm7 };
#WW21={l16;M0; <g^^g ^^g^ |g^^a ^^b-^> |c^^c ^^d^ | e-^^d ^^c^ };
#VN22={ f^^^ d^^^ "|b-^^^ d^g^ Mv|a^^^ ^^^^M0 |g^^^ g-^^r };
#SH22={ `ピ`ハ^イ ^チレツ|レ"レ"イロ ツレイ>ハ|ピ^rピ ^rピ^ |ピ^rピ ^rピ^< };//▼SH24[ピ^rピ ^rピ^]と重複気味
#KT22={ >dfdc d^<b->c|dfdc dfga- Mk|a^ ^a ^^M0;a^Mk|a^ ^a ^^M0;a^<};//dfga-
#JJ22={ Dm |Gm |Gbmb5 |Gbmb5 };
#PP22={ '"b-b-' '|e-`e-' '|d`d' '|d`d' };
//C22={ 3 |6 |5m |5m };
#RT22={ BbM7 |EbM7 |D7 |D7 };
#WW22={ "b-^^c ^^d^ |e-^^e- ^^e-^ |d^ ^d ^^d^ |d^^e- ^^g-^ };
//bbNa Gm7 Am7b5 BbM7 Cm7 Dm7 EbM7 F7 `&"
//bbMe GmM7 Am7 (BbM7p5) C7 D7 Em7b5 Gbdim=Adim=Cdim=Ebdim
#VN23={#VN21};
#SH23={`ピ^Ms;レ^ ^^^M0;rMs|"レ^^^ ^^M0;Div{"チハロツ}^Ms|レ^^^ ^^M0;r^Ms|ハ^^^ ^^M0;Div{ロツレチ}^};
#KT23={#KT21};
#JJ23={#JJ21};
#PP23={#PP21};
//C23={ Gm7 | Gm7 | Cm7 | Cm7 };//=21
#RT23={#RT21};
#WW23={#WW21};//=21
#VN24={#VN22};
#SH24={Ms;イ^^^ ^^^^ |^^M0;r^ レ^ロ^> |ピ^rピ ^rピ^ |ピ^rピ ^rピ^< };//▼SH22[ピ^rピ ^rピ^]と重複気味
#KT24={#KT22};
#JJ24={#JJ22};
#PP24={#PP22};
//C24={ BbM7 | EbM7 | D7 | D7 };//=22
#RT24={#RT22};
#WW24={#WW22};
//bbNa Gm7 Am7b5 BbM7 Cm7 Dm7 EbM7 F7 `&"
//bbMe GmM7 Am7 (BbM7p5) C7 D7 Em7b5 Gbdim=Adim=Cdim=Ebdim
#VNm2={#VN21#VN22#VN23#VN24};
#SHm2={#SH21#SH22#SH23#SH24};
#KTm2={#KT21#KT22#KT23#KT24};
#JJm2={#JJ21#JJ22#JJ23#JJ24};
#PPm2={#PP21#PP22#PP23#PP24};
#RTm2={#RT21#RT22#RT23#RT24};
#WWm2={#WW21#WW22#WW23#WW24};
//■●▲★|| GM7に転調
#VN25={Mv;b-^^^ ^^^^ `|d^^^ ^^^^ ||g^^^ ^^^^M0|d^^^"b^^^ };//
#SH25={`ピ^Ms;レ^ ^^^^ |^^^^ ^^M0;r^||r^^^ ^^^^ |r^^^ ^^^^ };
#KT25={`g^Mk;`d^ ^^^^M0|r^^^ ^^^^ ||r^^^ ^^^^ |r^^^ ^^^^ };
#JJ25={ Bb |Bb ||Bm |Bm };
#PP25={'"gg' '"|gg' '"||gg' '"|gg' };
//C25={ 1 | ||1 | };
#RT25={ Gm7 |Gm7 ||GM7 |GM7 };
#WW25={<g^^g ^^g^ |g^^g ^^g^ ||g^^g ^^g^ |g^^g ^^g^>};
//■●▲★|| Gm7に転調
#VN26={Mv;b^^^ ^^^^ `|d^^^ ^^^^ ||g^^^ ^^^^M0|d^^^"b-^^^};//
#SH26={`ピ^Ms;レ^ ^^^^ |^^^^ ^^M0;r^||r^^^ ^^^^ |r^^^ ^^^^ };
#KT26={`g^Mk;`d^ ^^^^M0|r^^^ ^^^^ ||r^^^ ^^^^ |r^^^ ^^^^ };
#JJ26={ Bm |Bm ||Bb |Bb };
#PP26={'"gg' '"|gg' '"||gg' '"|gg' };
//C26={ 1 | ||1 | };
#RT26={ GM7 |GM7 ||Gm7 |Gm7 };
#WW26={<g^^g ^^g^ |g^^g ^^g^ ||g^^g ^^g^ |g^^g ^^g^>};
//■●▲★|| coda
// bNatur Dm7 Em7b5 FM7 Gm7 Am7 BbM7 C7 ----- `&"
// bHarmo DmM7 Em7 --- G7 A7 Bm7b5 Dbdim (Dbm7b5)
// Dbdim=Edim=Gdim=Bbdim
#VNz1={#VN11};
#SHz1={#SH11};
#KTz1={#KT11};
#JJz1={#JJ11};
#PPz1={#PP11};
//Cz1={ 1 | 6 | 4 | 3 };//=11
#RTz1={ Gm7 | EbM7 | Cm7 | BbM7 };//=11
#WWz1={#WW11};
#VNz2= {Mv;T=78;g^^^T=74;^^^^M0|e-^T=40;^T=16;^ T=54;rc^^|T=68;d^^^ T=64;"a^T=54;^^|T=40;"b-^^^T=20;^^^^ ||v0r};
#SHz2= { ロ^ロロ ^ロハ<イ |イ^チ^ rッレイ |>ハ^ハハ ^ハ<イチ | イチ^レ ^^^^> ||v0r};
// くぐぎく はぐはぐ |くぐぎ^ ^ぐぐぐ | くぐぎく はぐはぐ | くぐ^く ^^ち^ ||^^v0r};
#KTz2= { gb-gf g^d^ |g^Mk;e-^ ^^^^M0| g-ag-e d^g-^ | g^^Mk;'dg' ^^^^M0||v0r};
#JJz2s={ Gm | r | Gbmb5 v0| r ||};//UpperPart
#JJz2t={ Gm | Cm | Gbmb5 | Bb ||v0r16};
#PPz2= { 'e-`e-' |'"aa' |'d`d' | '"gg' ||v0r16};
//Cz2= { 6 | 2 | 5 | 1 ||};
#RTz2= { EbM7 | Am7b5 | D7 | Gm7 ||v0r16};
#WWz2= { e-^^d ^^"b-^ |"a^e-^ ^^^^ | d^^e ^^f^ | g^^g ^^^^ ||v0r};
#VNz= {#VNz1#VNz2};
#SHz= {#SHz1#SHz2};
#KTz= {#KTz1#KTz2};
#JJzs={#JJz1#JJz2s};
#JJzt={#JJz1#JJz2t};
#PPz= {#PPz1#PPz2};
#RTz= {#RTz1#RTz2};
#WWz= {#WWz1#WWz2};
//■●▲★|| 集計
Int St=0 //0=前奏～,1=m1～,2=m2～,3=長m1～,4=長m2～,5=短m1～,6=Coda～,7=Audition,8=Score
If(St=0){
#VN= { MIN;#VNp #VNm1#VNm2#VN25 MJR;#VNm1#VNm2 MIN;#VN26 #VNm1#VNz};
#SH= { MIN;#SHp #SHm1#SHm2#SH25 MJR;#SHm1#SHm2 MIN;#SH26 #SHm1#SHz};
#KT= { MIN;#KTp #KTm1#KTm2#KT25 MJR;#KTm1#KTm2 MIN;#KT26 #KTm1#KTz};
#JJs={r4.MIN;#JJp #JJm1#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzs};
#JJt={r8.MIN;#JJp #JJm1#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzt};
#PP= { MIN;#PPp #PPm1#PPm2#PP25 MJR;#PPm1#PPm2 MIN;#PP26 #PPm1#PPz};
#RT= { MIN;#RTp #RTm1#RTm2#RT25 MJR;#RTm1#RTm2 MIN;#RT26 #RTm1#RTz};
#WW= { MIN;#WWp #WWm1#WWm2#WW25 MJR;#WWm1#WWm2 MIN;#WW26 #WWm1#WWz};
#PK= { ;#PKp #PKm1#PKm1#PK25 ;#PKm1#PKm1 #PK25 #PKm1#PKz};};//#PKm2=#PKm1;#PK26=#PK25
If(St=1){;//#VNm1～
#VN= { MIN;#VNm1#VNm2#VN25 MJR;#VNm1#VNm2 MIN;#VN26 #VNm1#VNz};
#SH= { MIN;#SHm1#SHm2#SH25 MJR;#SHm1#SHm2 MIN;#SH26 #SHm1#SHz};
#KT= { MIN;#KTm1#KTm2#KT25 MJR;#KTm1#KTm2 MIN;#KT26 #KTm1#KTz};
#JJs={r4.MIN;#JJm1#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzs};
#JJt={r8.MIN;#JJm1#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzt};
#PP= { MIN;#PPm1#PPm2#PP25 MJR;#PPm1#PPm2 MIN;#PP26 #PPm1#PPz};
#RT= { MIN;#RTm1#RTm2#RT25 MJR;#RTm1#RTm2 MIN;#RT26 #RTm1#RTz};
#WW= { MIN;#WWm1#WWm2#WW25 MJR;#WWm1#WWm2 MIN;#WW26 #WWm1#WWz};
#PK= { ;#PKm1#PKm1#PK25 ;#PKm1#PKm1 #PK25 #PKm1#PKz};};
If(St=2){;//#VNm2～
#VN= { MIN;#VNm2#VN25 MJR;#VNm1#VNm2 MIN;#VN26 #VNm1#VNz};
#SH= { MIN;#SHm2#SH25 MJR;#SHm1#SHm2 MIN;#SH26 #SHm1#SHz};
#KT= { MIN;#KTm2#KT25 MJR;#KTm1#KTm2 MIN;#KT26 #KTm1#KTz};
#JJs={r4.MIN;#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzs};
#JJt={r8.MIN;#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzt};
#PP= { MIN;#PPm2#PP25 MJR;#PPm1#PPm2 MIN;#PP26 #PPm1#PPz};
#RT= { MIN;#RTm2#RT25 MJR;#RTm1#RTm2 MIN;#RT26 #RTm1#RTz};
#WW= { MIN;#WWm2#WW25 MJR;#WWm1#WWm2 MIN;#WW26 #WWm1#WWz};
#PK= { ;#PKm1#PK25 ;#PKm1#PKm1 #PK25 #PKm1#PKz};};
If(St=3){;//MJR;#VNm1～
#VN= { MJR;#VNm1#VNm2 MIN;#VN26 #VNm1#VNz};
#SH= { MJR;#SHm1#SHm2 MIN;#SH26 #SHm1#SHz};
#KT= { MJR;#KTm1#KTm2 MIN;#KT26 #KTm1#KTz};
#JJs={r4.MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzs};
#JJt={r8.MJR;#JJm1#JJm2 MIN;#JJ26 #JJm1#JJzt};
#PP= { MJR;#PPm1#PPm2 MIN;#PP26 #PPm1#PPz};
#RT= { MJR;#RTm1#RTm2 MIN;#RT26 #RTm1#RTz};
#WW= { MJR;#WWm1#WWm2 MIN;#WW26 #WWm1#WWz};
#PK= { ;#PKm1#PKm1 #PK25 #PKm1#PKz};};
If(St=4){;//MJR;#VNm2～
#VN= { MJR;#VNm2 MIN;#VN26 #VNm1#VNz};
#SH= { MJR;#SHm2 MIN;#SH26 #SHm1#SHz};
#KT= { MJR;#KTm2 MIN;#KT26 #KTm1#KTz};
#JJs={r4.MJR;#JJm2 MIN;#JJ26 #JJm1#JJzs};
#JJt={r8.MJR;#JJm2 MIN;#JJ26 #JJm1#JJzt};
#PP= { MJR;#PPm2 MIN;#PP26 #PPm1#PPz};
#RT= { MJR;#RTm2 MIN;#RT26 #RTm1#RTz};
#WW= { MJR;#WWm2 MIN;#WW26 #WWm1#WWz};
#PK= { ;#PKm1 #PK25 #PKm1#PKz};};
If(St=5){;//MIN;#VNm1～
#VN= { MIN;#VNm1#VNz};
#SH= { MIN;#SHm1#SHz};
#KT= { MIN;#KTm1#KTz};
#JJs={r4.MIN;#JJm1#JJzs};
#JJt={r8.MIN;#JJm1#JJzt};
#PP= { MIN;#PPm1#PPz};
#RT= { MIN;#RTm1#RTz};
#WW= { MIN;#WWm1#WWz};
#PK= { ;#PKm1#PKz};};
If(St=6){;//Coda;#VNz
#VN= { MIN;#VNz};
#SH= { MIN;#SHz};
#KT= { MIN;#KTz};
#JJs={r4.MIN;#JJzs};
#JJt={r8.MIN;#JJzt};
#PP= { MIN;#PPz};
#RT= { MIN;#RTz};
#WW= { MIN;#WWz};
#PK= { ;#PKz};};
If(St=7){;//Audition
#VN= { MIN;#VNp #VN11#VN12 #VN21#VN22#VN25 #VNz};
#SH= { MIN;#SHp #SH11#SH12 #SH21#SH22#SH25 #SHz};
#KT= { MIN;#KTp #KT11#KT12 #KT21#KT22#KT25 #KTz};
#JJs={r4.MIN;#JJp #JJ11#JJ12 #JJ21#JJ22#JJ25 #JJzs};
#JJt={r8.MIN;#JJp #JJ11#JJ12 #JJ21#JJ22#JJ25 #JJzt};
#PP= { MIN;#PPp #PP11#PP12 #PP21#PP22#PP25 #PPz};
#RT= { MIN;#RTp #RT11#RT12 #RT21#RT22#RT25 #RTz};
#WW= { MIN;#WWp #WW11#WW12 #WW21#WW22#WW25 #WWz};
#PK= { ;#PKp #PK25#PK25 #PK25#PK25#PK25 #PKz};};
If(St=8){;//Score
#VN= { MIN;#VNp #VNm1#VNm2#VN25 MJR;#VNm1#VNm2 MIN;#VN26 #VNz};
#SH= { MIN;#SHp #SHm1#SHm2#SH25 MJR;#SHm1#SHm2 MIN;#SH26 #SHz};
#KT= { MIN;#KTp #KTm1#KTm2#KT25 MJR;#KTm1#KTm2 MIN;#KT26 #KTz};
#JJs={r4.MIN;#JJp #JJm1#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJzs};
#JJt={r8.MIN;#JJp #JJm1#JJm2#JJ25 MJR;#JJm1#JJm2 MIN;#JJ26 #JJzt};
#PP= { MIN;#PPp #PPm1#PPm2#PP25 MJR;#PPm1#PPm2 MIN;#PP26 #PPz};
#RT= { MIN;#RTp #RTm1#RTm2#RT25 MJR;#RTm1#RTm2 MIN;#RT26 #RTz};
#WW= { MIN;#WWp #WWm1#WWm2#WW25 MJR;#WWm1#WWm2 MIN;#WW26 #WWz};
#PK= { ;#PKp #PKm1#PKm1#PK25 ;#PKm1#PKm1 #PK25 #PKz};};//#PKm2=#PKm1;#PK26=#PK25
//■●▲★|| Play
If(St<8){
TR=1;CH=1;@(Strings1); o6;v51;v.Random=5;//@1
q99;P=64-53;REV=20;CHO= 5;BR=1;p%(-30);FineTune(68);Time(0:0:0);#VN;//+0.75oct→-30
TR=2;CH=2;@(Violin); o6;v51;v.Random=5;//@1
q99;P=64-49;REV=20;CHO= 5;BR=1;p%(-30); ;Time(0:0:0);#VN;//+0.75oct→-30
TR=3;CH=3;@(Flute);;;;;;o6;V=114;v.Random=10;//@1
q99;P=64-24;REV=20;CHO=20;BR=1;p%(-20);FineTune(68);Time(0:0:2);#SH;//+0.5oct→-20
TR=4;CH=4;@(PanFlute);;;o6;V=114;v.Random=10;//@1
q99;P=64-20;REV=20;CHO=20;BR=1;p%(-20); ;Time(0:0:2);#SH;//+0.5oct→-20
TR=5;CH=5;@(Koto);;;;;;;o5;v69;v.Random=6;//@1
q92;P=64- 6;REV=20;CHO=10;BR=1;p%(-10);FineTune(68);Time(0:0:2);#KT;//+0.25oct→-10
TR=6;CH=6;@(Koto);;;;;;;o5;v69;v.Random=6;//@1
q92;P=64- 2;REV=20;CHO=10;BR=1;p%(-10); ;Time(0:0:2);#KT;//+0.25oct→-10
TR=7;CH=7;@(GrandPiano);o5;v58;v.Random=5;@1
q23;P=64-32;REV= 5;CHO= 3;BR=1;p%(- 0);Time(0:0:1);#JJs;//基準
TR=8;CH=8;@(GrandPiano);o5;v58;v.Random=5;@1
q46;P=64-32;REV= 5;CHO= 3;BR=1;p%(- 0);Time(0:0:1);#JJt;//基準
TR=9;CH=9;@(GrandPiano);o4;v58;v.Random=5;@1
q96;P=64-36;REV= 5;CHO= 3;BR=1;p%( 40);Time(0:0:1);#PP; //-1.00oct→+40
TR=10;CH=10;v.Random=7;P=64+19;Time(0:0:1);#PK
TR=11;CH=11;@(AcousticBass);;;o3;v69;v.Random=6;//@1
q99;P=64+24;REV=10;CHO=10;BR=1;p%( 80);FineTune(68);Time(0:0:0);#WW;//-2.00oct→+80
TR=12;CH=12;@(AcousticBass);;;o3;v69;v.Random=6;//@1
q99;P=64+28;REV=10;CHO=10;BR=1;p%( 80); ;Time(0:0:0);#WW;//-2.00oct→+80
TR=13;CH=13;@(AcousticBass);;;o2;v51;v.Random=4;//@1
q99;P=64+37;REV=10;CHO=10;BR=1;p%(120);FineTune(68);Time(0:0:0);#WW;//-3.00oct→+120
TR=14;CH=14;@(AcousticBass);;;o2;v51;v.Random=4;//@1
q99;P=64+41;REV=10;CHO=10;BR=1;p%(120); ;Time(0:0:0);#WW;};//-3.00oct→+120
If(St=8){;//8=Score
TR=01;CH=01;@(Strings1); o6;v51;v.Random=5;//@1
q99;P=64-49;REV=20;CHO= 5;BR=1;p%(-30); ;Time(0:0:0);#VN;//+0.75oct→-30
TR=02;CH=02;@(Flute); o6;V=114;v.Random=10;//@1
q99;P=64-20;REV=20;CHO=20;BR=1;p%(-20); ;Time(0:0:2);#SH;//+0.5oct→-20
TR=03;CH=03;@(Koto);;;;;;;o5;v69;v.Random=6;//@1
q92;P=64- 2;REV=20;CHO=10;BR=1;p%(-10); ;Time(0:0:2);#KT;//+0.25oct→-10
TR=04;CH=04;@(GrandPiano);o5;v58;v.Random=5;@1
q23;P=64-32;REV= 5;CHO= 3;BR=1;p%(- 0);Time(0:0:1);#JJs;//基準
TR=04;CH=04;@(GrandPiano);o5;v58;v.Random=5;@1
q46;P=64-32;REV= 5;CHO= 3;BR=1;p%(- 0);Time(0:0:1);#JJt;//基準
TR=05;CH=05;@(GrandPiano);o4;v58;v.Random=5;@1
q96;P=64-36;REV= 5;CHO= 3;BR=1;p%( 40);Time(0:0:1);#PP; //-1.00oct→+40
TR=10;CH=10;v.Random=7;P=64+19;Time(0:0: 1);#PK
TR=06;CH=06;@(AcousticBass);o3;v69;v.Random=6;//@1
q99;P=64+28;REV=10;CHO=10;BR=1;p%( 80); ;Time(0:0:0);#WW;};//-2.00oct→+80