/*

鏡像



音列のついで。

環境音の代わりとか、少し違う響き出るかなとか。

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

Array Notes//ノート用の配列

Int I
Int J
Int Temp

//↓音階の代わり
Notes=(0,2,4,5,7,9,11)
//Notes=(0,2,3,5,7,9,10)
//Notes=(0,1,3,5,7,8,10)
//Notes=(0,2,4,6,7,9,11)
//Notes=(0,2,4,5,7,9,10)
//Notes=(0,2,3,5,7,8,10)
//Notes=(0,1,3,5,6,8,10)

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

Tempo(128)
ResetGM

TR(1) V(90) v90 l1 q99
TR(2) V(90) v70 l1 q99
TR(3) V(90) v70 l1 q99
TR(4) V(90) v90 l1 q99

//リピート指定
[4

//入れ替え
For(I=0;I<7;I++){
    J=Random(7)
    
    Temp=Notes(I)
    Notes(I)=Notes(J)
    Notes(J)=Temp
}
Print(#STR(Notes))//表示して確認

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

]

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