; r2d2.sco

;Function 1 uses the GEN20 subroutine to compute a Hanning window for use as a grain envelope
f1  0 4097 20   2  1

;ins	strt	dur	amp     frq     fn	atk	rel	bend	dens1	dens2	ampof1	ampof2	pchof1	pchof2	gdur1	gdur2
;====================================================================================================================================
i1	0	5	10000	1760  	1	1	.1	60	500	3000	500   	1000  	10  	5000     1   	.01