;
; Realizzare uno strumento che crei delle fasce di suono in sintesi additiva con componenti di frequenza casuale in un
; intervallo ristretto (ad es. tra 300 e 600 Hz). Le fasce devono essere dinamiche tramite interpolazione fra 2 fasce "semplici". Creare una
; partitura che contenga almeno 3 fasce che "contrappuntino" fra loro. Localizzare casualmente ogni componente nello spazio stereofonico. Usare
; gli opcode adsynt, ntrpol e tableiw.
;
	sr = 44100
	kr = 4410
	ksmps = 10
	nchnls = 2
;
	instr 1
iamp	= ampdb(p4)
isize	= p7
iattack	= p9
idecay	= p10
iftab	= p11
iatab	= p12
icnt	= 1
idel	= p3 * rnd(p8)	; non serve globale!!!
ileft	= 1	;rnd(1)
iright	= 1	;1 - ileft
iarm	= 1
irange	= p6/p5 - 1
iacomp	= rnd(1)
ciclo:
	tableiw iarm, icnt, iftab
	tableiw iacomp, icnt, iatab
iarm	= 1 + rnd(irange)
iacomp	= rnd(1)
	tableiw iarm, icnt, iftab*10
	tableiw iacomp, icnt, iatab*10
iarm	= 1 + rnd(irange)
iacomp	= rnd(1)
icnt	= icnt + 1
	if icnt < isize goto ciclo
kpoint	line 0,p3,1			; fattore di interpolazione
kenv	linseg 0,idel,0,iattack,iamp,p3-iattack-idecay-2*idel,iamp,idecay,0,idel,0
a1	adsynt kenv,p5,1,iftab,iatab,isize
a2	adsynt kenv,p5,1,iftab*10,iatab*10,isize
a3	ntrpol	a1, a2, kpoint			; interpolazione lineare
	outs a3*ileft,a3*iright
	endin