   < The audio input is soundfile example sf3
  < Orchestra file for this score :
  < SETUP(44100,2205,2)
  < GLOBALS
  < SFS([garevin1 = garevin1 + a1
  < garevin2 = garevin2 + a2
  < ])
  < REV

<   Score file for Library algorithm  ### sfs ###
 <  optional functions if tables used: f98 = table of soundin. numbers,
 < f99 = table of durations ; to use, remove comments, edit & complete
< *f98 0 size -2 soundin.numbers
< *f99 0 size -2 durations
SFS  0 0 1;                   < stereo input and output
p3 14.96;
du  1.;
     < p4 = soundin.#, or, if negative, index to function tables 98 & 99
p4  19;  < soundin.19 points to sflib/x soundfile sf3.wav
  < OPTIONAL p-fileds (p5 - p8): p5 = amplitude multiplier
p5    .8; < reduce amp of this hot soundfile to minimize reverb grunge
  < 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   
  <  Added user p-fields: 
end;  <<< End of ### sfs ### score >>>

< Library score file: rev
 * f50 0 65 7 0 64 1.;           < linear change from value 1 to value 2
 * f60 0 65 5 .01 64 1.;         < exponential change from value 1 to value 2
 * f52 0 65 7 0 32 1. 32 0;      < linear change from value 1 to val 2 to val 1
 * f62 0 65 5 .01 32 1. 32 .01;  < expo. change from value 1 to value 2 to val 1

REV 0 0 1;                                                       
p3 15.;
< Variable reverb time begins at .9 seconds & diminishes to .05 seconds
p4 .9;               < 1st rev. time
p5  .05;            < 2nd rev. time
<p6 = rate of change; 0=1/p3; >100=(val-100)/p3; neg.=actual dur. in seconds
p6 
p7 50;               < function number for change
p8                   < starting phase
< % of direct & reverb signal begins at 65 % & diminishes to 5 % at end
p9 .65;              < 1st decimal % to reverb (.1 - .6 ord,)
p10 .05;             < 2nd "    "    "    "
<p11 = rate of change; 0=1/p3; >100=(val-100)/p3; neg.=actual dur. in seconds
p11                     
p12 50;               < function number for change
p13                   < starting phase
end;
<>>>>>>>>>>
