TrackName={和風鈴2};Copyright={Moritoizumi}
Tempo=100 TR=1 CH=1 V(120) q100 @108 v100 TrackKey=0 r1
l8`d`g`g`e^`a^``c
l16 r^^``e^``d^^``c^``e``c``d``c r``c
l24``c^^^``e^``c``d`a``d``d`a``d``d`a^``c^^^^``d``c``c
l8`g`e`e r^`d ra
l16`d^`d^`c raag`ca`d`d`g`a^
l6``c`g`a r^^
l8`e^`e^`a^`g`e
l8`d`g`d r`e^`g`a
l8``d``c``d``d``c``c^^
l24``e r``d``c^^``e``d``e``e``e^``d``d`a^ r``c``e``e``c r^^
l8`g`e`a`g`g`g``c r
l8``c r`g``c`g r`g r
l6 r^`d`g``c``c
l12`g^`d`g^``c``c``d`a^`e`c
l8 r`d^aed^"a
l8 r^^c^d rg
l8de^dd^^ r
l32d"ac"addcc^^^^^d"ad rc"g^ r"g^"ad^ee rg^`c
l16g^a^^g^^^gd^g^ae
l16c^"a"g"a"a"a^d^^cc^"ad
l8c"a"a^"g^^^
l8"a^cdc^c^
l8d^e^^c^^
l8c re rg`ca`d
l8aee^d^cc
l8ce rggec^
l8d^ge r rga
l16ec r^"a^c^c^e^^^a^
l8 ra^^^ ra^
l8a`c`d^^^^`e
l12`c`d`g`e`c`e^`e^^^`c
l12`c`d`e^^`ca`d`e`g`da
l12ag^gg^e^^^^c
l8ce^c^^d^
l12ega`d^`g^``c``d``d^`a
l8 r^^^``c``d``d``c
l8``c`g`e`d`d`e`e`d
l16 r^`e`a`a``c``e^``d``c`g`d`c`c`e`d
l8a^`cag^gg
l12eg^d"a"gc^cd r^
l12cc^"g^^ r^cec^
l6"a"a^"gce
l8c^ r^c r re
l32c"g"g^cd^eggag^ r^^g`c^^^a^^ae r r^ecd
l24e^a^^gdc"ad^"a"aceagee^cc^d
l8c^cc^^"a^
l8 rd"a"a"g"g"a"g
l24c"g^"a^^"g^^"g"a^c^ r"a^c^e raec
l8"gcea^`d`c^
l32 ra rg`cga^ge^d"acc^^e^ rdec"acea^`c r`e`a
l8`a``c``e``d`a``c``c`g
l8`g`g`d^ae r r
l16g rggaa^ee^ rdc^^c
l8eg^^ rgge
l8a^^^`c`c`c`c
l8 r`e`caaege
l8 rcd^g`caa
l8eddc^"ade
l12agdc^ r"a^dc"g^
l8"g^^ r^"a^"g
TR=2 CH=2 V(100) q100 @78 v100 l1 TrackKey=0 r1
``c``c``ca`a`a`e`a``c``c``c`g``c`c"agd`ced
"gcc`dccaaa`e`cacd`a``c`d`dgd
ceedd"a"gc`c`a`gece`ceae"g"g

//先頭からここまではサンプル曲(ピコサクラ対応)です。
//和風鈴本体(ピコサクラ未対応)は毎回ランダムに違ったMMLを下側タブに出力・演奏しま
//すが、これを使用する場合は先頭から次行までを消して下さい。
/*

Int L      //音長
Int N1     //現在ノート
Int N9=72  //旧ノート
Int BB     //1小節内の音符位置
Int CC     //小節数
Int DD     //音程差計算用

Array AB=({"g},,{"a},,,{c},,{d},,{e},,,{g},,{a},,,{`c},,{`d},,{`e},,,{`g},,{`a},,,{``c},,{``d},,{``e})

#BR="
";         //改行記号
#MML="TrackName={和風鈴2};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+AB(N1-55);N9=N1}}}#MML=#MML+#BR
       #MML2=#MML2+AB(N9-55)               //トラック2はトラック1前小節最後のノート
       IF((CC+1)/20*20==CC+1){#MML2=#MML2+#BR}}//と同音を全音符で鳴らし、20毎に改行。
	 #MML=#MML+#MML2                    //トラック1と2を合体。
Print(#MML);#MML                          //MMLを下側タブに表示、MMLを演奏。