-- rTracePlay ; traverse a diamond in equal time increments
let t = [0,-1,1/4,0, 1/4,0,1/2,0, 1/2,1,1/4,0, 3/4,0,0,0, 1,-1,1/4,0]
    b = asLocalBufId 'α' t
    o = sinOsc ar 440 0 * 0.1
    l = X.rTracePlay kr b 4 (mouseX kr 1 20 Linear 0.1) 1
in pan2 o l 1

-- rTracePlay ; X of trace is (-1 0 1 0 -1) ; Y is (1/4 1/2 1/4 0 1/4)
let t = [0,-1,1/4,0, 1/4,0,1/2,0, 1/2,1,1/4,0, 3/4,0,0,0, 1,-1,1/4,0]
    b = asLocalBufId 'α' t
    o = sinOsc ar 440 0 * 0.1
    tr f n = X.rTracePlay kr b 4 (f kr 1 20 Linear 0.1) n
    l = tr mouseX 1
    g = tr mouseY 2
in pan2 o l g

---- Play a buffer that is arranged as a trace.  A trace is a sequence of tuples (T,X,Y,Z).