< an elementary granular synthesis example
< the p4 soundin.# numbers are:
< 8 = sflib/voice/sop1.ds4
< 10 = sflib/wind/bfl.df3 (bass flute)
< 11 = sflib/wind/fl.c4  (flute on middle c)
< 12 = ssflib/string/vln.g3
<   Score file for Library algorithm  ### sf ###
 <  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
SF 0 7;       < mono input, default mono output
p3 mx 3. .01 .03 .01 .03/4. .01 .03 .1; 
du  2.;
     < p4 = soundin.#, or, if negative, index to function tables 98 & 99
p4 nu 10/8/11/12;
  < OPTIONAL p-fields (p5 - p8): p5 = amplitude multiplier
am .8;
p5 mx 3. .1 .9 / 4. .9 .1;     < bass flute
 mx 3. .1 .9 / 4. .9 .1;      < soprano
 mx 3. .2 .99 / 4. .99 .2;      <  boost flute
 mx 3. .04 .4 / 4. .4 .04; < mix in the violin at lower level    
  < p6 = duration skipped from front of soundfile
p6 mo 7. .001 3.; 
  <  p7 = fade-in time : if negative or between 100.0 & 101. = % p3
p7 1. -.3 -.4;
  <  p8 = fade-out time : if negative or between 100.0 & 101. = % p3
p8   1. -.3 -.4;
  <  Added user p-fields: 
end;  <<< End of ### sf ### score >>>
