part p1;

p1 synthPatch:"Wave1";
envelope ampFunction   = [(0,0)(.2,1)(.3,.5)|(3.5,0.0)(3.6,0,.1)];
envelope freqFunction  = [(0,.95)(.2,1.02)(.3,1)(2.0,.6)];
waveTable wave1        = [{1,1},{2,.05},{3,.3},{4,.01},{5,.1}]; 

BEGIN;
p1 ($duration$/4.) waveform:wave1 ampEnv:ampFunction freqEnv:freqFunction 
                amp:$volume$ freq:$freq$ bearing:0;
END;