TrackName={和風鈴};Copyright={Moritoizumi}
Tempo=100 TR=1 CH=1 V(120) q100 @108 v100 TrackKey=0 r1
l16 r n67 n64 n62 n62 n64 n67 r n67 n67^^^ n67^ n69
l8 n67^ n67 n67^^^ n67
l24 n64 n67 r^ r n69 n74^ n72^^ n67 n67^ n62 n64 n69^ n72 n69^ r^ n64
l16 n62 r^^^^ n57^^^ n60 r^ n55^ n60
l8 n64 n60^ n57 n62 n62 n64 n62
l32 r n67^ n69 n64^ n69^ n64^ n62 n62^ n57 n57 n62 n67 n69 n74 n72^^ n76 r n79 n76^ n72 n69 n64^^
l6 r n67 n62^^ n60
l8 n62 n60^ n57 n62 r n62 n62
l8 n60 n55 n55 n55 n57 n55 n55 r
l8 n55 n57 n60 n60 n60^ n62 r
l8 n57 n55 n57 n60 n60^ n60 n57
l16 r r^^ n57 n60 n57 n55^ n57 r^^ n62 n62 n64
l8 n64 n62 n64 n69^ n74 n69 n69
l12 n72^ n76^^^ n81 n76^ n79 n76 n74
l12 n76 n81 n81 n81^ n79 n74 n72^ n72 n67^
l8 r^ n67 r n72 n76 n79 n84
l24 n81 n84^^ n84 n86 n81^ n76 r n74 n69 n67 n72^ n69 n69 n74 r n76 n76 r n72^
l12 n76 n74^ n79 n74^^^ n74 n69^ n74
l16 n69 n72 n72 n67 n67^ n64 n62 n62^ n64^ n62 r n57 n60
l24 n57^ n55^ n60^ n57 r n57 n60 n64^ r^^ n67^^ n69 n67^ r n64 r
l8 n67^^ n62^^ r^
l8 n64 n69^ n72 n67^ n72^
l24 n72^ n69 n69 n69^ n64 n69^ n64 n67 n67^ n69 n64^^^^ n67 n62 n57 n60^
l8 n60^ n62 n60 n60 n62 n57 n55
l16 n57 n57^^ n60 r^ n62 n67 r^^ n62 r n60 n60
l24 n64 n69 n69 n72 n76 n81^ n84^ n88 n88 n84 n81^ n81 n81^ n86^ n84^^^ n81
l8 n81 n79^ n76 n74 n79^^
l8 n79 n81 r n76 n81 n76 n72^
l32 n72 n69 n69 n74 n69 n67^ r n72 n67 n69 n72^ n69^^ n74^^ n79 n81 n79 n76 n79^ n81 r^^^^ n84
l8 n84 n86^ n84 n81^ n81 n84
l8 n81^ n76 n76^ r^ n76
l24 n72 n76 n74 n69^ n74^ r n76^^ n72 n72 n74^^^ n79^ n81 n81 n81 n86 n81
l12 n84 n84 n88^ n88 r n88 n86^ n88 n84^
l16 n81^^ n84^^ n79 n76 n74 n79 n84 r n79^^ n84
l6 n84 n79 n84^ n86 n84
l8 n88 n84^^ n81 n86 n88 r
l8 n86 n86 r^ r r r n88
l8 n88 n84 n86 n84^^ n81^
l8 n81^ n84 r n81 r n76^
l8 n72 n67 r n67 n69 n74^^
l8 n69 n67 n64^ n69 n69 r n72
l16 r n74^ n74 n74 n72^ n72 n69 n72 n72 n76^^^ n81
l32 n86 n86 n81 n86 n86 n81^ n86 n86 n86^ r n88 n86 n84 n84 n81 n76^^ n79^^ n79 n81 n81^^ n84 n88 n84 r
l8 n81 n79 n74 n69 n72 n74 n74 n72
l8 n67 n62^ n64^^^ n67
l8 n67 n72 n76 n79 n79 n74 n76 n76
l16 n79^ n79^^ n81 n84 n79 r n79 r n74 n74^^^
l6 n69^ n64 n60 n60^
l8 n60 n60 n57^ n55 n57 n55 n57
l8 n57 n55 n57^ n60 n57 n55^
l12 r^^ n55 n55 n60 n57 r^ r n55 n57
l32 r n57^^ n60^ n64^ r^ r n60^^ n60 n62 n62 n64^ n64 n60 n57 n62 r n67 n72 n74 n76^^ n72 n74
l8 n76^ n74 n72^^^ n76
l16 r^ n74 n72^^^ n72 r n72^^ r n67 n72 n72
l32 n76 n81 n79 n79^^ r n84 n88 r n84 n84 r^^ n81 r^ r r n81 n76 n79^ n76 n72^ n74 r n79^^
l24 r n81 n81^ n76 n74^ n74 n74 n79 n76^ n79 n76 n72 n74 n74^ n72^ n67 n62^ r
l8 n64^ n64^ n60^ n55 n57
l32 n60^ n64 n69 r n69 n64 n69^ n74 n74^^ n74 n74 n72 n72 n67^^ n69^^^ r^^ n72 n69^ n67 n62
l6 n62 n67 n72 n69 n69^
l16 n67 n72^ n67 n69 n67^^^ n62 n60^ n57 n57 n55 n60
TR=2 CH=2 V(100) q100 @78 v100 l1 TrackKey=0 r1
 n69 n67 n64 n60 n62 n64 n60 n62 n55 n62 n57 n64 n69 n74 n67 n84 n72 n74 n60 n64
 n62 n72 n60 n55 n60 n81 n79 n72 n84 n84 n76 n81 n84 n84 n84 n88 n88 n81 n76 n74
 n72 n81 n84 n72 n67 n76 n74 n60 n57 n55 n57 n74 n76 n72 n79 n62 n57 n62 n69 n60
