<       { score template for MARIMBA with added CHORUS definitions }
* 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,[  

instr marimba  START
rd  
p3 
 < duty factor: 302 ord; less for rolled tremolos & for rapid passages
du 
 < p4 = pitch : if > 13. = cps, else pch
p4 no 
 < p5 = amplitude
p5 
   < Optional p-fields p6 - p9 :
 < p6 = Attack time: normal range .01 -.04 / default = .025
p6 
 < p7 = Attack hardness {neutral default value = 1./normal range  .7 - 1.6 }
p7 
 < p8 = Brightness: { neutral default value = 1./normal range .25 - 2.0 }
p8 
 < p9 = detuning, generally used only for chorusing
p9 DETUNE ;
  < stereo output only :p10 = pan location {1. = hard left, 0 = hard right}
p10
