/*

和音遊びの例５



動作確認とか慣らし用途

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

Array Chd
Array Next

Str Buffer
Int I

Chd(0)="r"
Chd(1)="'ce-g'"
Chd(2)="'dfa-'"
Chd(3)="'e-gb-'"
Chd(4)="'fa->c<'"
Chd(5)="'<gb>df'"
Chd(6)="'<a->ce-'"
Chd(7)="'<b->df'"

//連結の仕方変えたい場合
Next(0)=6
Next(1)=7
Next(2)=5
Next(3)=0
Next(4)=2
Next(5)=1
Next(6)=4
Next(7)=3

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

//使ってみる
TR(1) @6 l2 q99 v.Random(50) v70

[4
    I=Random(0,7)

    [8

        Buffer="TR(1)" +Chd(I)
        Print(I,Chd(I),Next(I))
        Play(Buffer)

        I=Next(I)
    ]

    Print("")
]

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