part p1;

p1 synthPatch:"Fm1";
envelope ampFunction   = [(0,0)(.005,1)(10,0)|(14,0.0)(15,0)];
envelope freqFunction  = [(0,1)(.005,1.06)(.01,1)(10,1)|(14,.9,2)];
envelope indexFunction = [(0,2)(.005,1)(10,0,.3)|(14,0.0)];
waveTable wave1        = [{1,1}{3,.1}]; 

BEGIN;
p1 ($duration$) waveform:wave1 
                m1Ratio:3.4 m1Ind1:.4 
                ampEnv:ampFunction freqEnv:freqFunction m1IndEnv:indexFunction
                amp:$volume$ freq:$freq$ bearing:0;
END;