 <  Illustrates use of random deviation procedures to create most parameter
 <  values, including random spatial placement.

*f1 0 524288 -1 "/sflib/x/voicetest.wav" 0 0 0;  

instr gran 0 12;   < read in soundfile grains for 12 beats {12 seconds}
p3  1. .02 .04;
  < duty factor:  determines overlap of grains
  < normal range is between 100.02 and 100.2 {producing .02-.2 second overlaps}
du   1. 5. 10.; < between 5 & 10 grains sounding at once
   < p4 cross-fade time for both fade-in & fade-out ;
   <   p4  normally = c. 1/2 duty factor fraction { 1/2 the grain overlap time}
p4  1. .02 .1;  < wide range of cross-fade times

   < p5 = output amplitude : raw amp {10.1-32767} or multiplier {.001 - 10.}
       < default 0 = same amplitude as input soundfile
  < very wide range of amplitudes for individual grains
am 1.2;
p5  mx .5 1000 25000/ 8.5 25000 2000 25000 2000/ 3. 25000 2000 400;

   < p6 = gen1 function number
p6  1;     < gen1 function for "voicetest"
   < p7 = length of soundfile to be used, in seconds {duration} OR # of samples
p7  7.269;   < duration of "voicetest" 

   < p8 = skip time into gen1 func : if positive p8  = skip time in seconds
      < if negative {between -.001 and -.999}, p8 = % of soundfile skipped
p8  1. .01 6.8; < random skip times : each grain can begin anywhere in the
                < source soundfile

   < p9 = pitch multiplier {default 0 = no pitch change}
p9  mo 12. 1.06 .94  .5  2.;  < random pitch shifting, but the range of
     < transpositions increase from an interval of a major 2nd to 2 octaves

   < for stereo output only p10 = pan location {1. = hard left, 0 = hard right}
p10 .5 .99 .51  .5 .49 .01 ; < random stereo placement of grains
  <  Added user p-fields: 
end;  <<< End of ### granvoice3 ### example score >>>