//先頭からここまではサンプル曲(ピコサクラ対応)です。
//和風鈴本体(ピコサクラ未対応)は毎回ランダムに違ったMMLを下側タブに出力・演奏しま
//すが、これを使用する場合は先頭から次行までを消して下さい。
/*



Int L      //音長
Int N1     //現在ノート
Int N9=72  //旧ノート
Int BB     //1小節内の音符位置
Int CC     //小節数
Int DD     //音程差計算用
#BR="
";         //改行記号
#MML="TrackName={和風鈴};Copyright={Moritoizumi}"+#BR+"Tempo=100"
#MML=#MML+" TR=1 CH=1 V(120) q100 @108 v100 TrackKey=0 r1"+#BR//トラック1は琴。
#MML2="TR=2 CH=2 V(100) q100 @78 v100 l1 TrackKey=0 r1"+#BR   //トラック2は尺八。
FOR(CC=0; CC<60; CC++){                                       //MMLを60小節作成。
  L=RandomSelect(6,8,8,8,8,8,8,12,16,24,32)//トラック1は音長をランダムに選ぶ。
  #MML=#MML+"l"+L                         //例：8分音符ならl8と表示。
  FOR(BB=0; BB<L; BB++){                  //例：l8なら8分音符を8個作成。
  IF(BB!=0&&Random(100)<30){#MML=#MML+"^"}//１拍目でなければある確率でタイ。
  ELSE{IF(Random(100)<10){#MML=#MML+" r"} //上記以外はある確率で休符。
  ELSE{FOR(DD=0; DD<100;DD++){            //それ以外は下記15音からランダムに前音と
       N1=RandomSelect(55,57,60,62,64,67,69,72,74,76,79,81,84,86,88)
       IF((N1-N9)*(N1-N9)<=36){EXIT}}     //の差が半音6以下のを使う(2乗で36以下)。
       #MML=#MML+" n"+N1;N9=N1}}}#MML=#MML+#BR
	 #MML2=#MML2+" n"+N9                //トラック2はトラック1前小節最後のノート
       IF((CC+1)/20*20==CC+1){#MML2=#MML2+#BR}}//と同音を全音符で鳴らし、20毎に改行。
	 #MML=#MML+#MML2                    //トラック1と2を合体。
Print(#MML);#MML                          //MMLを下側タブに表示、MMLを演奏。
