COMMENT For this example score, use library  instrument file sfdelays
COMMENT with mono output, like this:
COMMENT mko sfdelays
< input soundfile is "voicetest.wav "
< delay time, % sent through delay line and feedback % all begin with
< low values, increase to high values, then decrease to the original low values
SF 0 0 1;                     < mono input, mono output
p3 7.46;                                                  
du 1;                                                                     
p4 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.
* f50 0 65 7 0 64 1.;                   < line up
* f52 0 65 7 0 32 1. 32 0;              < line pyramid: up,down
<* 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 1; 
p3 8.;                                                                    
p4 .01;                  < 1st delay time
p5 .6;                    < 2nd delay time
p6 0;                   <osc. rate of change btw p4&5;0=1/p3;>100=(p8-100)/p3
p7 55;                  < function # for change  {default function 52 is used }
p8 0;                   < 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 .85 ;                  < 2nd % to delay unit  "    "    "    "           
p12 0;                   <rate of change btw p10 & p11;0=1/p3;>100=(p8-100)/p3
p13             < function # for change    {default function 52 is used}
p14                      < random deviation % (c. .01-.25 ord.)
p15                      < r.d. rate (c. 1.-5. ord)                      
< p16-p21 control feedback
p16 .05;                 < 1st feedback % (.01-.9)                          
p17 .75;                < 2nd "   "  "                                    
p18 0;                 <rate of change btw p16 & p17;if 0=1/p3;>100=(p11-100)/p3
p19 52;                 < function for change
p20 .08;                 < % random deviation(.1-.15 ord)                    
p21 3.5;                < r.d. rate                                      
< p22 used as flag field for stereo instruments only
p22                 < 0 = echos on same channel;1 = ping-pong echos
end;    <<<>>>>>>
