<       { score template for trpt with added CHORUS definitions }
< Functions needed: 50 51 52 54 100
* f50 0 65 7 0 64 1.;                   < linear up
* f51 0 65 7 1. 64 0;                   < linear down
* f52 0 65 7 0 32 1. 32 0;              < linear pyramid: up-down
* f54 0 65 9 .25 1 0;		      < rise (1st quarter of sine wave)
* f100 0 1024 10 1.;			< sine wave


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,[  
TRPT START
p3
du 
  < p4 = pitch (in pch  or cps)
p4  
  < p5 = amplitude
p5   
  < p6 = attack time [normal range: .02 - .12]
p6   
  <  p7 = decay time 
p7   
  < p8 = atss amplitude value [normal range .2 - 1.5 ]
p8  
  < OPTIONAL p-fields : p9 through p21
  < p9 = brightness [ default = 1.  ; normal range .6 - 1.4]
p9   
  < p10 = attack hardness [ default = 1. ; normal range .6 - 1.3]
p10  
  < p11 - p14 determine vibrato ; p11 = vibrato width [normal range .2 - .3]
p11  
  < p12 = 1st vibrato rate, p13 = 2nd vibrato rate [normal ranges: 4. - 6.]
p12  
p13 
 < p14 = function number for vib. rate change [default = 50; 52 also common ]
p14
p15  DETUNE;  < applies detuning to chorused notes
< Presets
p16 .65 -.007 -.003 .35 .002 .006;     < intonation value                    
p17 1. .01 .15;         <pitch intonation& reseed for rand generators        

 < p18 = flag for mutes : 0=open,1=straight,2=cup,3=harmon           
p18 
< Optional dynamics envelope; (if not used,leave p19 0,delete p20 & p21)
p19           < duration 1(% p3)
p20           < middle value (.2-1.8)
p21           < end value
  < stereo output only :p22 = pan location {1. = hard left, 0 = hard right}
p22
