 
		The following instrument uses the Csound rand unit to produce noise, and a reson unit to filter it. The bandwidth of reson will be set at i-time, but its center frequency will be swept via a line unit through a wide range of frequencies during each note. We add reverb as in Toot 9.
			
				
			
					 
				garvbsig 
					init 
					0 
					
					 
				 
					 
				
					
					 
					 
					 
				 
					 
				instr 10 
					; toot10.orc 
					
					 
					 
				 
					 
				
					 iattack 
					= 
					.01 
					
				 
					 
				
					 irelease 
					= 
					.2 
					
				 
					 
				
					 iwhite 
					= 
					22050 
					
				 
					 
				
					 idur 
					= 
					p3 
					
				 
					 
				
					 iamp 
					= 
					p4 
					
				 
					 
				
					 isweepstar 
					= 
					p5 
					
				 
					 
				
					 isweepend 
					= 
					p6 
					
				 
					 
				
					 ibandwidth 
					= 
					p7 
					
				 
					 
				
					 ibalance 
					= 
					p8 
					; pan: 1 = left, .5 = center, 0 = right 
				
					 
				
					 irvbgain 
					= 
					p9 
					
				 
					 
				
					 kamp 
					linen 
					iamp, iattack, idur, irelease 
				
					 
				
					 ksweep 
					line 
					isweepstart, idur, isweepend 
				
					 
				
					 asig 
					rand 
					iwhite 
				
					 
				
					 afilt 
					reson 
					asig, ksweep, ibandwidth 
				
					 
				
					 arampsig 
					= 
					kamp * afilt 
				
					 
				
					 outs 
					arampsig * ibalance, arampsig * (1 - ibalance) 
				
					 
				
					 garvbsig 
					= 
					garvbsig + arampsig * irvbgain 
				
					 
				endin 
					
					 
					 
					 
				 
					 
				
					
					 
					 
					 
				 
					 
				instr 100 
					
					 
					 
					 
				 
					 
				
					 irvbtime 
					= 
					p4 
					
				 
					 
				
					 asig 
					reverb 
					garvbsig, irvbtime 
				
					 
				
					 outs 
					asig, asig 
					
				 
					 
				
					 garvbsig 
					= 
					0 
					
				 
					 
			endin 
					
					 
					 
					 
				 
		
		
			
		
				 
			;toot10.sco 
				
				 
				 
				 
				 
				 
				 
				 
			 
				 
			; ins 
				strt 
				dur 
				rvbtime 
				
				 
				 
				 
				 
			 
				 
			i100 
				0 
				15 
				1.1 
				
				 
				 
				 
				 
			 
				 
			i100 
				15 
				10 
				5 
				
				 
				 
				 
				 
			 
				 
			
				 
				 
				 
				 
				 
				 
				 
				 
			 
				 
			;ins 
				strt 
				dur 
				amp 
				stswp 
				ndswp 
				bndwth 
				balance(0-1) 
				rvbsend 
			
				 
			i10 
				0 
				2 
				.05 
				5000 
				500 
				20 
				.5 
				.1 
			
				 
			i10 
				3 
				1 
				.05 
				1500 
				5000 
				30 
				.5 
				.1 
			
				 
			i10 
				5 
				2 
				.05 
				850 
				1100 
				40 
				.5 
				.1 
			
				 
			i10 
				8 
				2 
				.05 
				1100 
				8000 
				50 
				.5 
				.1 
			
				 
			i10 
				8 
				.5 
				.05 
				5000 
				1000 
				30 
				.5 
				.2 
			
				 
			i10 
				9 
				.5 
				.05 
				1000 
				8000 
				40 
				.5 
				.1 
			
				 
			i10 
				11 
				.5 
				.05 
				500 
				2100 
				50 
				.4 
				.2 
			
				 
			i10 
				12 
				.5 
				.05 
				2100 
				1220 
				75 
				.6 
				.1 
			
				 
			i10 
				13 
				.5 
				.05 
				1700 
				3500 
				100 
				.5 
				.2 
			
				 
			i10 
				15 
				5 
				.01 
				8000 
				800 
				60 
				.5 
				.15 
			
				 
		e 
				
				 
				 
				 
				 
				 
				 
				 
			 

Toot 10: Filtered Noise
