/* ★ダウンロード、ありがとうございます。よかったら保存してね。 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孔 //・「レシ」重複のため、片仮名「ドレミ」と併用不可 //・5孔音量設定 … 基本音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;dcc^Mk;c^ ^M0;cde-|e-^d^d^Mk;d^ ^M0;dcc^Mk;c^ ^M0;c|cdc|cdc |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^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={}; //■●▲★|| 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={}; //■●▲★|| 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