TrackName={不思議な風鈴};Copyright={Moritoizumi}
Tempo=170 TR=1 CH=1 V(120) q100 @(Vibraphone) TrackKey=0 v100 r1
l8 n55 n56 r n62 n59 n60^ n65
l8 n65 n67 n70^ n64^^ n58
l4 r r n59 n58
l8 n56r n59 n64^^^ n68
l6 n71 n70 n76^^^
l4 n70 n76^^
l6 n72^^^^ n72
l4 n72 n78^^
l6 n81 n81^ n75 n80 n79
l8 n81^^^ n78^^ n72
l8 n75^ n80^^^ n80 n80
l8 n78 n77 n78 n72 n71 n70^ n65
l8 r n71 n77 n72^ n66 n72^
l4 n72 n66 n65 n60
l8 n60 n63^^ n65 r^ n67
l4 n69^^ n74
l3 n80^ n75
l8 n79 n78^ n82 n82 n77^ n76
l4 n70 n75^ n71
l4 n71 n70 n65^
l12 n65^^ n71 n73 n74 n80 n78 n76 n76 n78 n73
l8 n73^^ n77 n73 n75^ n69
l8 n70 r n65 n66 n70r n70^
l4 n70 r n75 n69
l8 n69^ n68^^ n62 n58^
l3 n59^ n63
l8 n63 n60 n59 n62 n60^^ n63
l4 n63 n62^ r
l6 n60 n60^^^ n65
l4 n65^ n60 n59
l3 n53 n55 n51
l8 n51 n50 n54 n52^ n56 n55^
l4 n52 n58 n54 n59
l4 n55^ n51 n51
l4 n51 n49 n54 n56
l8 n51 n55 n60 n62^ n61 n65^
l4 n65 n69 n71 n69
l8 n75 n70^^ n68 n70 n70 n68
l8 n68^ n62^^^ r n57
l8 n60 n61 n66 n66^ n68 n69^
l8 n63^^ n66^^ n61^
l12 n59 n61 n62 n66 n64 n59 n54 n56 n57^ n61^
l8 n61 n59^ n62^ n61^ n59
l4 n64 n63^ n67
l12 n73 n68 n71 n77 n74^^ r r r n79 n81
l3 r n81 n80
l4 n80 n78 n81 n77
l8 n75 n71 n71 n68^ n70 n76 r
l12 r^ n80 n75 n80 n78 n73 r n68^^^
l6 n70 n66 n66^ n69^
l3 n72^ n67
l8 n67^ n66 n69^ n73^ n68
l4 n68 n74 n74^
l8 n75 r n81 r n82^ n80^
l8 n82 n77 n81 n77 n81 n76 n79 n80
l8 n82 n79^ n79 n75 n70 n75 n80
l8 n80 n78^ n82^ n80 n79 n75
l4 n71 n68^ n64
l12 n64^ n67^ n67^ n64 n70 n69 n75 n76 n73
l4 r n75 r^
//先頭からここまではサンプル曲(ピコサクラ対応)です。
//不思議な風鈴本体(ピコサクラ未対応)を使う場合は先頭から次行までを消して下さい。
/*


Int L      //音長
Int N1     //現在ノート
Int N9=60  //旧ノート
Int BB     //1小節内の音符位置
Int CC     //小節数
Int DD     //音程差計算用
#BR="
";         //改行記号
#MML="TrackName={不思議な風鈴};Copyright={Moritoizumi}"+#BR
#MML=#MML+"Tempo=170 TR=1 CH=1 V(120) q100 @(Vibraphone) TrackKey=0 v100 r1"+#BR
FOR(CC=0; CC<60; CC++){                      //MMLを60小節作成
  L=RandomSelect(3,4,4,4,4,6,8,8,8,8,12)     //音長をランダムに選ぶ
  #MML=#MML+"l"+L                            //例：8分音符ならl8と表示
  FOR(BB=0; BB<L; BB++){                     //例：l8なら8分音符を8個作成
  IF(BB!=0&&Random(100)<40){#MML=#MML+"^"}   //１拍目でなければある確率でタイ。
  ELSE{IF(Random(100)<20){#MML=#MML+" r"}    //上記以外はある確率で休符。
  ELSE{FOR(DD=0; DD<100;DD++){               //それ以外はノートn48(o4c)〜n83(o6b)
       N1=Random(48,83)                      //からランダムに選び、前音との音程差
       IF((N1-N9)*(N1-N9)<=36){EXIT}}        //が半音6以下のを使う(2乗で36以下)。
       #MML=#MML+" n"+N1;N9=N1}}}#MML=#MML+#BR}
Print(#MML);#MML                             //MMLを下側タブに表示;MMLを演奏
