-odac
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
giSine ftgen 0, 0, 4096, 10, 1
giOSC1 OSCinit 5001
giOSC2 OSCinit 5002
instr getOSC
kamp init 0
kfreq init 100
index = p4-1
kX init 0
kY init 0
if (index==0) then
ihandle = giOSC1
elseif (index==1) then
ihandle = giOSC2
endif
kCoordinates OSClisten ihandle, "/3/xy", "ff", kX,kY
if (kCoordinates ==1) then
kamp = kX*0.8
kfrq= 100+400*kY
asig poscil kamp,kfreq,giSine
endif
outs asig*index, asig*(1-index) ; OSC1 to one channel, OSC2 to other
endin
i "getOSC" 0 30 1
i "getOSC" 0 30 2
0
30
30
105
true
231
46
255
slider1
5
5
20
100
{f6d2a9ab-b7a3-4c0d-aa13-3b2bb6ec7e98}
true
0
-3
0.00000000
1.00000000
0.00000000
lin
continuous
-1.00000000
false