/*

音列生成の試み



ちょっと思いついたので

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

Array Notes//ノートを入れる配列

Int I
Int J
Int Temp

//配列へ値を代入
For(I=0;I<12;I++){
    Notes(I)=I
}

//要素の入れ替え
For(I=0;I<12;I++){
    J=Random(12)

    Temp=Notes(I)
    Notes(I)=Notes(J)
    Notes(J)=Temp
}

//再生して確認

//順行
For(I=0;I<12;I++){
    TR(1)@49 l1 q99 n(Notes(I)+60)
}

//逆行
For(I=11;I>=0;I--){
    TR(2)@49 l1 q99 n(Notes(I)+48)
}

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