<       { score template for celesta with added CHORUS definitions }
* f100 0 256 10 1 ;  < sine wave, the only function needed

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

CELESTA START
rd  
<p11 = flag for duration: if 0,dur.=p3, if 1  detached,short note,  if 2, pedal
p11 
p3  
<<  duty factor: <if p11 = 1 use 302,  if p11=2, use 306 
du      
  < p4 = pitch {can be given in pch or cps/ very dull below a3}
p4 no  
  < p5 = amplitude
p5  
  < p6 = attack time  (normal range = ca. .015 - .03)
p6  
 < Optional p-fields {p7 - p12 }
  < p7 = attack hardness ( neutral default value = 1./normal range = .7 - 1.4)
p7  
  < p8 = brightness (default = 1. /  normal range .5 - 1.4)
p8  
  < p9 = % tremolo (normal range .05 - .2 , default 0 = no tremolo)
p9  
  < p10 = tremolo rate (normal range = ca. 4. - 6.)
p10  
p12  DETUNE;  < applies chorus detuning
  < stereo output only :p13 = pan location {1. = hard left, 0 = hard right}
p13
