< COMMENT  simlar to example "celesta1" but with variable p11, some sustained
< COMMENT  notes
< Function needed:  100
* f100 0 1024 10 1.;
CELESTA 0 7; 
rd .008;   
<p11=flag for duration; if 0,dur.=p3; if 1  detached,short note;if2,pedal
p11 nu 2/1//0/2/1/0//2/1/0;
p3 rh 8*8/4///;
du nu 306*3/.7/306//.5/1./306//2;
p4 no a4/gs5/a/as/c6/b/fs7/cs8/fs4/e6/d3;                
p5 nu  12000;                         
p6 1. .015 .021;                          < c. .01-.04

p7 1.;                                    < Attack hardness                  
p8 1.;                                    < Brightness                          
p9 1. .07 .09;                             < % tremolo
p10 1. 4.2 4.5;                           < Tremolo rate
  p12       < a detuning p-field generally used only in chorused scores
end;    <<<<>>>>>>>>>>>>>
