part p1;

p1 synthPatch:"Fm1v";
envelope ampFunction   = [(0,0)(.2,1)(.3,.5)(7,.25)(8,1)|(8.2,0.0)];
envelope indexFunction = [(0,0)(.2,1)(.3,.8)(7,.6)(8,1)|(8.2,0.0)];
envelope freqFunction  = [(0,.97)(.2,1.01)(.25,.995)(.3,1)|(.5,.99)];
waveTable wave1        = [{1,1},{2,.05},{3,.3},{4,.01},{5,.1}]; 

BEGIN;
p1 ($duration$) c1Ratio:1.0 m1Ratio:1 m1Ind1:2.3 m1Ind0:0
                ampEnv:ampFunction freqEnv:freqFunction m1IndEnv:indexFunction
                svibAmp:$vibrato$ rvibAmp:.7 * $vibrato$ svibFreq:$vibratoFreq$
		m1Waveform:wave1 
		amp:$volume$ freq:$freq$ bearing:0;
END;