< COMMENT  similar to example "celesta4," but expanded
< Function needed:  100
* f100 0 1024 10 1.;
te 44.;
CELESTA  0 0 20; 
rd  .006;                                              
<p11=flag for duration; if 0,dur.=p3; if 1  detached,short note;if2,pedal
p11 1;                                                  
p3 rh 64*8/700/64*3/690/64*6/32;
du 301.3;                                <if p11 = 1 use 302;if p11=2, use 306 
p4 no f2/gf3/b3/af4/df5/d6/bf2/b3/d6/af5/g/d4/f5/c6/fs5/b3/as4/a5/gs6/c8;
am .92;
p5  mx .25 8000 4500/1. 4500 5200 11000;
p6 1. .013 .023;                        <Attack time: c. .015 - .025
p7 mo .01 1.3/1.25 1.1 1.25 1.37;       < Attack hardness (1. ord,.7-1.4)  
p8 mx .01 1.3/1.25 1.25 1.1 1.35;       < Brightness(.9-1. ord,range .5-1.4)
p9  1. .07 .115;                        < % tremolo ( c. .05-.1)  
p10  1. 4. 5.8;                         < Tremolo rate (c. 4. - 5.5)
  p12       < a detuning p-field generally used only in chorused scores
end;    <<<>>>>>>
