;;;;;;;;;;;;;;;;	capricho 21



sr	=	44100
kr	=	4410
ksmps	=	10
nchnls	=	2

	instr	1				;7cap panned sample playback
idur		=		p3
asig1		soundin		"7capl.wav", p4 
asig2		soundin		"7capr.wav", p4  
kpan1		oscil		1, 1/24, 1 
kpan2		oscil		1, 1/24, 2
		outs		(asig1*kpan1)/5,(asig2*kpan2)/5
		endin

	instr	21				;7cap vdelay
idur		=		p3
iamp		=		ampdb(0)
imsdel		=		p4
krate		oscil		40, 1/24, 3
asig1		diskin		"7capl.wav", .25, p5 
asig2		diskin		"7capr.wav", .25, p5 	
alfo		oscil 		imsdel, krate, 3
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/12, 2 
kpan2		oscil		1, 1/12, 1
kfade		expseg		iamp, 88.33, iamp, 499.22, .001 
		outs		(kfade*adel1*kpan1)/7,(kfade*adel2*kpan2)/7
		display		kfade, idur
		endin

	instr	22							
idur		=		p3
iamp		=		ampdb(0)
imsdel		=		p4 
krate		oscil		40, 1/24, 3
asig1		diskin		"7capl.wav", .25, p5 
asig2		diskin		"7capr.wav", .25, p5 	
alfo		oscil 		imsdel, krate, 3
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/12, 2 
kpan2		oscil		1, 1/12, 1		
kfade		expseg		iamp, 154.27, iamp, 463.38, .001 
		outs		(kfade*adel1*kpan1)/7,(kfade*adel2*kpan2)/7
		endin

	instr	23							
idur		=		p3
iamp		=		ampdb(0)
imsdel		=		p4 
krate		oscil		40, 1/24, 3
asig1		diskin		"7capl.wav", .25, p5 
asig2		diskin		"7capr.wav", .25, p5 	
alfo		oscil 		imsdel, krate, 3
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/12, 2 
kpan2		oscil		1, 1/12, 1
kfade		expseg		iamp, 189.47, iamp, 428.18, .001 
		outs		(kfade*adel1*kpan1)/7,(kfade*adel2*kpan2)/7
		endin

	instr	24							
idur		=		p3
iamp		=		ampdb(0)
imsdel		=		p4 
krate		oscil		40, 1/24, 3
asig1		diskin		"7capl.wav", .25, p5 
asig2		diskin		"7capr.wav", .25, p5 	
alfo		oscil		imsdel, krate, 3
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/12, 2 
kpan2		oscil		1, 1/12, 1
kfade		expseg		iamp, 241.39, iamp, 376.26, .001 
		outs		(kfade*adel1*kpan1)/7,(kfade*adel2*kpan2)/7
		endin

	instr	25							
idur		=		p3
iamp		=		ampdb(0)
imsdel		=		p4 
krate		oscil		40, 1/24, 3
asig1		diskin		"7capl.wav", .25, p5 
asig2		diskin		"7capr.wav", .25, p5 	
alfo		oscil 		imsdel, krate, 3
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/12, 2 
kpan2		oscil		1, 1/12, 1
kfade		expseg		iamp, 350.1, iamp, 267.55, .001 
		outs		(kfade*adel1*kpan1)/7,(kfade*adel2*kpan2)/7
		endin

	instr	26							
idur		=		p3
iamp		=		ampdb(0)
imsdel		=		p4 
krate		oscil		40, 1/24, 3
asig1		diskin		"7capl.wav", .25, p5 
asig2		diskin		"7capr.wav", .25, p5 	
alfo		oscil		imsdel, krate, 3
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/12, 2 
kpan2		oscil		1, 1/12, 1
kfade		expseg		iamp, 459.75, iamp, 157.9, .001 
		outs		(kfade*adel1*kpan1)/7,(kfade*adel2*kpan2)/7
		display		kfade, idur
		endin

	instr	27							
idur		=		p3
iamp		=		ampdb(0)
imsdel		=		p4 
krate		oscil		40, 1/24, 3
asig1		diskin		"7capl.wav", .25, p5 
asig2		diskin		"7capr.wav", .25, p5 	
alfo		oscil		imsdel, krate, 3
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/12, 2 
kpan2		oscil		1, 1/12, 1
kfade		expseg		iamp, 157.9, .001 
		outs		(kfade*adel1*kpan1)/7,(kfade*adel2*kpan2)/7
		endin

	instr	30				;7cap comb					
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		expon		iamp, idur, .01	  
		outs		(kfade*acomb1*kpan1)/2,(kfade*acomb2*kpan2)/2
		endin		endin

	instr	31						
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		linen		iamp, 18.14, idur, 529.32 
		outs		(kfade*acomb1*kpan1)/3.5,(kfade*acomb2*kpan2)/3.5
		display		kfade, idur
		endin

	instr	32						
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		linen		iamp, 18.14, idur, 463.38  
		outs		(kfade*acomb1*kpan1)/2,(kfade*acomb2*kpan2)/2
		endin

	instr	33						
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		linen		iamp, 18.14, idur, 428.18
		outs		(kfade*acomb1*kpan1)/2,(kfade*acomb2*kpan2)/2
		endin		

	instr	34						
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		linen		iamp, 18.14, idur, 376.26   
		outs		(kfade*acomb1*kpan1)/2,(kfade*acomb2*kpan2)/2
		endin		

	instr	35						
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		linen		iamp, 18.14, idur, 267.55      
		outs	 	(kfade*acomb1*kpan1)/2.5,(kfade*acomb2*kpan2)/2.5
		endin

	instr	36						
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		linen		iamp, 18.14, idur, 157.9       
		outs		(kfade*acomb1*kpan1)/3,(kfade*acomb2*kpan2)/3
		endin

	instr 37						
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"7capl.wav",.5, p6
asig2		diskin		"7capr.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/18, 1 
kpan2		oscil		1, 1/18, 2
kfade		linen		iamp, 18.14, idur, 3.76        
		outs		(kfade*acomb1*kpan1)/2.5,(kfade*acomb2*kpan2)/2.5
		display		kfade, idur
		endin

	instr	4				;puke panned sample playback
