< chorused version of sample score bsn1 to simulate "doubling" (2 players)
  < Input arguments to chorus :
  < -r bsn1 2 0 .065 .08 .13 
    < Player number 1 : Starting time = 0, detuning = 1. .08 .13 
 define([START],[0])dnl 
 define([DETUNE],[1. .08 .13 ])dnl 
< Library score example: bsn1
COMMENT  **** bsn1 (bassoon sample score) ****           
* 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 liner 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
ampfac .8; < amplitude of original bsn1 score reduced here to avoid clipping
	ifdef([DETUNE],,define([DETUNE],0))dnl
	ifdef([START],,define([START],0.000))dnl
	define(CHORUSLOOP,[

te 50;
BSN START 9;
rd .009;
p3 rh 2/4/8//4//2.;
du mo 7 1.1 1.05 1.07/2 1.;
p4 no c4/g/f3/ef/df/g2/af1;                    < not very good above g4
p5 mo 3.5 12000 15000/5.5 16000 12000;
p6 nu .08/.06/.045/.055/.075/.08/.095;         <rise time(.06-7 ord)
p7 nu .7/.25/.15/.25/.5/.55/.8;                <decay time (c. .2)
p8 1. .75 .9;          		               < atss 
p9   DETUNE;
p10 1. .95 1.05;                               <attack hardness (.8-1.4)
< OPTIONAL p-fields:
p11 1. .28 .32;                         <vib. width(1. .28 .31)
p12 1. 4.4 5.1; 			<1st vib. rate(c. 5.)
p13 1. 5.3 6.2;          		<2nd rate(c. 6.)
p14 .5 52 52 .3 51 51 .2 50 50; 	<vib. rate change  func.
p15 1. .96 1.04;                        < brightness(.8-1.4)

< Presets: p16-p17 ; but to get rid of detuning,make p17 1. 100.1 100.99;
p16 .45 .2 .5 .55 -.3 -.6;           <small rand. value added to index & inton.
p17 mo 2 .1 .9/1 0/6 .1 .99 .1;                    < NO DETUNING FOR 2ND NOTE(0)
< Optional additional parameters
end;  <<>>>>>>>>>>>>>>>
])dnl
	CHORUSLOOP
    < Player number 2 : Starting time = .065, detuning =  1. - .08 - .13  
 define([START],[.065])dnl 
 define([DETUNE],[ 1. - .08 - .13  ])dnl 
CHORUSLOOP
