sr=44100 kr=441 ksmps=100 nchnls=2 ;p4 -- soundfile number ;p5 -- gain in dB ;p6 -- pan, 1-9 ;p7 -- reverb send, dB instr 10 ga1 init 0 ga2 init 0 ga11 init 0 ga12 init 0 ga13 init 0 ga14 init 0 ga15 init 0 ga16 init 0 ga17 init 0 ga18 init 0 a1 = 0.2 * ga1 a2 = 0.2 * ga2 ga1 = 0 ga2 = 0 a3 delay a1, 0.006789 a1 = a2 + a3 a2 = a2 - a3 a3 delay a1, 0.01085 a1 = a2 + a3 a2 = a2 - a3 a3 delay a1, 0.01634 a1 = a2 + a3 a2 = a2 - a3 a3 delay a1, 0.02692 a1 = a2 + a3 a2 = a2 - a3 a3 delay a1, 0.042596 a1 = a2 + a3 a2 = a2 - a3 a3 delay a1, 0.063425 a1 = a2 + a3 a2 = a2 - a3 a10 = ga11 + ga12 + ga13 + ga14 + ga15 + ga16 + ga17 + ga18 a21 = 4 * ga11 - a10 a22 = 4 * ga12 - a10 outs a21, a22 a11 delay a21, 0.084325 a12 delay a22, 0.093453 a13 delay 4 * ga13 - a10, 0.104635 a14 delay 4 * ga14 - a10, 0.115436 a15 delay 4 * ga15 - a10, 0.128456 a16 delay 4 * ga16 - a10, 0.132445 a17 delay 4 * ga17 - a10, 0.146956 a18 delay 4 * ga18 - a10, 0.154276 i4 = p4 if (i4 > 0.01) igoto good0 i4 = 2.5 good0: i4 = 0.25 * (1 - 0.1 / (0.0001 + i4/7.)) if (i4 > 0) igoto good1 i4 = 0 good1: i5 = p5; if (i5 > 100) igoto good2 i5 = 10000; good2: ga11 tone i4 * a11, i5 ga12 tone i4 * a12, i5 ga13 tone i4 * a13, i5 ga14 tone i4 * a14, i5 ga15 tone i4 * a15, i5 ga16 tone i4 * a16, i5 ga17 tone i4 * a17, i5 ga18 tone i4 * a18, i5 ga11 = a1 + ga11 ga12 = a2 + ga12 endin instr 1 a1 soundin p4 i5 = exp(log(10) * 0.05 * p5) i1 = cos(1.5707 * (p6-1)/8) i2 = sin(1.5707 * (p6-1)/8) i9 = exp(log(10) * 0.05 * (p7 - 100)) a2 = a1 * i5 ga1 = ga1 + a2 * i9 a3 = a2 * i1 a4 = a2 * i2 outs a3, a4 endin instr 2 a10,a11 soundin p4 i5 = exp(log(10) * 0.05 * p5) i1 = cos(1.5707 * (p6-1)/8) i2 = sin(1.5707 * (p6-1)/8) i9 = exp(log(10) * 0.05 * (p7 - 100)) a20 = a10 * i5 a21 = a11 * i5 ga1 = ga1 + a20 * i9 ga2 = ga2 + a21 * i9 a3 = a20 * i1 a4 = a21 * i2 outs a3, a4 endin