<       { score template for plunk with added CHORUS definitions }
* f100 0 1024 10 1.;  < sine wave, the only required function

ampfac 1;  < default 1.can be changed to control overall chorused amplitude
	ifdef([DETUNE],,define(DETUNE,0))dnl  < 3 macros used for chorusing
	ifdef([START],,define(START,0.000))dnl
	define(CHORUSLOOP,[  
PLUNK  START
p3  
du  
  < p4 = pitch  (in pch  or  cps)
p4  
  < p5 = amplitude
p5  
  < p6 = attack time [normaaly <  .01 ]
p6  
  <  p7  is a flag for method : 0, 1  or 2
p7  
   < p8  = stretch or shrink factor  [ range = .01 - 1. ]
p8  
< p9 through 20 are OPTIONAL and can be left blank
  < p9 = brightness [ neutral default = 0 / usable range  -1.  to +1. ]
p9    
<p10 - p17 : tremolo or vibrato: p10 : 0 = no trem. or vib.; 1 = trem; 2 = vib
p10  
  < p11 = 1st tremolo or vibrato rate [ normal range = 3. - 6. ]
p11   
  < p12 = 2nd tremolo or vibrato rate [ normal range = 3. - 6. ]
p12   
  < p13 = tremolo or vibrato fade-in time
p13   
  < p14 = 1st depth [normal ranges: trem (.2-.6) ; vib (.1-.2)  ]
p14   
  < p15 = 2nd depth [normal ranges: trem (.2-.6) ; vib (.1-.2)  ]
p15   
  < p16 = random deviation % (.05-.2 ord)
p16    
 < p17 = random deviation rate (2.-5. ord)
p17    
< p18 - p20 optional gliss : if p18 is 0, or same as p4, no gliss
    < p18 = 2nd note - cps or pch
p18  
     < p19 = diration of p4 : if > 100 (p19-100)*p3
p19 
     < p20 = gliss duration : if > 100 (p20-100)*p3
p20 
p21  DETUNE;  < applies detuning to chorused notes
  < stereo output only :p22 = pan location {1. = hard left, 0 = hard right}
p22
