    < score template for cbsn with added CHORUS definitions
* f100 0 1024 10 1.;			< SINE WAVE
* 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
* f53 0 65 7 1. 32 0 32 1.;             < inverted linear pyramid: down-up
* f60 0 65 5 .01 64 1.;	                <exponential up      
* f61 0 65 5 1. 64 .01;	                <exponential down
* f62 0 65 5 .01 32 1. 32 .01;          <exponential pyramid: up-down)
* f70 0 32 -2 15 12 13 -5 -4 -7 -10 -11 3 -10 -11 0 -4 5 8 10 11 14 8 5 7 10
              4 0 10 12 11 9 12 13 14 11 ; < detuning
< Functions needed: 50  52 60 100 70 
ampfac 1;           < this line generally used only for chorusing
	ifdef([DETUNE],,define(DETUNE,0))dnl  < these 3 lines used for chorusing
	ifdef([START],,define(START,0.000))dnl
	define(CHORUSLOOP,[  

CBSN  START
rd
p3 rh 
  < p4 = pitch  (pch or cps)
du 
p4 no 
  < p5 = amplitude
p5  
  < p6 = attack time ( normal range .06 - .1)
p6 
  < p7 = decay time (normally c. .2 - .4)
p7  
  < OPTIONAL p-fields : p8 - p15
 < p8 = atss value {default = .8/normal range .6 -.9/ can be > 1. for crescendos}
p8  
p9 DETUNE;   < applies chorus detuning to echos
  < p10 = attack hardness (default neutral value = 1./ range = c. .8 - c. 1.4)
p10  
  < p11 = vibrato width (normal range .2 - .32 , the default 0 = no vibrato)
p11   
  < p12 = 1st vibrato rate (normal range 3.5 - 6.)
p12  
  < p13 = 2nd vibrato rate (normal range 3.5 - 6.)
p13   
  < p14 = function for change between p12 & 013 , default = 50
p14  
  < p15 = brightness {default neutral value = 1./ normal range .8 - 1.4}
p15  

< Presets: p16-p17 ; to get rid of intonational detuning make p17 "0" 
p16 .45 .2 .5 .55 -.3 -.6; 
p17 1. .1 .99;    <reseeds random number generators
p18      < flag: 0=contrabasson;1 = bsn
  < stereo output only :p19 = pan location {1. = hard left, 0 = hard right}
p19
