; Function 1 uses the GEN10 subroutine to compute a sine wave
; Function 2 uses the GEN10 subroutine to compute the first sixteen partials of a sawtooth wave
; Function 3 uses the GEN20 subroutine to compute a Hanning window for use as a grain envelope
; Function 4 uses the GEN01 subroutine to read in an AIF audio file
f 1  0 4096 10   1    
f 2  0 4096 10   1  .5 .333 .25 .2 .166 .142 .125 .111 .1 .09 .083 .076 .071 .066 .062
f 3  0 8192 20   6  1
f 4  0 0    1   "axe2.aif" 0 4 0


; p-table for ending sine wave sweep
i 101		68		2

; p-table for loscil - looping sound file
i	1	26.0	15.0	10000	500
i	1	40	 1	10000	349.22823
i	1	41	1	10000	987.7666
i	1	42	1	10000	880
i	1	43	1	10000	2959.95538 
i	1	44	1	10000	3951.06641
i	1	45	1	10000	4186.00904
i	1	46	1	10000	3520
i	1	47	1	10000	1244.50793
i	1	48	1	10000	1760
i	1	49	1	10000	3951.06641
i	1	50	1	10000	6271.92698
i	1	51	1	10000	523.25113
i	1	52	1	10000	195.99772
i	1	53	1	10000	146.8323
i	1	54	1	10000	207.65235
i	1	55	1	10000	311.12698
i	1	56	1	10000	587.32954
i	1	57	1	10000	783.99087	
i	1	58	1	10000	1318.51023 
i	1	59	1	10000	2489.01587 
i	1	60	1	10000	2959.95538 
i	1	61	1	10000	5274.04091 
i	1	62	1	10000	5587.6517	
i	1	63	1	10000	7902.13282 
i	1	64	1	10000	8869.84419 
i	1	65	1	10000	1975.53321 
i	1	66	1	10000	1567.98174 
i	1	67	1	10000	1567.98174 

; rumbling FM instrument
;							kcps1	xcar1	xmod1	kndx1	kcps2	xcar2	xmod2	kndx2
i	108		0		69.0	20.0	1.5		2.0		1.3		20.0	2.0		1.5		2.6
i	108		3		0.5		500.0	5.1		0.2		4.0		250.0	0.2		5.1		4.0
i	108		5.6		0.3		250.0	3.2		1.3		4.0		500.0	3.2		1.3		4.0
i	108		8.4		0.3		300.0	4.6		0.5		4.0		250.0	5.1		0.2		4.0
i	108		9.1		0.5		650.0	0.2		5.1		4.0		300.0	0.5		4.6		4.0
i	108		11.3	0.5		500.0	1.3		3.2		4.0		650.0	1.3		3.2		4.0

; p-table for mike's special grain instrument
; only defines start/end times, instrument uses same parameters throughout composition
i	105	2	1
i	105	3	1	
i	105	4	1	
i	105	5	1	
i	105	6	1	
i	105	7	1	
i	105	8	1	
i	105	9	1	
i	105	10	1	
i	105	11	1	
i	105	12	15