/*
☆ダウンロード、ありがとうございます。よかったら保存してね。
☆031フキノトウ||:CM-Am:||
| ハ^^"レ ハ.シ.レ|^^^r シ.レ.チ|`ハ^^^`ハ.パ.チ|レ^^^ ^^r^|
|`ハ^^^ `ハ.パ.チ|レ^^r レ.ツ.シ| ロ^^^ シ.ロ.シ|レ^^^ ^^r^|
☆場面想定；
フキノトウの季節になった
いざ行かん、あの山へ！
でも美味しい物には、危険がつき物。
熊だって、フキノトウを食べるだろう。
熊よけ鈴をつけ、携帯ラジオの電池を取り替え、
自ら祈る「フォースの供にあらんことを…」
フキノトウが採れたなら
よ～く洗って微塵切り、
フライパンに油を入れて点火。
フキノトウを炒めたら、すぐ弱火
味噌と酒粕を入れ、砂糖で味を調節
火が通ったらできあがり。
☆苦味の効用（石塚左玄…1851-1909福井県。養生医学者）
石塚左玄は、健康で長生きするため、各季節での推薦
食品をまとめ、歌に表現しました。その一つ、
『春苦味、夏は酢の物、秋辛味、冬は油と合点して食え』
…その意味は、
春のフキノトウやウドなど、苦味の強い食べ物は、
冬の間に体にためた脂肪を出してくれる。
また、食欲が落ちやすい夏は、冷やしラーメンなど
あっさりした酢の物が食欲を増進させるだろう。
そして秋は、トウガラシ（豆板醤）を使ったマーボ
豆腐やマーボ茄子などで身体を引き締め、
冬は寒さに耐えられるよう、ギョーザなど、油を使っ
た料理を欠かさないようにしよう……
それぞれの季節で人体に有効に働く栄養素を摂ろう
ということです。『食医・石塚左玄の食べもの健康法』
（農山漁村文化協会・刊）
最近クマが人間のテリトリーに侵入して来ます。カ
シノナガキクイムシの害により、主食のドングリが不
作となり、クマたちは冬越しできるだけの脂肪を蓄え
られなくなったからです。暖房器具を使えないクマは、
不足した皮下脂肪を補うため、下界に下り、好き嫌い
しないで、食べられる物は何でも食べているのでしょ
う。
冬に暖房が自由にできる私たち現代人は、皮下脂肪
を蓄えようと思いません。むしろ、脂肪がたまると、
お医者さんに叱られてしまいます。
しかし昔は、冬の厳寒期になると、凍えて体が弱り、
死んでしまうぬ人が多かったのでしょう。だから、昔
の理想人物像は『下膨れの釣り目・鉤鼻』だったり
『相撲取り体型』だったりしたのではないかと推察し
ます。また、人相占いで『二重アゴは縁起がよい』と
されるのも、皮下脂肪のたまった人ほど長生きできた
からだと思います。昔の日本人は『クマ』に近い体脂
肪のコントロール方法を身につけていたのではないか
と想像します…
私も調べ始めたばかりで、詳しく知っていないので、
受け売りばかりで恐縮ですが、石塚左玄は『春に出る
苦味をもった山菜に、脂肪を排泄する機能がある』と
言っているような気がします。
ウドやフキ、ワラビには苦味があります。 人類に
とって、苦味は「毒」を意味します。毒も少量ならば
人体に薬として作用するわけで、一般的に薬も苦い味
がします。
苦味の強い山菜は、普通アク抜きをしてから調理し
ます。春の山菜であるウドやフキをアク抜きしたもの
は苦味が少なくなっており、体に薬として効くのかも
しれません。
苦い物が、おいしいはずはないのですが、焼いたサ
ンマの内臓や、夏のビールなど、苦いのにおいしいと
感じることが多々あります。それらは『本当は食料に
適さない毒なのだけれども、微量なら薬になる』とい
うことを、体は本能的に知っているのかもしれません。
--- from Shakuhachist of Phantom ---
http://www.geocities.jp/apollon_7777
☆備忘録１
・編集始 … '10/02/05 ……………
・初掲載 … '11/05/15 ID6_0554 … 1年以上かかってしまった…
☆備忘録２
・TyokuNal様式チューニング○参考ID_5-4455[四季-秋]
○8vaにつき5.0cent下げる=[BR(1);p%(-40)]
+2.25oct→[BR(1)]p%(-90)
+2.00oct→[BR(1)]p%(-80)
+1.75oct→[BR(1)]p%(-70)
+1.50oct→[BR(1)]p%(-60)
+1.25oct→[BR(1)]p%(-50)
+1.00oct→[BR(1)]p%(-40)
+0.75oct→[BR(1)]p%(-30)
+0.50oct→[BR(1)]p%(-20)
+0.25oct→[BR(1)]p%(-10)
-0.25oct→[BR(1)]p%(+10)
-0.50oct→[BR(1)]p%(+20)
-0.75oct→[BR(1)]p%(+30)
-1.00oct→[BR(1)]p%(+40)
-1.25oct→[BR(1)]p%(+50)
-1.50oct→[BR(1)]p%(+60)
-1.75oct→[BR(1)]p%(+70)
-2.00oct→[BR(1)]p%(+80)
-2.25oct→[BR(1)]p%(+90)
・adas様式デチューニング○参考ID_5-4694[electronic parade]
○片方だけFineTune(68)を記入;4/64≒6cent上げる
・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タイプ;→○:\Program Files\sakura\doc\faq\help01.htm
・連符書式例 Div{ロ&ツ&ロ&} ;Div{ロ&シ&ロ&} ;Div{ロ&ッ&ロ&}
*/
//**************************************初期設定
ResetXG();ResetGS();ResetGM();
TrackName={"031fukinoto1105"};
Copyright={"music by y_nis"};
MetaText ={""};
System.TimeBase(96);
//System.Include(chord2.h); //--
TimeSignature=4,2;
System.MeasureShift=2;
FUNCTION T(Tx){;Tempo(Tx);};T=128;//T=Tempo
FUNCTION TC(Ty,Lg){;テンポ改(Ty,Lg);};
~{改}={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 Ist= 1 ; //1=5孔 2=7孔
//********|| Rotsurechi_Plus0909 ●注…｢レシ｣等の重複のため、片仮名｢ドレミ｣と併用不可
//・５孔音量設定
// 基本音 v110; メリ v-17; 大メリ v-34; ピ v-15
// (カリ v+10)…未設定
~{甲}={>};//そこから8va
~{乙}={<};//そこから-8va
If(Ist=1){
//符}={音量音程} 和名| 乙 | 甲 | 大甲 |
~{パ}={ v93b };//盤渉| メハ| メハ| |
~{ヰ}={v120a#};//鸞鏡| |カチ,ヰ| |
~{イ}={ v76a#};//鸞鏡|カチ,半ハ| | |
~{チ}={v110a };//黄鏡| チ| チ| |
~{ウ}={ v93g#};//鳧鐘| メチ| メチ| |
~{レ}={v110g };//双調| レ| |大甲レ|
~{ヘ}={ v93f#};//下無| メレ| メレ| |
~{ツ}={v110f };//勝絶| ツ| ツ|大甲ツ|
~{シ}={ v93e };//平調| メツ| メツ| 四|
~{タ}={v110d#};//断金| | | タ|
~{ッ}={ v76d#};//断金| カロ,ッ|カロ,ッ| |
~{ピ}={ v95d };//壱越| | | ピ|
//~{ヒ}={v110d };//壱越| | ヒ| ヒ|//琴譜の記号との関係で削除
~{ロ}={v110d };//壱越| ロ| ロ| |
~{リ}={ v93c#};//上無| メロ| リ| リ|
~{ハ}={v110c };};//神仙| 大メロ| ハ| ハ|
If(Ist=2){
//********|| Rotsurechi7_Plus //
~{パ}={b};~{ヰ}={a#};~{イ}={a#};~{チ}={a};~{ウ}={g#};
~{レ}={g};~{ヘ}={f#};~{ツ}={f} ;~{シ}={e};~{タ}={d#};~{ッ}={d#};
~{ピ}={d};~{ロ}={d} ;~{リ}={c#};~{ハ}={c};};
//■●▲★|| Chord Plus1104(最終Dm9)triad"aug"→"mM7"
//7
Str Ab7={'"g+cd+f+'};Str Cmb5= {'cd+f+'};
Str A7= {'"ac+eg'}; Str Dbmb5={'c+eg'};
Str Bb7={'"a+dfg+'}; Str Dmb5= {'dfg+'};
Str B7= {'"bd+f+a'}; Str Ebmb5={'d+f+a'};
Str C7= {'cega+'}; Str Emb5= {'ega+'};
Str D7= {'df+a`c'}; Str Gbmb5={'f+a`c'};
Str Eb7={'d+ga+`c+'};Str Gmb5= {'ga+`c+'};
Str E7= {'eg+b`d'}; Str Abmb5={'g+b`d'};
Str F7= {'"f"acd+'}; Str Amb5= {'"acd+'};
Str Gb7={'"f+"a+c+e'};Str Bbmb5={'"a+c+e'};
Str G7= {'"g"bdf'}; Str Bmb5= {'"bdf'};
//m7
Str Abm7={'"g+bd+f+'};Str B= {'bd+f+'};
Str Am7= {'"aceg'}; Str C= {'ceg'};
Str Bbm7={'"a+c+fg+'};Str Db={'c+fg+'};
Str Bm7= {'"bdf+a'}; Str D= {'df+a'};
Str Cm7= {'cd+ga+'}; Str Eb={'d+ga+'};
Str Dbm7={'c+eg+b'}; Str E= {'eg+b'};
Str Dm7= {'dfa`c'}; Str F= {'fa`c'};
Str Ebm7={'d+f+a+`c+'};Str Gb={'f+a+`c+'};
Str Em7= {'egb`d'}; Str G= {'gb`d'};
Str Fm7= {'"f"g+cd+'};Str Ab={'"g+cd+'};
Str Gbm7={'"f+"ac+e'};Str A= {'"ac+e'};
Str Gm7= {'"g"a+df'}; Str Bb={'"a+df'};
//M7
Str AbM7={'"g+cd+g'};Str Cm= {'cd+g'};
Str AM7= {'"ac+eg+'};Str Dbm={'c+eg+'};
Str BbM7={'"a+dfa'}; Str Dm= {'dfa'};
Str CM7= {'cegb'}; Str Em= {'egb'};
Str DM7= {'df+a`c+'};Str Gbm={'f+a`c+'};
Str EbM7={'d+ga+`d'};Str Gm= {'ga+`d'};
Str EM7= {'eg+b`d+'};Str Abm={'g+b`d+'};
Str FM7= {'"f"ace'}; Str Am= {'"ace'};
Str GM7= {'"g"bdf+'};Str Bm= {'"bdf+'};
//M7b5
Str EbM7b5={'d+ga`d'};Str Dsus4= {'ga`d'};
//mM7(3Notes=aug)
Str AmM7={'"aceg+'}; Str Caug= {'ceg+'};//=Eaug=Abaug
Str DmM7={'dfa`c+'}; Str Faug= {'fa`c+'};//=Aaug=Dbaug
Str GmM7={'"g"a+df+'};Str Bbaug={'"a+df+'};//=Daug=Gbaug
//dim
Str Abdim={'"g+"bdf'};//Str Bmb5={'"bdf'};
Str Adim= {'"acd+f+'};//Str Cmb5={'cd+f+'};
Str Bbdim={'"a+c+eg'};//Str Dbmb5={'c+eg'};
Str Bdim= {'"bdfg+'};//Str Dmb5={'dfg+'};
Str Cdim= {'cd+f+a'};//Str Ebmb5={'d+f+a'};
Str Dbdim={'c+ega+'};//Str Emb5={'ega+'};
Str Ddim= {'dfg+b'}; Str Fmb5={'fg+b'};
Str Ebdim={'d+f+a`c'};//Str Ebmb5={'d+f+a'};
Str Edim= {'ega+`c+'};//Str gmb5={'ga+`c+'};
Str Fdim= {'dfg+b'};//Str Abmb5={'"g+b`d'};
Str Gbdim={'"f+"acd+'};//Str Amb5={'"acd+'};
Str Gdim= {'"g"a+c+e'};//Str Bbmb5={'"a+c+e'};
//7sus4
Str A7sus4={'"adeg'};Str Em7o5={'deg'};
Str C7sus4={'cfga+'};Str Gm7o5={'fga+'};
Str D7sus4={'dga`c'};Str Am7o5={'ga`c'};
Str G7sus4={'"gcdf'};Str Dm7o5={'cdf'};
//6
Str Ab6={'"g+cd+f'};Str F7o3= {'cd+f'};//Ab6=Fm7,F7o3=Cmbb5
Str A6= {'"ac+ef+'};Str Gb7o3={'c+ef+'};
Str Bb6={'"a+dfg'}; Str G7o3= {'dfg'};//Bb6=Gm7,G7o3=Dmbb5
Str B6= {'"bd+f+g+'};Str Ab7o3={'d+f+g+'};//B6=Abm7,Ab7o3=Ebmbb5
Str C6= {'cega'}; Str A7o3= {'ega'};
Str D6= {'df+ab'}; Str B7o3= {'f+ab'};//D6=Bm7,B7o3=Gbmbb5
Str Eb6={'d+ga+`c'}; Str C7o3= {'ga+`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= {'cd+ga'}; Str Ebb5={'d+ga'};//Cm6=Am7b5
//7b5
Str Gb7b5={'"f+"a+ce'};//Str C7o5={'"a+ce'};
//m7b5
Str Am7b5= {'"acd+g'};//Str Cm={'cd+g'};
Str Bm7b5= {'"bdfa'};// Str Dm={'dfa'};
Str Dbm7b5={'c+egb'};// Str Em={'egb'};
Str Dm7b5= {'dfg+`c'}; Str Fm={'fg+`c'};
Str Em7b5= {'ega+`d'};//Str Gm={'ga+`d'};
Str Gbm7b5={'"f+"ace'};//Str Am={'"ace'};
Str Gm7b5= {'"g"a+c+f'};Str Bbm={'"a+c+f'};
//M7p5
Str BbM7p5={'"a+df+a'};//Str D={'df+a'};
Str CM7p5= {'ceg+b'};//Str E={'eg+b'};
Str EbM7p5={'d+gb`d'};//Str G= {'gb`d'};
Str FM7p5= {'"f"ac+e'}//Str A={'"ac+e'};
Str GM7p5= {'"g"bd+f+'};//Str B={'"bd+f+'};
//m7p5
Str Gm7p5= {'"g"a+d+f'};Str Bbsus4={'"a+d+f'};
Str Bm7p5={'"bdga'};//Str Dsus4={'dga'};
//9_改訂110402
Str A9= {'"ac+gb'}; Str Dbm7b5o3={'c+gb'};
Str C9= {'cea+`d'}; Str Em7b5o3={'ea+`d'};
Str Eb9={'d+g`c+`f'};Str Gm7b5o3={'g`c+`f'};
Str F9= {'"f"ad+g'}; Str Am7b5o3={'"ad+g'};
Str G9= {'"g"bfa'}; Str Bm7b5o3={'"bfa'};
//m9
Str Am9= {'"acgb'}; Str CM7o3= {'cgb'};
Str Dm9= {'df`c`e'}; Str FM7o3= {'f`c`e'};
//M_add9
Str Aadd9= {'"ac+eb'}; Str Dbm7o5={'c+eb'};
Str Cadd9= {'ceg`d'};//Str Em7o5= {'eg`d'};
Str Ebadd9={'d+ga+`f'};Str Bm7o5= {'"ga+`f'};
Str Fadd9= {'"f"acg'};//Str Am7o5={'"acg'};
//m_add9
Str Amadd9={'"aceb'}; Str CM7o5= {'ceb'};
Str Cmadd9={'cd+g`d'}; Str EbM7o5={'d+g`d'};
Str Dmadd9={'dfa`e'}; Str FM7o5= {'fa`e'};
Str Gmadd9={'"g"a+da'};Str BbM7o5={'"a+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 )`&"
//■●▲★|| Modulation / Exp このStrは「|,<」の前で「;」を省略可
Str M0={M(11)};//
Str M1= {M.W(11,11,!8.,11,64,!16)};//尺八短
Str M2= {M.W(11,11,!4 ,11,68,!8)}; //尺八長
Str Mk= {M.W(64,11,!4..)}; //琴
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,!4,11,60,!8)};//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
//■●▲★|| 打楽器はギブアップ、次の改定時に入れたい
//■●▲★|| pre & inter CM
//Diat CM7 Dm7 Em7 FM7 G7 Am7 Bm7b5 ( Db7 )`&"
#VNp1={l8;Mv;c^^^ ^^^M0;d |e^^^ c.d.e Mv| f^^^ ^^^^ |g^^^ ^.M0;f+.f};//=11
#SHp1={l8; r^^^ r^^^ |r^^^ r^^^ | r^^^ r^^^ |r^^^ r^^^ };
#KTp1={l8;Mk;c^^M0;"g c.e.Mk;g|^^^M0;r e.g.aMk;|`c^^^M0;`c.b.aMk;|g^^^ ^^M0;r^};//CM
#JJp1={l2; [Em] |[C] |[Am] |[G] };//
//Cp1={l2; 1 | 6 | 4 |3 1 };
#RTp1={l2; [CM7] |[Am7] |[FM7] |[Em7] };//CM
#WWp1={l8; c^^<b a^^g | a^^b> c^^e | f^^f ^^^f |e^^e d.c."b };//=11
#VNp2={Mv;e^^^ ^^^^ |^^^M0;r d.c.<b |a^^^ ^.g.f q78|e.f.f+ q68 gaa+b>q98};
#SHp2={ r^^^ r^^^ |r^^^ r^^^ |r^^^ r^^^ |r^^^ r^^^ };
#KTp2={Mk`c^^^M0;`c.b.aMk|g^^^M0; g.f.eMk|d^^^M0;d.e.d Mk|c^^^ ^^M0;r^};//
#JJp2={ [C] |[G] |F Bmb5 |[Em] };//→CM
//Cp2={ 6 |3 | 2 5 |1 };
#RTp2={ [Am7] |[Em7] |Dm7 G7 |[CM7] };//→CM
#WWp2={ "a^^"b c^^d |e^^f g^^e |d^^f g^^d |c^^c <g.a.b> };//=14→CM7
//Diat CM7 Dm7 Em7 FM7 G7 Am7 Bm7b5 ( Db7 )`&"
#VNp={#VNp1#VNp2};
#SHp={#SHp1#SHp2};
#KTp={#KTp1#KTp2};
#JJp={#JJp1#JJp2};
#RTp={#RTp1#RTp2};
#WWp={#WWp1#WWp2};
#VNi={#VNp};
#SHi={#SHp};
#KTi={#KTp};
#JJi={#JJp};
#RTi={#RTp};
#WWi={#WWp};
//■●▲★|| main1 CM
//Diat CM7 Dm7 Em7 FM7 G7 Am7 Bm7b5 ( Db7 )`&"
#VN11={l8;Mv;c^^^ ^^^M0;d | e^^^ c.d.e Mv| f^^^ ^^^^ |g^^^ ^.M0;f+.f};//f+
#SH11={l8;ハ^^"レ ハ.シ.M1;レ| ^^^M0;r シ.レ.チM1|`ハ^^^M0;`ハ.パ.チM2|レ^^^ ^^M0;r^};//"レ
#KT11={l8;e.c."gMk;c^^^M0 | a.e.cMk;e^ ^ ^ M0| a.f.c Mk;f^ ^ ^ M0|g.e."b"g."b.e };
#JJ11={l2;[Em] |[C] |[Am] |G Em };
//C11={l2; 1 |▽6 |▽4 |▽3 ▽1 };
#RT11={l2;[CM7] |[Am7] |[FM7] |Em7 CM7 };
#WW11={l8;c^^<b a^^g | a^^b> c^^e | f^^f ^^^f |e^^e d.c."b };
#VN12={ Mv;e^^^ ^.M0;d.c <|b^^^ b.a.g Mv|f^^^ ^.M0;g.a |b^^^> c."b."a };
#SH12={M1;`ハ^^^M0;`ハ.パ.チM1|レ^^M0;r レ.ツ.シM1|ロ^^^M0;シ.ロ.シM2|レ^^^ ^^M0;r^ };//ロ`ハ
#KT12={ a.e.c Mk;e^^^ M0|b.g.e Mk;g^^^ M0|a.f.dMk;f^^^ M0;`|d.b.g f.d."b };
#JJ12={ [C] |[G] |[F] |[Bmb5] };
//C12={ ▽6 |▽3 | 2 | 5 };
#RT12={ [Am7] |[Em7] |[Dm7] |[G7] };
#WW12={ "a^^"b c^^d |e^^f g^^e |d^^e f^^f |g^^g f.e.d };
//Diat CM7 Dm7 Em7 FM7 G7 Am7 Bm7b5 ( Db7 )`&"
#VN13={Mv;<g^^^ ^^^^ M0|a^^^ g. a. b>Mv|c^^^ ^^^^ M0|d^^^ "b.c.d };
#SH13={M1;シ^^^M0;ロ.シ.ロ|ハ^^r ハ.ロ.シM1|ツ^^^M0;シ.ツ.シM2|ロ^^^ ^^M0;r^};
#KT13={ e.c."gMk;c^^^ M0|a.e.c Mk;e^^^ M0|a.f.cMk;f^ ^ ^ M0|b.f.d"b.d.g };//≒11
#JJ13={ [Em] |[C] |[Am] |Dm Bmb5 };//≠11
//C13={ 1 | 6 | 4 |7 5 };
#RT13={ [CM7] |[Am7] |[FM7] |Bm7b5 G7 };
#WW13={ c^^<b a^^g |a^^b> c.d.e |f^^e d^^c <|b^^a g.f.g> };//≠11
#VN14={l8;Mv; e^^^ ^.M0;d.cMv"|b^^^ ^^^^M0 "|a^^^ d^^^ Mv|c^^^ ^^^M0;r};
#SH14={l8;M1;`ハ^^^M0;`ハ.パ.チ M1|レ^^M0;r レ.ツ.シM1|ロ^^^M0;ロ.シ.ロM2 |ハ^^^ ^^M0;r^};
#KT14={l8; a.e.c Mk;e^^^ M0|b.g.e Mk;g^^^ Mk;`|d.`c.a gfDiv{dc<ba}^|g.>c.e Div{ceg}Mk;`c^^M0};
#JJ14={l2; [C] |[G] |F Bmb5 |[Em] };
//C14={l2; 6 | 3 |2 5 | 1 };
#RT14={l2; [Am7] |[Em7] |Dm7 G7 |[CM7] };
#WW14={l8; "a^^"b c^^d |e^^f g.f.e |d^^c "b^^"b |c^^c <g.a.b> };
//Diat CM7 Dm7 Em7 FM7 G7 Am7 Bm7b5 ( Db7 )`&"
#VNm1={#VN11#VN12#VN13#VN14};
#SHm1={#SH11#SH12#SH13#SH14};
#KTm1={#KT11#KT12#KT13#KT14};
#JJm1={#JJ11#JJ12#JJ13#JJ14};
#RTm1={#RT11#RT12#RT13#RT14};
#WWm1={#WW11#WW12#WW13#WW14};
//■●▲★|| main2 Am
//Natu Am7 Bm7b5 CM7 Dm7 Em7 FM7 G7 `&"
//Melo AmM7 Bm7 (CM7p5) D7 E7 Gb7b5 Abdim=Bdim=Ddim=Fdim
#VN21={l8;Mv;c^^^ ^^^M0;"b "|a^^^ c.<b.aMv|g^^^ ^^^M0;f | e^^r f.e.d>};
#SH21={l8;M1;シ^^^M0; ハ.シ.レM1|ロ^^^M0;^r<チ^M1|パ^^^M0;パ.>ハ.ロM1|"レ^^^M0; r^"レ^};
#KT21={l8;Mk;c^^M0;"a e.d.c Mk|f^^M0;d a.g.f Mk|d^^M0; "b g.f.d Mk| e^^M0;"g c.e.g };
#JJ21={l2; [C] |[F] |[Bmb5] | Em C };
//C21={l2; 1 | 4 | 7 | 3 1 };
#RT21={l2; [Am7] |[Dm7] |[G7] | CM7 Am7 };
#WW21={l8; "a^^"b c^^e |d^^e f^^a |g^^f e^^d | c^^c <b.a.g> };
#VN22={Mv;<c^^^ ^.M0;d.e Mv| f^^^ ^^^M0;g Mv|g+^^^ ^.M0;g.fMv| e^^^M0; r.f.g> };
#SH22={M1<ツ^^^M0; シ.ツ.チM1|>ロ^^^M0;ツ.シ.ロM1|シ^^^M0;"パ.ロ.ハM2|"チ^^^ ^^M0;r^};//乙シ
#KT22={Mk;f^^M0;"a c."b."a Mk| f^^M0;"b d.c."b Mk|g+^^M0; "b e. d."b |"a.c.eMk;a^^^M0 };
#JJ22={ [Am] |[Dm] |[Abmb5] |[C] };
//C22={ 6 | 2 | 5 | 1 };
#RT22={ [FM7] |[Bm7b5] |[E7] |[Am7] };
#WW22={ <f^^g a^^>c |"b^^c d^^f |e^^d c^^<b | a^^b> c."a."g};
//Natu Am7 Bm7b5 CM7 Dm7 Em7 FM7 G7 `&"
//Melo AmM7 Bm7 (CM7p5) D7 E7 Gb7b5 Abdim=Bdim=Ddim=Fdim
#VN23={l8;Mv"a^^^ ^^^^ | ^^^M0;r c.<b.a Mv|g^^^ ^^^^ | ^^^M0;r b.a.g> };
#SH23={l8;M1;シ^^^M0;ハ.ロ.シM2| ツ^^^ ^^M0;r^ M1|ロ^^^M0;"パ.ハ.ロM2| シ^^^ ^^M0;r^ };
#KT23={l8;Mk;c^^M0;"a e. d. c|"a.c.dDiv{fa`c}Mk;`d^^|g^^M0;"b d. c."b |"g."b.c Div{ega}Mk;`c^^M0};
#JJ23={l2; [C] |[F] |[Bmb5] |Em C };//=JJ21
//C23={l2; 1 | 4 | 7 |3 1 };//=/C21
#RT23={l2; [Am7] |[Dm7] |[G7] |CM7 Am7 };//=RT21
#WW23={l8; "a^^"b c^^e |d^^e f^^a |g^^f e^^d | c^^c <b.a.g> };//=WW21
#VN24={Mv<f^^^ ^.M0;g.aMv| b^^^ ^^^^ | ^^^^>M0;r.c.d Mv| e^^^ ^^^M0;r };
#SH24={M1;ハ^^^M0;"チ.ハ.シ |ツ^^r パ. チ.ツ M1| シ^^^ ^.M0;ヘ. ウ M2| チ^^^ ^^M0;r^ };//CM
#KT24={Mk;f^^M0;"a c.<b. a |f.a.b>Div{dfa}Mk;b^^M0|`e.`d.b g+f+Div{edc"b}^|"a.c.e Div{ceg}Mk;`c^^M0};//f+
#JJ24={ [Am] |[Dm] |[Abmb5] |[C] };//=JJ22
//C24={ 6 | 2 | 5 | 1 };//=/C22
#RT24={ [FM7] |[Bm7b5] |[E7] |[Am7] };//=RT22
#WW24={ <f^^g a^^>c "|b^^c d^^f | e^^d c^^"b |"a^^"b c."a."g };//=WW22
//Natu Am7 Bm7b5 CM7 Dm7 Em7 FM7 G7 `&"
//Melo AmM7 Bm7 (CM7p5) D7 E7 Gb7b5 Abdim=Bdim=Ddim=Fdim
#VNm2={#VN21#VN22#VN23#VN24};
#SHm2={#SH21#SH22#SH23#SH24};
#KTm2={#KT21#KT22#KT23#KT24};
#JJm2={#JJ21#JJ22#JJ23#JJ24};
#RTm2={#RT21#RT22#RT23#RT24};
#WWm2={#WW21#WW22#WW23#WW24};
//■●▲★|| inter2 Am
//Natu Am7 Bm7b5 CM7 Dm7 Em7 FM7 G7 `&"
//Melo AmM7 Bm7 (CM7p5) D7 E7 Gb7b5 Abdim=Bdim=Ddim=Fdim
#VNj1={l8;Mv;c^^^ ^^^M0;"b"|a^^^ c.<b.aMv|g^^^ ^^^M0;f | e^^r f.e.d>};//=VN21
#SHj1={l8; r^^^ r^^^ |r^^^ r^^^ |r^^^ r^^^ | r^^^ r^^^ };
#KTj1={l8;Mk;>e^^^M0;c.e.g Mk|d^^^M0<r^a^ Mk|b^^^M0;b.>c.dMk|"g^^^M0;r^"g^<};//=SH21
#JJj1={l2; [C] |[F] |[Bmb5] | Em C };//=JJ21
//Cj1={l2; 1 | 4 | 7 | 3 ▽1 };//=/C21
#RTj1={l2; [Am7] |[Dm7] |[G7] | CM7 Am7 };//=RT21
#WWj1={l8; "a^^"b c^^e |d^^e f^^a |g^^f e^^d | c^^c <b.a.g>};//=WW21
#VNj2={Mv<c^^^ ^.M0;d.eMv| f^^^ ^^^M0;gMv|g+^^^ ^.M0;g.f |e^^^ r.f.g ||a^^^ g.f.e q78|d.e.f q68f+gab>q98};//≒VN22;f+
#SHj2={ r^^^ r^^^ | r^^^ r^^^ |r^^^ r^^^ |r^^^ r^^^ ||r^^^ r^^^ |r^^^ r^^^ };
#KTj2={Mk;f^^^M0;e.f.a Mk|>d^^^M0;f.e.dMk |e^^^M0< b.`d.`cMk|a^^^ ^^M0;r^||r^^^ r^^^ |r^^^ r^^^ };//≒SH22;"e"f
#JJj2={ [Am] |[Dm] |[Abmb5] |[C] ||[F] |[Bmb5] };//≒JJ22;Am→CM
//Cj2={ ▽6 | 2 | 5 | 1 || 4 | 7 };//≒/C22
#RTj2={ [FM7] |[Bm7b5] |[E7] |[Am7] ||[Dm7] |[G7] };//≒RT22;Am→CM
#WWj2={ <f^^g a^^>c |"b^^c d^^f |e^^d c^^<b |a^^a a.b.>c ||d^^e f^^f |g^^a b^^"b};//≒WW22
//Natu Am7 Bm7b5 CM7 Dm7 Em7 FM7 G7 `&"
//Melo AmM7 Bm7 (CM7p5) D7 E7 Gb7b5 Abdim=Bdim=Ddim=Fdim
#VNj={#VNj1#VNj2#VNj3};
#SHj={#SHj1#SHj2#SHj3};
#KTj={#KTj1#KTj2#KTj3};
#JJj={#JJj1#JJj2#JJj3};
#RTj={#RTj1#RTj2#RTj3};
#WWj={#WWj1#WWj2#WWj3};
//■●▲★|| coda 改訂
//Diat CM7 Dm7 Em7 FM7 G7 Am7 Bm7b5 ( Db7 )`&"
#VNz={Mv; e^^^ ^^^M0;c "|b^^^ d.c.<b |a^^^ g.a.b> Mv|c^^^ ^^^^M0 ||v0r|};
#SHz={M1;`ハ^^^M0;`ハ.パ.チ M1|レ^^M0;r レ.ツ.シM1|ロ^^^M0; ロ.シ.ロ M2|ハ^^^ ^^^^M0 ||v0r|};
#KTz={ a.e.c Mk;e^^^ M0|b.g.e Mk;g^^^ Mk;`|d.`c.a gfDiv{dc<ba}^|g.>c.eDiv{ceg}Mk;`c^^M0||v0r|};
#JJzr={ [C] |[Em7] |F Bmb5 q70l1| Em ||v0r8|};//q70
#JJzl={ [C] |[Em7] |F Bmb5 |[Em] ||v0r8};
//Cz={ ▽6 |▽3 |▽2 5 | 1 ||};
#RTz={ [Am7] |[Em7] |Dm7 G7 |[CM7] ||v0r8};
#WWz={T(126)"a^^"b c^^d T(124)|e^^f T(120) g.f.e |d^^c TC(102,!1)"b^^"b |c^^"g T(74) c^^^ ||v0r};
//■●▲★|| 集計//
Int Strt=0;//0…p～、1…m1～、2…i～、3…m2～、4…j～、5…coda1行前～、6…試聴用、7…楽譜用
If(Strt=0){ ;
#VN={#VNp [#VNm1:#VNi#VNm2#VNj] #VNz};
#SH={#SHp [#SHm1:#SHi#SHm2#SHj] #SHz};
#KT={#KTp [#KTm1:#KTi#KTm2#KTj] #KTz};
#JJr={#JJp [#JJm1:#JJi#JJm2#JJj] #JJzr};
#JJl={#JJp [#JJm1:#JJi#JJm2#JJj] #JJzl};
#RT={#RTp [#RTm1:#RTi#RTm2#RTj] #RTz};
#WW={#WWp [#WWm1:#WWi#WWm2#WWj] #WWz};};
If(Strt=1){ ;//m1～
#VN={ [#VNm1:#VNi#VNm2#VNj] #VNz};
#SH={ [#SHm1:#SHi#SHm2#SHj] #SHz};
#KT={ [#KTm1:#KTi#KTm2#KTj] #KTz};
#JJr={ [#JJm1:#JJi#JJm2#JJj] #JJzr};
#JJl={ [#JJm1:#JJi#JJm2#JJj] #JJzl};
#RT={ [#RTm1:#RTi#RTm2#RTj] #RTz};
#WW={ [#WWm1:#WWi#WWm2#WWj] #WWz};};
If(Strt=2){ ;//i～
#VN={ #VNi#VNm2#VNj #VNm1 #VNz};
#SH={ #SHi#SHm2#SHj #SHm1 #SHz};
#KT={ #KTi#KTm2#KTj #KTm1 #KTz};
#JJr={#JJi#JJm2#JJj #JJm1 #JJzr};
#JJl={#JJi#JJm2#JJj #JJm1 #JJzl};
#RT={ #RTi#RTm2#RTj #RTm1 #RTz};
#WW={ #WWi#WWm2#WWj #WWm1 #WWz};};
If(Strt=3){ ;//3…m2～
#VN={ #VNm2#VNj #VNm1 #VNz};
#SH={ #SHm2#SHj #SHm1 #SHz};
#KT={ #KTm2#KTj #KTm1 #KTz};
#JJr={#JJm2#JJj #JJm1 #JJzr};
#JJl={#JJm2#JJj #JJm1 #JJzl};
#RT={ #RTm2#RTj #RTm1 #RTz};
#WW={ #WWm2#WWj #WWm1 #WWz};};
If(Strt=4){ ;//j～
#VN={ #VNj #VNm1 #VNz}
#SH={ #SHj #SHm1 #SHz};
#KT={ #KTj #KTm1 #KTz};
#JJr={#JJj #JJm1 #JJzr};
#JJl={#JJj #JJm1 #JJzl};
#RT={ #RTj #RTm1 #RTz};
#WW={ #WWj #WWm1 #WWz};;};
If(Strt=5){ ;//coda1行前～
#VN={ #VN14 #VNz};
#SH={ #SH14 #SHz};
#KT={ #KT14 #KTz};
#JJr={#JJ14 #JJzr};
#JJl={#JJ14 #JJzl};
#RT={ #RT14 #RTz};
#WW={ #WW14 #WWz};};
If(Strt=6){ ;//試聴用
#VN={ #VN11#VN12#VN13 #VNz};
#SH={ #SH11#SH12#SH13 #SHz};
#KT={ #KT11#KT12#KT13 #KTz};
#JJr={#JJ11#JJ12#JJ13 #JJzr};
#JJl={#JJ11#JJ12#JJ13 #JJzl};
#RT={ #RT11#RT12#RT13 #RTz};
#WW={ #WW11#WW12#WW13 #WWz};};
If(Strt=7){ ;//楽譜用
#VN= {#VNp #VNm1#VNm2#VNj #VNz};
#SH= {#SHp #SHm1#SHm2#SHj #SHz};
#KT= {#KTp #KTm1#KTm2#KTj #KTz};
#JJr={#JJp #JJm1#JJm2#JJj #JJzr};
#JJl={#JJp #JJm1#JJm2#JJj #JJzl};
#RT= {#RTp #RTm1#RTm2#RTj #RTz};
#WW= {#WWp #WWm1#WWm2#WWj #WWz};};
//■●▲★|| Play (y74=カットオフ周波数,y71=カットオフ付近の倍音)
If(Strt<7){ ;//楽譜以外
TR=1;CH=1;@(Strings2); o7;y74,52;y71,50; v60;音量曖昧さ5;//@1
q98;P=64-50;REV=25;CHO=20;BR=1;p%(-40);FineTune(68);Time(0:0: 0);#VN;//+1.00oct→p%(-40)
TR=2;CH=2;@(Strings1); o7;y74,48;y71,46; v60;音量曖昧さ5;//@1
q98;P=64-46;REV=25;CHO=20;BR=1;p%(-40); Time(0:0: 0);#VN//+1.00oct→p%(-40)
TR=3;CH=3;@(Flute) o6;y74,66;y71,64;V=98;音量曖昧さ8;//@1
q99;P=64-34;REV=10;CHO=15;BR=1;p%(-30);FineTune(68);Time(0:0: 1);#SH;//+0.75oct→p%(-30)
TR=4;CH=4;@(PanFlute); o6;y74,56;y71,54;V=98;音量曖昧さ8;//@1
q99;P=64-30;REV=10;CHO=15;BR=1;p%(-30); Time(0:0: 1);#SH//+0.75oct→p%(-30)
TR=5;CH=5;@(Koto); o5;y74,64;y71,62; v80;音量曖昧さ7;//@1
q97;P=64- 2;REV=20;CHO=10;BR=1;p%(- 0);FineTune(68);Time(0:0: 2);#KT;//基準
TR=6;CH=6;@(Koto); o5;y74,64;y71,62; v80;音量曖昧さ7;//@1
q97;P=64+ 2;REV=20;CHO=10;BR=1;p%(- 0); Time(0:0: 2);#KT//基準
TR=7;CH=7;@(GrandPiano); o5;y74,64;y71,62; v60;音量曖昧さ5;@1
q43;P=64-18;REV= 5;CHO= 3;BR=1;p%(- 0); Time(0:0: 2)r4#JJr//基準
TR=8;CH=8;@(GrandPiano); o4;y74,64;y71,64; v64;音量曖昧さ5;@1
q93;P=64-14;REV= 5;CHO= 3;BR=1;p%(+40); Time(0:0: 2);#JJl//-1.00oct→p%(+40)
TR=11;CH=11;@(Cello); o4;y74,66;y71,64; v84;音量曖昧さ6;//@1
q96;P=64+15;REV= 6;CHO=12;BR=1;p%(+50); Time(0:0: 1);#WW//-1.25oct→p%(+50)
TR=12;CH=12;@(FingerBass); o3;y74,68;y71,66; v62;音量曖昧さ4;//@1
q95;P=64+28;REV=10;CHO= 8;BR=1;p%(+90);FineTune(68);Time(0:0: 1);#WW//-2.25oct→p%(+90)
TR=13;CH=13;@(FingerBass); o3;y74,68;y71,66; v62;音量曖昧さ4;//@1
q95;P=64+32;REV=10;CHO= 8;BR=1;p%(+90); Time(0:0: 1);#WW//-2.25oct→p%(+90)
TR=14;CH=14;@(AcousticBass);o2;y74,70;y71,68; v80;音量曖昧さ6;//@1
q94;P=64+45;REV= 5;CHO=12;BR=1;p%(+130); Time(0:0: 0);#WW//-3.25oct→p%(+130)
};
If(Strt=7){ ;//楽譜用
TR=2;CH=2;@(Strings1); o7; v60;音量曖昧さ5;//@1
q98;P=64-46;REV=25;CHO=20;BR=1;p%(-40);Time(0:0: 0);#VN
TR=4;CH=4;@(PanFlute); o6;V=98;音量曖昧さ8;//@1
q99;P=64-30;REV=10;CHO=15;BR=1;p%(-30);Time(0:0: 1);#SH
TR=6;CH=6;@(Koto); o5; v80;音量曖昧さ7;//@1
q97;P=64+ 2;REV=20;CHO=10;BR=1;p%(- 0);Time(0:0: 2);#KT
TR=8;CH=8;@(GrandPiano);o4; v64;音量曖昧さ5;@1
q93;P=64-14;REV= 5;CHO= 3;BR=1;p%(+40);Time(0:0: 2);#RT
TR=11;CH=11;@(Cello); o4; v84;音量曖昧さ6;//@1
q96;P=64+15;REV= 6;CHO=12;BR=1;p%(+50);Time(0:0: 1);#WW
};