<       { score template for fm 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,[  

instr fmod START
p3  
du    
  < p4 = pitch (pch  or  cps)
p4  
< amplitude envelope
  < p5 = amplitude
p5  
  < p6 = attack time
p6  
  < p7 = decay time
p7  
  < p8  = amplitude atss value (* p5 or, if > 10., absolute value)
p8  
< F.M. values : p9-p13
  < p9 = modulating frequency (*p4 or fixed if > 9.99)
p9  
  < p10 = FM index at very beginning of attack
p10  
  < p11 = index after p6
p11  
  < p12 =  index at beginning of decay (p7)
p12  
<  p13 = attack hardness [ neutral default value = 1./normal; range .01 - 3.5 ]
p13  
p14  DETUNE;  < applies detuning to chorused notes
  < stereo output only :p15 = pan location {1. = hard left, 0 = hard right}
p15
