< fixed delay time (85 milliseconds); % of signal sent through delay line varies
<  between 33 % (beginning and end) and 80 % (middle)
< feedback % varies between 40 % (beginning and end) and 90 % (middle)
< the echos pingo-pong (alternate) between the 2 output channels

< The front end sf1to2 score, which reads in soundfiles, is identical to
< example score "sf5". However, the orchestra file is modified as follows, so
< that instrument sf1to2 passes its stereo outputs to a global delays instrument
    < Orchestra file for this score:
    < SETUP(44100,2205,2)
    < GLOBALS
    < SF1TO2([gadelin1 = gadelin1 + (p9*a1)
    < gadelin2 = gadelin2 + ((1. - p9) * a1)
    < ])
    < DELAYS

 <  optional functions if tables used: f98 = table of soundin. numbers,
 < f99 = table of durations ; to use, remove comments, edit & complete
< input soundfiles are 6 pizzicato tones, a timbale & a tom tom
< soundin.# numbers used in f99 and f98 
< 14 = cb.p.gs1   7 = vc.p.e2  15 = vc.p.c3   16 = vln.p.g4
< 17 = vln.p.b3  18 = vln.p.ds5    2 = timb1   3 = tom2
 *f98 0 8 -2 14 7 15 16 17 18 2 3;
 *f99 0 8 -2 1.6 2.3  2.28  .55  .4  .27  .57  .28;

SF1TO2 0 9.1;                   < mono input, stereo out
rs 444; < this reseed value works to my liking
p3 mx 5. .6 .2 .08 .2/4. .088 .2 .3 .6;                   
rr .1;  < delete 10 % of the notes
 < dummy duration, slightly longer than the dur. of the longest input soundfile
du  302.3;
     < p4 = soundin.#, or, if negative, index to function tables 98 & 99
 < read in the input soundfiles in random order
p4 se 9. 0 -1 -2 -3 -4 -5 -6 -7; 
am 1.3;
p5 mx 5. .05 .2 .8 .25/4. .8 .25 .08;     < ampfac
  < p6 = duration skipped from front of soundfile
p6  
  <  p7 = fade-in time : if negative or between 100.0 & 101. = % p3
p7   
  <  p8 = fade-out time : if negative or between 100.0 & 101. = % p3
p8   
p9 1. .05 .95;      < random spatial placement
  <  Added user p-fields: 
end;  <<< End of ### sf1to2 ### score >>>
< 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 11.4;   <  slightly longer than the total duration of the input soundfiles
p4 .085;        < 1st delay time  Fixed delays time of 85 milliseconds
p5 .085;         < 2nd delay time
p6            < osc. rate of change btw p4&5;0=1/p3;>100=(p8-100)/p3
p7              < 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                         
 < % of signal delayed moves from 33 % to 80 % back to 33 %
p10 .33;       < 1st % to delay unit(.01-.9,.45-.7 ord.)        
p11 .8;        < 2nd % to delay unit  "    "    "    "           
p12 101;        <rate of change btw p10 & p11;0=1/p3;>100=(p8-100)/p3
p13 52;         < function # for change                            
p14 .12;        < random deviation % (c. .01-.25 ord.)
p15 3.;         < r.d. rate (c. 1.-5. ord)                      
< p16-p21 control feedback
 < % of feedback moves exponentially from 40 % to 90 % back to 40 %
p16 .4;        < 1st feedback % (.01-.9)                          
p17 .9;         < 2nd "   "  "                                    
p18 101;        <rate of change btw p16 & p17;if 0=1/p3;>100=(p11-100)/p3
p19 62;         < function for change
p20 .16;        < % random deviation(.1-.15 ord)                    
p21 4.;         < r.d. rate                                      
< p22 used as flag field for stereo instruments only
p22  1;         < 0 = echos on same channel;1 = ping-pong echos
end;    <<<>>>>>>
