/*

5音音階と乱数２



環境音とか音ネタ替わり

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

//音階の代わり。下方と上方で分ける
Array Lower
Array Upper

//↓音階指定。1〜4から選ぶ
Int Scale=1

If(Scale==1){
    //1度と4度の間に、短3度が挟まる
    Lower=("r", "c", "e-", "f")
    Upper=("r", "g", "b-", ">c<")
}
If(Scale==2){
    //短2度が挟まる
    Lower=("r", "c", "d-", "f")
    Upper=("r", "g", "a-", ">c<")
}
If(Scale==3){
    //長2度が挟まる
    Lower=("r", "c", "d", "f")
    Upper=("r", "g", "a", ">c<")
}
If(Scale==4){
    //長3度が挟まる
    Lower=("r", "c", "e", "f")
    Upper=("r", "g", "b", ">c<")
}

//低音の代わり。
Array Bs=("r","c","f","g")

//演奏用バッファ
Str Buffer

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

TimeSignature=2,4
ResetGM r1 TrackSync

TR(1) o5 l4
TR(2) o4 l2
TR(3) o4 l1

[4

    TR(1)
    [2
        Buffer=""
        If(Random(2)==1){
            [2
                [4  Buffer=Buffer+Upper(Random(4)) ]//上方でフレーズっぽくさせる
            ]
        }
        Else{
            [2
                [4  Buffer=Buffer+Lower(Random(4)) ]//下方でフレーズっぽくさせる
            ]
        }
        Print("TR(1) l4 "+Buffer)//表示確認
        Buffer//演奏させて確認
    ]

    TR(2)
    [2
        Buffer=""
        [4  Buffer=Buffer+Upper(Random(4)) ]
        Print("TR(2) l2 "+Buffer)
        Buffer
    ]

    TR(3)
    [2
        Buffer=""
        [2  Buffer=Buffer+Bs(Random(4)) ]
        Print("TR(3) l1 "+Buffer)
        Buffer
    ]

    Print("")//空行
]

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