/*

単旋律で音長ずらすサンプル



音列とかいじってた時の試行錯誤みたいな感じ

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

//Array Notes={"r","c","e","f","g","b"}//こっちだと意図しない挙動

Array Notes=("r","c","e","f","g","b")//音階の代わり
Array Length=("1^1","1","2","4","8","16")//音長の代わり

Str Buffer

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

ResetGS r1 TrackSync

TR(1) @77 CHO(0) REV(0) v90 q75
[8
    [4
        Buffer = Buffer + Notes(Random(6)) + Length(Random(6))
    ]
    Print(Buffer)//表示
    Buffer//演奏

    Buffer=""//空文字列でクリア
]

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