/*
★ダウンロードありがとうございます。
バッハの作品だ思っていたものが、ほかの作曲家の曲だった…
J.S.Bachは、その時代が著作権フリーだったこともあり、こ
の曲以外にもいろいろな作曲家の曲を編曲している。
フルート協奏曲の「シチリアーノ」もバッハとは違う雰囲気
があり、ほかの作曲家の曲かもしれない。
ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ
ﾟ･*:｡..｡:* Classic名曲 mml_file化推進機構 *:｡..｡:*･ﾟ
ﾟ･*:｡..｡:* BwvAnh114 menuet *:｡..｡:*･ﾟ
ﾟ･*:｡..｡:* 作:Christian Petzold,編:J.S.Bach *:｡..｡:*･ﾟ
ﾟ･*:｡..｡:* Sakura Ver.2.372 *:｡..｡:*･ﾟ
ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ･*:｡..｡:*･ﾟ
○クリスティアン・ペツォールト（Christian Petzold,1677-1733）
ドイツ盛期バロック音楽のオルガニスト・作曲家。
ヨハン・セバスチャン・バッハが「アンナ・マクダレーナ・バッ
ハのための音楽帖」に名を伏せて記入した２つのト調のメヌエット
「BWV Anh.II/114およびAnh.II/115」が有名である。
これらは従来バッハの作品と伝えられてきたが、音楽学者のハン
ス＝ヨアヒム・シュルツェらによって、近年、ペツォールト作であ
ると修正された。 ----- Wikipedia より-----
--- from Shakuhachist of Phantom ---
http://www.geocities.jp/apollon_7777
○備忘録
・初掲載 … '10/07/01 Part6,bbs6-136
・最終更新日'10/07/01
*/
//**************************************初期設定
ResetXG();ResetGS();ResetGM();
TrackName={"anh114menuet_2p_107"};
Copyright={"Christian Petzold(J.S.Bach)"};
MetaText ={"midi:y_nis"};
System.TimeBase(96);
System.Keyshift=(Ky)
//System.Include(chord2.h); //--
TimeSignature=3,4;
System.MeasureShift=2;
FUNCTION T(Tx){;Tempo(Tx);};T=120;//T=Tempo
FUNCTION TC(Ty,Lg){;テンポ改(Ty,Lg);};
//■●▲★|| Pedal-1005_ЖΡ替
~{Р}={r 32 y64,127 r-32};//ペダル踏む(ロシア文字)
~{Ж}={r-64 y64, 0 r 64};//ペダル放す(ロシア文字)
~{替}={r-64 y64, 0 r32. y64,127 r-32};//放して踏む
//**************************************
#SH11={調#(f);l16; レ^^^ <ソ^ラ^シ^>ド^|レ^r^"ソ^r^"ソ^r^| ミ^^^Div{ド"シ}ドレ^ミ^フ^|ソ^r^"ソ^r^"ソ^r^};
#KT11={調#(f);l16;'gb`d'^^^ ^^^^ ラ^^^ |シ^^^ ^^^^ ^^^^ |`ド^^^ ^^ ^^ ^^^^ |シ^^^ ^^^^ ^^^^ };
//C11={ ;l2.;ｎ; ? |? | ? ? | ? ? };
#RT11={ ;l2.;ｎ; GM7 |GM7 l2| CM7 l4;Gbm7b5|l2;GM7 l4;Em7 };
#SH12={Div{ド"シ}ド&ド^レ^ド^<シrラr|シ^^^>ド^<シ^ラrソr| フ^^^ソ^ラ^シrソr| シラ^^ ^^^^> r^^^ };
#KT12={ ラ^^^ ^^^^ ^^^^ |ソ^^^ ^^ ^^ ^^ ^^ |`レ^^^シ^^^ ソ^^^ |`レ^^^ レ^`ド^シ^ラ^};
//C12={ ? ? |? ? | ? ? | ? };
#RT12={ l2;Am7 l4;D7 l2|GM7 l4;CM7 |Gbm7b5 l2;Em7 l2.| D7 };
//#Dia GM7 Am7 Bm7 CM7 D7 Em7 Gbm7b5 ( Ab7 )`&"
#SH13={#SH11};
#KT13={シ^^^ ^^^^ ラ^^^|ソ^^^シ^^^ソ^^^|`ド^^^ ^^^^ ^^^^|シ^^^`ド^シ^ラ^ソ^};//
//C13={ GM7 |GM7 |l2;CM7 l4;Gbm7b5|l2;GM7 l4;Em7 };//=C11
#RT13={#RT11};
#SH14={Div{ド"シ}ド^^ レ^ド^<シrラr|シ^^^>ド^<シ^ラrソr| ラ^^^ シ^ラ^ソrフr|ソ^^^ ^^^^>r^^^ };
#KT14={ ラ^ ^^ ^^^^ フ^^^ |ソ^^^ ^^^^ シ^^^ |`ド^^^`レ^^^ レ^^^ |ソ^^^ ^^^^"ソ^^^};
//C14={l2; ? ? |? ? | ? ?6 |? };
#RT14={l2; Am7 l4;Bm7 l2|Em7 l4;Am7 |Gbm7b5 l2;D6 l2.|GM7 };
//#Dia GM7 Am7 Bm7 CM7 D7 Em7 Gbm7b5 ( Ab7 )`&"
#SHk={#SH11#SH12#SH13#SH14};//
#KTk={#KT11#KT12#KT13#KT14};//
#RTk={#RT11#RT12#RT13#RT14};//
//#Dia GM7 Am7 Bm7 CM7 D7 Em7 Gbm7b5 ( Ab7 )`&"
#SH21={調#(fc);l16;シ^^^ ソ^ラ^シ^ソ^|ラ^^r レ^ミ^フ^レ^|ソ^^^ミ^フ^ソ^レ^|Div{ドレ}ド^^<シ^`ド^ラ^>r^};
#KT21={調#(fc);l16;ソ^^^ ^^^^ ^^^^ |フ^^^ ^^^^ ^^^^ |ミ^^^ソ^^^ ミ^^^ | ラ ^^^ ^^ ^^"ラ^^^ };
//C21={ l2.;? |? |? | ? };
#RT21={ l2.;GM7 |DM7 |Em7 | A7 };
#SH22={"ラ^"シ^ド^レ^ミ^ フ^ |ソ^^rDiv{フソ}フ^r ミ^^r |フ^^r"ラ^^r ド^^r| レ^^^ ^^^^ r^^^ 調#();};
#KT22={ ラ^^^ ^^^^ ^^^^ |シ^^^> レ^^^ ド^r^ |レ^^^<フ^^r ラ^^r|`レ^^^ レ^^^`ド-^^r調#();};//`ド-
//C22={ ? |? |? ? | ? };
#RT22={ A7 |Dbm7b5 l2;|DM7 l4;A7 |l2.;DM7 };
//#Dia GM7 Am7 Bm7 CM7 D7 Em7 Gbm7b5 ( Ab7 )`&"
#SH23={調#(f); レ^^r<ソ^フ^ソ^^>r | ミ^^r<ソ^フ^ソ^^>r |レ^^rド^^r<シ^Div{ラシラシラ&}^|^ラソ^ フ^ソ^ラ^^>r};
#KT23={調#(f);Рシ^^^`レ^^^ シ^^^替|>ド^^^ ミ^^^ ド^^^<Ж|シ^^^ラ^^^ ソ^^^ |`レ^^^ ^^^^ r^^^ };
//C23={ ? | ? |? | ? };
#RT23={ GM7 | CM7 |GM7 | Gbm7b5 };
#SH24={ <レ^ミ^フ^ソ^ラ^シ^>|ド^^r<Div{シ`ド}シ^rラ^^r|シ^>レ^<ソ^^rDiv{フミ}フ^r|ソ^^^ ^^^^> r^^^ };
#KT24={Рレ^^^ ^^^^ フ^^^Ж|ミ^^^ ソ^ ^^ フ^^^|ソ^r^ "シ^^r レ^^r |ソ^^^ レ^^^"ソ^^^};
//C24={ ? |? |? ? |? };
#RT24={ D7 |Gbm7b5 l2|GM7 l4;D7 l2.|GM7 };
//#Dia GM7 Am7 Bm7 CM7 D7 Em7 Gbm7b5 ( Ab7 )`&"
#SHl={#SH21#SH22#SH23#SH24};
#KTl={#KT21#KT22#KT23#KT24};
#RTl={#RT21#RT22#RT23#RT24};
//■■■■|| Compo ||■■■■||
Int Com=1;// 0…繰返有、1…繰返無、2…楽譜用、3…後半のみ
If(Com=0){ //繰返有
#SH={[#SHk][#SHl] #SHk};
#KT={[#KTk][#KTl] #KTk};
#RT={[#RTk][#RTl] #RTk};};
If(Com=1){ //繰返無
#SH={#SHk#SHl #SHk};
#KT={#KTk#KTl #KTk};
#RT={#RTk#RTl #RTk};};
If(Com=2){ //楽譜用
#SH={#SHk#SHl};
#KT={#KTk#KTl};
#RT={#RTk#RTl};};
If(Com=3){ //後半のみ
#SH={#SHl};
#KT={#KTl};
#RT={#RTl};};
//■■■■|| Play ||■■■■||
Int Inst=1 ; /* 1…Harpsichord 2…Koto ＆ Shakuhachi*/
//☆☆☆楽器設定//
Int In1=7;Int In2=7;Int In3=7; // 7…Harpsichord
If(Inst=2){In1=76; In2=74; In3=108}//76…P_Fl,74…Fl,108…Kt,
TR=1;CH=1;@(In1);o6;v99;v.Random=9;//笛1
q99;P=64-30;M=11;CHO=10;REV=5; Time(0:0:0);r4;#SH;//基準
TR=2;CH=2;@(In2);o6;v99;v.Random=9;//笛1
q98;P=64-10;M=11;CHO=10;REV=5;FineTune(68);Time(0:0:0);r4;#SH;//基準
TR=3;CH=3;@(In3);o4;v99;v.Random=9;//琴o4
q97;P=64+10;M=11;CHO=20;REV=5;BR=1;p%(+40); Time(0:0:0);r4;#KT;//-1.0 oct→p%(+40)=+5.0cent
TR=4;CH=4;@(In3);o4;v99;v.Random=9;//琴o4
q96;P=64+30;M=11;CHO=20;REV=5;BR=1;p%(+40);FineTune(68);Time(0:0:0);r4;#KT;//-1.0 oct→p%(+40)=+5.0cent