/*

音列生成の試み２

ちょいと手直し。環境音の代わりぐらいの感じ。

*/
//------------------------------------------------------------------------------

Array Notes//ノート用の配列

Int I
Int J
Int Temp

//↓音階の代わり
Notes=(0,2,3,5,7,9,10)
//Notes=(1,3,5,7,9,11,13)
//Notes=(0,3,6,9,12,15,18)

//------------------------------------------------------------------------------

Tempo(128)
ResetGM

TR(1) v90
TR(2) v70
TR(3) v70
TR(4) v90

//リピート指定
[4

//入れ替え
For(I=0;I<7;I++){
    J=Random(7)

    Temp=Notes(I)
    Notes(I)=Notes(J)
    Notes(J)=Temp
}
Print("Notes="+Notes)//入れ替えできてるか確認

//再生して確認
For(I=0;I<7;I++){
    TR(1) l1 q99 n(60+Notes(I))
    TR(4) l1 q99 n(48-Notes(I))
}TR(1)r1 TR(4) r1
For(I=6;I>=0;I--){
    TR(2) l1 q99 n(48+Notes(I))
    TR(3) l1 q99 n(60-Notes(I))
}TR(2)r1 TR(3)r1

]

//------------------------------------------------------------------------------