< turn her into a chorus
< source soundfile : /sflib/voice/sop1.fs4.wav

    < 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 0 0 0 ;
* f1 0 8193 10 1;     < Sine Wave for Buzz

RESYN 0 0 15;
p3 1. .015 .04;
rd .008;
du 1. 306.5 306.7;
p4 nu 1;                          < lp.m number
p5 1. .4 .35;         < amplitude multiplier
      < p6 = time in lp.m file to BEGIN reading
p6 1. 0 1.5;           < vary the skip time
      < p7 = time in lp.m file to END reading;if neg. = index to f96 & f97
p7  .3 0 0  .7  5. 8.4;   < vary end time & thus speed of analysis reading
   < p8 = number of harmonics for buzz: if negative = actual number of harmonics
p8 1. -18 -10;               < 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 1;
p10 .5 .03 .12 .5 -.03 -.11;              < 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  .5 .96 .99 .5 1.005 1.03;          < multiplier for formant_shifting
p12  1. .5 .4;                           < fade-in time (0 ok)
p13  1. .85 1. ;                         < fade-out time (0 ok)
     < p14 brightness: 0 = no change; range +1 (brightest) to -1 (least bright)
p14 .5 -.05 -.3  .5 .05 .3;
     < 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 1. -.3 -.85;
end;
