COMMENT A violin line is folowed by a gong with fade-in & fade-out
COMMENT Amplitude envelopes of the input soundfiles are altered {p14-p16}

* f20 0 524288 -1 "/sflib/perc/gong.bf2.wav" 0 0 0 ; < 11.539864 sec
< **** VLN ARCO ORD. function tables ******
* f1 0 262144 -1 "/sflib/string/vln.g3.wav" 0 0 0 ; < 3.831 sec,168980 samps 
* f2 0 262144 -1 "/sflib/string/vln.b3.wav" 0 0 0 ; < 3.615 sec,159444 samps 
* f3 0 262144 -1 "/sflib/string/vln.ds4.wav" 0 0 0 ; < 3.634 sec,160266 samps 
* f4 0 262144 -1 "/sflib/string/vln.g4.wav" 0 0 0 ; < 3.831 sec,168980 samps 
* f5 0 262144 -1 "/sflib/string/vln.b4.wav" 0 0 0 ; < 3.343 sec,147456 samps 
* f6 0 131072 -1 "/sflib/string/vln.ds5.wav" 0 0 0 ; < 2.879 sec,126976 samps 
* f7 0 262144 -1 "/sflib/string/vln.g5.wav" 0 0 0 ; < 3.680 sec,162314 samps 
* f8 0 131072 -1 "/sflib/string/vln.b5.wav" 0 0 0 ; < 2.879 sec,126976 samps 
* f9 0 131072 -1 "/sflib/string/vln.ds6.wav" 0 0 0 ; < 2.925 sec,129024 samps 
* f10 0 131072 -1 "/sflib/string/vln.g6.wav" 0 0 0 ; < 2.937 sec,129546 samps 
* f11 0 262144 -1 "/sflib/string/vln.c7.wav" 0 0 0 ; < 3.367 sec,148500 samps 
  
 <; f99 = input soundfile function numbers & split points {in MIDI note numbers}
*f99 0 128 -17 0 1 57 2 61 3 65 4 69 5 73 6 77 7 81 8 85 9 89 10 93 11;
 <; f98 = base pitches of input soundfiles {expressed in MIDI note numbers}
*f98 0  16  -2 0 55 59 63 67 71 75 79 83 87 91 96 ;< midi notes of samples
<  -------------End of VLN Arco Ord. functions ---------
<   Score file for Library algorithm  ### samp ###
* f100 0 1024 10 1.;      < SINE WAVE for vibrato
* f50 0 65 7 0 64 1.;           < linear 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
* f60 0 65 5 .01 64 1.;         < exponential change from value 1 to value 2
* f62 0 65 5 .01 32 1. 32 .01;  < expo. change from value 1 to value 2 to val 1
*f57 0 64 7 0 31 0 1 1. 31 1. 1 0 ; < square wave for trill
         < f58 creates 3 note trill {above & below center pitch}
*f58 0 64 7 0 21 0 1 1. 20 1. 1 -1 20 -1 1 0 ; 

ifdef([DETUNE],,define([DETUNE],0))dnl
ifdef([START],,define([START],0.000))dnl
ampfac 1;
define(CHORUSLOOP,[

te  x 2. 66 80/ .7 80 60;

SAMP  START  5.; < 5 beats, 14 notes
rd  mo .2 0 .015/5. .015;  
p3  rh 16// -16/16/ (4 = 8 * 5)/ 12// -24 /24,4 / 4;
du mo 2.7  1.2 1.1 1.15 / 1.3 303.6/ 1. 305.;
   < p4 = output PITCH : (1) 1. - 13. = pch {notes} ;
   <  (2)  14 - 127 =  MIDI note  number ;  (3) negative = cps {herz}
p4  no ef3/ a4//  af3/ d4 / g / fs5 / c / b / f5 / e6 // b6 / e2;  
   < p5= AMPLITUDE : (1) .001 - 10 = multplier for input soundfile amplitude
   <   (2) 11 - 32767  new integer amplitude value : Default = 1.
p5 mx 2.5 12000 19000 29000/ 1.5 12000/ 1. 7000;
   < p6 = detuning : 1. = 1/2 step up, -1. = 1/2 step down : Default = 0
p6  DETUNE;  
  < ------ INPUT SOUNDFILE function number {p7} & pitch {p8}  ------------
  < If p7 & p8 left blank, these values derived from function tables 99 & 98
p7  nu 0 * 13 / 20 ; < use gong for last note 
   < p8 = base PITCH of soundfile : (1) 1. - 13. = pch {notes} ;
   <  (2)  14 - 127 =  MIDI note  number ;  (3) negative = cps {herz}
p8  no bf2; < input pitch of gong  
 < p9 { optional} =  duration of input soundfile to be used 
 < Default  = entire soundfile  ; has no effect if looping used {if p10 != 0}
p9 


< ------Sustain LOOPING  {p10 - 11} : ---------------------------------
  < p10 = loop mode: 0 = no looping, 1 = forward, 2 = forward & backward
p10    
  < p11 = loop begin point, in samples
p11    
  < p12 = loop end point, in samples
p12    

  < p13 = spatial placement for mono in, stereo out {nchnls = 2}
  < 0 = hard left, 1. = hard right
  < flag : options : 
  <  -1 : the lower the pitch, the further the placement to the left
  <  -2 : the lower the pitch, the further the placement to the right
  <  -3 : random initial placement followed by random moving pan
  <  -4 : random initial placement followed by quasi-periodic  moving pan
  < -5  : no action taken : user supplies own stereo processing of mono signal a1
p13      

  < ------- NEW AMPLITUDE ENVELOPE {p14 - p16} {optional} ------------
  <  if p14 + p15 = 0, no new envelope created
  < p14 = rise time { > 100 , or negative, = % p3} : Default = 0
p14  nu 0 * 13 / .7;   < fade-in for gong
   < p15 = decay time { > 100 , or negative, = % p3} : Default = .04
p15  mo 2.7  -.3 -.2 -.2/ 1.4 -.3; < fade-out times between 20 & 30 % of durs
  < p16 = optional "atss" amplitude multiplier for end of note : Default = 1.
  < normal range = ca. .1 - .9 {diminuendo} or 1.1 - 2. {crescendo}
p16  mx 2.7 .6 .9 1.1 1.3/ 1.2  .06 / 1. .3;    

   < ----- BRIGHTNESS {p17-p20}  {optional} --------------------
 < p17 = opening brightness: Range = .001 {mellowest} - 2.{brightest} : Def. = 1.
p17   mx 2.7 .9 1.1 1.9/ 1.2  .8 / 1. .8;
   < p18 = closing brightness { same range as p17; Default  = p17 }
p18  nu 0 * 13/ .05;   
   < p19 = time between p17 & p18: 0 = p3, > 100 or negative = % p3 : Def. = p3
p19     nu 0 * 12 / -.1 / -.2;
 < p20 = optional center freq. for filters : pch or cps : Default = p4 pitch
p20     
  <  Added user p-fields: 
end;  <<< End of ### samp ### score >>>
])dnl
CHORUSLOOP
