   < the orchestra file used with this score looks like this:
      < SETUP(44100,4410,1)
      < GLOBALS
      < TRPT([GXSYNIN])
      < GXSYN
< 2 lpc analysis files from /sflb/anal/lpc are used :
 < (1) sdrum1.broll.lpc {snare drum roll} (2) maracaroll.lpc {maraca roll}
<  driver: chords created by Library instrument "trpt"

< 2 output score events :
< "note 1": the driver is a 13th chord
   <  cross-synthesis: the analysis file is of a snare drum brush roll,
   <  read at 1/2 the original speed , & the formants are shifted down
   <  a perfect fourth {PAR4 & PAR5}; small amount of white noise is added
< "note 2": the driver is a quarter-tone cluster 
   < the lpc analysis file of the maracaroll is read at double the original
   < speed, and backwards; the formants are shifted up a perfect 4th (PAR 6}
   < timbral  brightness is increased {PAR7}
< Functions needed: 50 51 52 54 100
* 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
* f54 0 65 9 .25 1 0;		        < rise (1st quarter of sine wave)
* f100 0 1024 10 1.;			< SINE WAVE

TRPT 0 0 14;
p3 nu .001*6/ 3.5/ .001*8;
du nu 303.26*7/  301.63*7;
p4 no f4/ a/ c5 / e / g / b / ds6 ;                 < 13th chord
   nu 9.015/ 9.02/ 9.025/ 9.03/ 9.035/ 9.04/ 9.045; < 1/4 tone cluster
p5 nu 1500*7/ 2200*7;        < amplitude
p6 1. .03 .07;  < rise time, c. .02-.08
p7 .05;         < decay time
p8 1;           < atss (c. .8-.9 ord.)

p9  1.2;         < brightness (.6-1.3)
p10 1.;          < attack hardness(.6-1.3)
p11 1. .2 .23;   < vib. width (c. .21,ord)
p12 1.  3.5 6.;  < 1st vib. rate (c. 4. - 6.)
p13 1. 3. 4.5;   < 2nd rate(c. 4. - 6.)
p14 50;  < func. number for vib. rate change (usually 50 or 52)
< Presets
p15               < detuning p-field
p16 .65 -.007 -.003 .35 .002 .006;     < intonation value                    
p17 1. .01 .15;         <pitch intonation& reseed for rand generators
< note: mutes would make little difference here, due to the lpc filtering
p18              < Flag: 0=open,1=straight,2=cup,3=harmon           
< Optional dynamics envelope; (if not used,leave p19 0,delete p20 & p21)
p19      < duration 1(% p3)
p20      < middle value (.2-1.8)
p21      < end value
< User-added parameters:
end;   <<<<end of score>>>>>>>>>>>>>

< Library score file: gxsyn
< gxsyn : global instrument for linear-predictor cross synthesis processing
define([NEWPAR],4)dnl COMMENT PAR1 (first unused p-field) for gxsyn
include(CSLIBDIR/Include/pfields.h)

    < functions 96 & 97 are optional, if tables are used for begin & end times
    < f96 specifies times to begin reading lp.m; start with 2nd location
    < f97 specifies times to end reading lp.m ; start with 2nd location
< *f96 0 size -2 0 
< *f97 0 size -2 0 

instr gxsyn  0 0 2;
p3 3.6;
du  nu 303.21/301.63;
PAR1 nu 7/ 3; < lp.7 = sdrum1.broll, lp.3 = maracaroll   < lp.# number
  < PAR2 = time in orig. soundfile to BEGIN reading
PAR2 nu 0 / 3.2; 
  < PAR3 = time in orig. soundfile to END reading;if neg. = index to f96 & f97
PAR3 nu 1.63 / .001; 
<OPTIONAL PARAMETERS :PAR4 through PAR13 (any of these fields can be left blank)
    < PAR4 & PAR5 : TRANSPOSITION of FORMANTS; if PAR4 = 0 no change
    < if PAR4 = 1, PAR5 = multiplier ; if PAR4 = 2, PAR6 = semitone 
    < (integer portion) and/or microtonal (fractrional portion) transposition
PAR4 nu 2/2;             < Flag : 0,1 or 2
PAR5 nu -5/ 5.;            < formant multiplier or transposition
    < BRIGHTNESS : PAR6 & PAR7  ; if PAR6 = 0 no change
    < if PAR6 = 1, ptrack pitch used for filter center freq.;
    <  any other PAR6 value = new filter center freq. in cps or pch
PAR6 nu 0/600;
  < PAR7 :  brightness modifier: range -1. (least bright) to +1. (brightest)
PAR7 nu 0/.7;           
    < PAR8 : Add White noise : if PAR8 = 0, no noise added; if positive
    < between .001 & 1., specifies constant noise % added; if negative
    < (e.g. -.01), specifies MINIMUM % noise added
PAR8  -.01;
< Amplitude : PAR9 through PAR12
    <  Envelope: if PAR12 = 0, lp.m file envelope used ;if PAR12 = -1,
    < internal mix of lp.m file & driver envelopes ; if PAR12 is between .001
    < and +1., a mix of the driver & lp.mfile envelopes is done, with PAR12
    < specifying the % of driver envelope
PAR9 
PAR10 nu .95/ 1.;        < amplitude multiplier
PAR11                    < fade-in time
PAR12                    < fade-out time
    < PAR13 : Attack hardness : if PAR13 = 0, no change . Range is -1.
    < (greatest smoothing of attack) to +1. (hardest attack)
PAR13 
< User-added parameters:
end;   <<<<end of score>>>>>>>>>>>>>
