COMMENT For this example score, use library  instrument file sfdelays
COMMENT with mono output, like this:
COMMENT mko sfdelays
< changing delay time, with no feedback creates doppler shifts
< input soundfile is "voicetest.wav"
SF 0 0 2;                      < mono input, default mono output
p3 9.;
du 307.46;
p4 1; < positive, so it specifies "soundin.1) < soundin.#
p5 1;                           < ampfac
p6                              < duration skipped from front of sf
p7                              < fade in time
p8                              < fade out time
end;
< Library score file: delays
< Functions are needed for p7, p13 & p19 ; the functions below (especially
< f52 and f 62) are most common. Remove the comments to use.
* f52 0 65 7 0 32 1. 32 0;              < line pyramid: up,down
<* f50 0 65 7 0 64 1.;                   < line up
* f60 0 65 5 .01 64 1.;	               <expo. up      
* f62 0 65 5 .01 32 1. 32 .01;         <expo. pyramid (up,down)
<* f54 0 65 9 .25 1 0;	< rise (1st quarter of sine wave)
<* f55 0 65 9 .5 1 0;	< rise & fall (1st half of sine wave)

DELAYS 0 0 2; 
p3 9.0;
du nu 308.8/310.;
p4 nu .001/2.;        < 1st delay time
p5 nu 2.0/.1;         < 2nd delay time
p6 0;                 <osc. rate of change btw p4&5;0=1/p3;>100=(p8-100)/p3
p7 nu 60/62;          < function # for change
p8                    < random deviation % (c. .05-.25)
p9                    < r.d. rate (c. 1.-5. ord.)
< p10-p15 control & of signal sent to delay units
p10 1.;               < 1st % to delay unit(.01-.9,.45-.7 ord.)
p11 1.;               < 2nd % to delay unit  "    "    "    "           
p12                   <rate of change btw p10 & p11;0=1/p3;>100=(p8-100)/p3
p13                   < function # for change
p14                   < random deviation % (c. .01-.25 ord.)
p15                   < r.d. rate (c. 1.-5. ord)
< p16-p21 control feedback
p16                   < 1st feedback % (.01-.9)                          
p17                   < 2nd "   "  "     
p18                   <rate of change btw p16 & p17;if 0=1/p3;>100=(p11-100)/p3
p19                   < function for change
p20                   < % random deviation(.1-.15 ord)
p21                   < r.d. rate 
< p22 used as flag field for stereo instruments only
p22                 < 0 = echos on same channel;1 = ping-pong echos
end;    <<<>>>>>>
