-odac 0dbfs = 1 ;;channels chn_k "vert",3 chn_k "horz",3 chn_k "freq",3 chn_k "amp",3 gifn[ ] init 4 ihar[ ] init 40 ii = 0 while ii < 4 do ik = 1 while ik < 40 do irnd = abs(rnd31(1,0,0)) ihar[ik-1] = irnd < 0.8 ? 0 : irnd/ik ik += 1 od gifn[ii] ftgen 0,0,8192,10,ihar ii += 1 od instr 1 asig[] init 4 kamp chnget "amp" // controls from host kfreq chnget "freq" kh chnget "horz" kv chnget "vert" kfreq port kfreq, 0.01 aph phasor kfreq asig[0] tablei aph, gifn[0], 1 asig[1] tablei aph, gifn[1], 1 asig[2] tablei aph, gifn[2], 1 asig[3] tablei aph, gifn[3], 1 amix = (asig[0]*(1-kh) + asig[1]*kh)*(1-kv) + (asig[2]*(1-kh) + asig[3]*kh)*kv aenv linenr amix*kamp, 0.1, 0.1, 0.01 out aenv*kamp endin schedule(1, 0, 10000) Widgets 0 0 686 331 true 255 255 255 amp 62 99 80 80 {8f868e2e-225c-4369-b240-9c6e890c226b} true 0 0 0.00000000 1.00000000 0.21250000 lin continuous 0.01000000 false 245 124 0 #512900 0 #512900 true true false freq 152 99 80 80 {ccbc15c4-3711-4550-b69e-d488e0f99e64} true 0 0 55.00000000 220.00000000 162.25000000 lin continuous 0.01000000 false 245 124 0 #512900 0 #512900 true true false horz 241 98 353 233 {1ecb3530-5745-4261-8e67-43f0e0e7d05f} true 1 7 vert 0.00000000 1.00000000 0.00000000 1.00000000 0.41643059 0.51072961 point 30 0.00000000 jump noborder #00ff00 0 234 0 false 30 30 30 true