sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 ; ; Sintesi additiva con interpolazione e semplice controllo panoramico stereofonico ; instr 1 iamp = ampdb(p4) kamp linen iamp,0.5,p3,0.5 ;inviluppo trapezoidale: amp. max, att. time, dur., decay time kpoint line 0,p3,1 kpan linseg 0,p3,1,p3,0 a1 adsynt kamp,p5,1,2,3,p6 a2 adsynt kamp,p5,1,4,5,p7 a3 ntrpol a2,a1,kpoint outs a3*kpan,a3*(1-kpan) endin ; ; Sintesi additiva con interpolazione triangolare e controllo panoramico stereofonico con segmenti esponenziali ; instr 2 iamp = ampdb(p4) kamp linen iamp,0.5,p3,0.5 ;inviluppo trapezoidale: amp. max, att. time, dur., decay time ;kamp expon iamp,p3,0.1 ; invertire i commenti all'inizio di questa e della precedente linea per cambiare inviluppo kpoint linseg 0,p3/2,1,p3/2,0 kpan expseg 0.001,p3/2,1,p3/2,0.001 a1 adsynt kamp,p5,1,2,3,p6 a2 adsynt kamp,p5,1,4,5,p7 a3 ntrpol a1,a2,kpoint outs a3*kpan,a3*(1-kpan) endin ; ; Sintesi additiva con interpolazione oscillante e controllo panoramico stereofonico con segmenti esponenziali ; instr 3 iamp = ampdb(p4) kamp linen iamp,0.5,p3,0.5 ;inviluppo trapezoidale: amp. max, att. time, dur., decay time k1 oscil 0.5,2/p3,1 kpoint = 0.5 + k1 kpan linseg 0,p3,1,p3,0 a1 adsynt kamp,p5,1,2,3,p6 a2 adsynt kamp,p5,1,4,5,p7 a3 ntrpol a2,a1,kpoint outs a3*kpan,a3*(1-kpan) endin ; ; Sintesi additiva con interpolazione lineeare e controllo panoramico stereofonico con con rimbalzi accelerati ; instr 4 iamp = ampdb(p4) kamp linen iamp,0.5,p3,0.5 ;inviluppo trapezoidale: amp. max, att. time, dur., decay time kpoint line 0,p3,1 kfr line 1,p3,20 kpan oscil 0.25,kfr,1 a1 adsynt kamp,p5,1,2,3,p6 a2 adsynt kamp,p5,1,4,5,p7 a3 ntrpol a1,a2,kpoint outs a3*kpan,a3*(1-kpan) endin