<       { score template for drums with added CHORUS definitions }
< Functions Needed: 100 (sine wave); linear functions (50-53); drumfuncs (31-33)
<    optional: exponential funcs(60-62), and/or functions 55 & 56, which
<     can be used in addition to or in place of the linear control functions
* f100 0 1024 10 1.;			< SINE WAVE
* f31 0 8 7 -1 6 1 2 -1;		<in between triangle & sawtooth
* f32 0 64 10 1. 0 .33 .1 .2 .11 .14 .07 .09; < most common drum function
* f33 0 64 7 1. 16 1. 0 -1. 32 -1. 0 1. 16 1.   ;<square wave,straight sides
<funcs. 50-69 control shapes :
< comment out unneeded functions; remove comments from needed functions
* 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
< * f54 0 65 9 .25 1 0;		        < rise (1st quarter of sine wave)
< * f55 0 65 9 .25 1 90;	        < fall (1st quarter of cosine)
< * f56 0 65 9 .5 1 0;		        < rise & fall (1st half of sine wave)
* 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;        < expo. pyramid (up,down)

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,[  

DRUMS START 
rd
p3 
  < duty factor: 520 ord: range 480-580 or so
du 
  < p4 = pitch: can be given in cps or in pch (notes)
p4  
 < p5 = amplitude
p5  
< Attack  p6-p8
  < p6 = attack time  [normal  range = .001 - .05 ]
p6  
< OPTIONAL p-fields (p8 - p20)
  < p7 = attack hardness: [ neutral default value = 1./ normal range = .8 - 1.4 ]
p7  
  <p8 = % attack noise: [default = .33 / normal range = 0 -.45 ]
p8  
< FM p9 & p10
  < p9 = modulation index: [ default = 1.2 / normal range .5 - 3. ]
p9  
  < c:m ratio [ default = 1.41 / normal range 1.1 - 1.9 ]
p10 
< p11 = waveshape function number for modulating oscillators 
  < default =  32,  100 & 31 hollower,  33 is the brightest & buzziest
p11    
  < p12 = Brightness: neutral default value = 1. /normal range:.7-1.4
p12  
 < p13 = function number for "pan" btw high & low sidebands, deafult = 52 )
p13  

< Tremolo : p14-p16
  < p14 = % tremolo  [normal range 0 - .3 ]
p14  
  < p15 = tremolo rate  [normal range 4. -  9. ]
p15  
  < p16 = function for change in tremolo rate  default = 52]
p16  
< Pitch bend : p17-p19
   < p17 = pitch bend  [<.08 barely audible,.15 = gliss]
p17  
  <p18 = function number for pitch bend [60 {default}  or 50]
p18  
   < p19 = pitch bend time delay(% p3) {normal range .12 -.2}
p19  
p20  DETUNE;  < applies detuning to chorused notes
  < stereo output only :p21 = pan location {1. = hard left, 0 = hard right}
p21