idur		=		p3
asig1		soundin		"pukel.wav", p4  
asig2		soundin		"puker.wav", p4  
kpan1		oscil		1, 1/3, 1 
kpan2		oscil		1, 1/3, 2
		outs		(asig1*kpan1)/20,(asig2*kpan2)/20 
		endin
	
	instr	5				;puke vdelay
idur		=		p3
iamp		=		ampdb(p4)
imsdel		=		p5 
krate		oscil		40, 1/12, 3
asig1		diskin		"pukel.wav", .125, p6
asig2		diskin		"puker.wav", .125, p6 
alfo		oscil	 	imsdel, krate, 1
adel1		vdelay		asig1, alfo, imsdel
adel2		vdelay		asig2, alfo, imsdel
kpan1		oscil		1, 1/5, 2 
kpan2		oscil		1, 1/5, 1
kenv		envlpx		iamp, idur/1000, idur, idur/.7, 3, .7, .01
		outs		(adel1*kpan1*kenv)/5,(adel2*kpan2*kenv)/5
		endin

	instr	6				;puke comb
idur		=		p3
iamp		=		ampdb(0)
irvt		=		p4
iloopt		=		p5
asig1		diskin		"pukel.wav",.5, p6	
asig2		diskin		"puker.wav",.5, p6	
acomb1		comb		asig1, irvt, iloopt, 0		
acomb2		comb		asig2, irvt, iloopt, 0
kpan1		oscil		1, 1/9, 1 
kpan2		oscil		1, 1/9, 2
kfade		expon		iamp, idur, 0.01
		outs		(acomb1*kpan1*kfade)/12,(acomb2*kpan2*kfade)/12
		endin

	instr	7				;7cap butterworth filtered
idur		=		p3
asig1		soundin		"7capl.wav", p4   
asig2		soundin		"7capr.wav", p4  
klp		oscil	 	250, 66, 4
alp1		butlp		asig1, klp
alp2		butlp		asig2, klp
khp		oscil		20000, 1/24, 3	
ahp1		buthp		asig1, khp
ahp2		buthp		asig2, khp
kfr		oscil		10000, 1/5, 3		
kbp		oscil		10000, 1/5, 3
abp1		butbp		asig1, kfr, kbp
abp2		butbp		asig2, kfr, kbp		
amix1		=		ahp1+(abp1)/3.5+alp1/14
amix2		=		ahp1+(abp2)/3.5+alp2/14
kpan1		oscil		1, 1/24, 2 
kpan2		oscil		1, 1/24, 1
		outs		(amix1*kpan1)*4,(amix2*kpan2)*4 
		endin





f 1	0	4096	9	1	1	0
f 2	0	4096	9	1	1	90
f 3	0	4096	19	1	1	0	1.5
f 4	0	4096	19	1	1	90	1.5	

;p1		p2		p3		p4		p5		p6

;7cap		start		dur		sigskpt
i 1		0		617.65		0				

;7capvdly	start		dur		imsdly		sigskpt				(lasts *4)
i 21		30.10		587.55		40		30.10
i 22		88.33		529.32		40		88.33
i 23		154.27		463.38		40		154.27	
i 24		189.47		428.18		40		189.47
i 25		241.39		376.26		40		241.39
i 26		350.1		267.55		40		350.1
i 27		459.75		157.9		40		459.75

;7capcomb	start		dur		irvt		iloopt		sigskpt		(lasts *2)
i 30		0		60.2		3		.09		0
i 31		30.1		587.55		3		.09		30.1
i 32		88.33		529.32		3		.09		88.33
i 33		154.27		463.38		3		.09 		154.27	
i 34		189.47		428.18		3		.09 		189.47
i 35		241.39		376.26		3		.09 		241.39
i 36		350.1		267.55		3		.09 		350.1
i 37		459.75		157.9		3		.09 		459.75

;puke		start		dur		sigskpt		
i 4		30.1		2		3.86
i .		88.33		.		.				
i .		154.27		3.7		2.16
i .		241.39		5.21		3.86
i .		350.10		6.91		2.16
i .		459.75		9.07		 .16

;pkvdly		start		dur		amp		imsdly		sigskpt		(lasts *8)
i 5		30.1		16		.5		60		3.86
i .		88.33		.		1 		.		.		
i .		154.27		29.6		.		.		2.16
i .		241.39		41.68		.		.		3.86
i .		350.10		55.28		.		.		2.16
i .		459.75		72.56		.		.		 .16

;pkcomb		start		dur		irvt		iloopt		sigskpt		(lasts *2)
i 6		30.1		18.14		3		.095		.16
i .		88.33		.		.		.		 .		
i .		154.27		.		.		.		 .
i .		241.39		.		.		.		 .
i .		350.10		.		.		.		 .
i .		459.5		.		.		.		 .
	
;7capbut	start		dur		sigskpt
i 7		0		617.65		0
e