part p1;

p1 synthPatch:"DBWave1vi";
envelope ampFunction   = [(0,0)(.15,1,2)(.2,.5,2)(2,.5)(4,1,2)(7,.25,2)|
                          (10,0.0,.5)];
envelope freqFunction  = [(0,.98)(.15,1.01,2)(.2,1,2)(7,1)|(10,1,.1)];

BEGIN;
p1 ($duration$/8.) waveform:"$waveform$" ampEnv:ampFunction freqEnv:freqFunction 
                svibAmp:$vibrato$ rvibAmp:.7 * $vibrato$ svibFreq:$vibratoFreq$
                amp:$volume$ freq:$freq$ bearing:0;
END;