< resynblocks1 : time warping, no pitch or formant change
< source soundfiles : 22k versions of tb1 (lp.3), tb2 (lp.4) & wb (lp.5)
<     from the NeXT  /sflib directory
< noise % is increased in p15

    < functions 96 & 97 are optional, if tables are used for begin & end times
    < f96 specifies times to begin reading lp.m file; start with 2nd index
    < f97 specifies times to end reading lp.m file; start with 2nd index
*f96 0 4 -2 0 0 0 0 ; 
*f97 0 4 -2 0 .21 .13 .15;
* f1 0 8193 10 1;     < Sine Wave for Buzz

RESYN 0 0 9;
p3 nu .5*2/1./1.*2/1.5/2.*3;
du nu 300.19/300.19/300.19/300.8*3/301./301.8*2;
p4 nu 3/4/5;        < tb1, tb2, wb   < lp.m number
p5 1;               < ampfac
      < p6 = time in lp.m file to BEGIN reading
p6 0;
      < p7 = time in lp.m file to END reading;if neg. = index to f96 & f97
p7 nu -1/-2/-3;
   < p8 = number of harmonics for buzz: if negative = actual number of harmonics
p8 no b5;                    < if pos. = cps or pch of highest fundamental pitch
     < PITCH : p9 is a flag ; if p9 = 0, p10 = multiplier for original 
     < pitch from  ptrack analysis file; 
     < if p9 = 1, p10 is transposition (in semitones) of orig. pitch from ptrack
     < if p9 = 2, p10 = new pitch (cps or pch) & ptrack analysis is NOT USED
p9 0;
p10 0;                                    < pitch transposition or new pitch
     < Formant shifting : if p11 = 0 same transposition (if any) as p10
     < else p11 = multiplier for original formants
     < but if p9 = 2 and p11 = 0, no Formant_Shift
< OPTIONAL P-FIELDS:
p11                                      < multiplier for formant_shifting
p12                                      < fade-in time (0 ok)
p13                                      < fade-out time (0 ok)
     < p14 brightness: 0 = no change; range +1 (brightest) to -1 (least bright)
p14 0;
     < p15 modifies % noise ; if p15 = 0 default % noise signal
     < if p15 is positive, increasing % noise up to max. 1 (all noise)
     < if p15 -s negative, decreasing % noise down to minimum -1 (no noise)
p15 nu  .3*3/.8*3/1.*3;  < greater noise % for each group of 3
end;
