COMMENT Instrument fmod with lpcpitch insert:
COMMENT  pitch data from the LPC analysis of "joan.gf4" is used (transposed)
COMMENT  for the first 8 notes,  but not for the last 2 notes (see paramter lpcPitchFlag),
COMMENT  where p4 is used instead
COMMENT  Note how the soprano vibrato & pitch wandering (random deviation) seems
COMMENT  exaggerated when transposed, especially on the opening notes
	COMMENT  The orchestra for this score is:
	COMMENT		SETUP(22050,2205,1)
	COMMENT		LPCPITCH
	COMMENT		FMOD
<   Score file with lpcpitch appendage for Library algorithm  ### fmod ###
* f100 0 1024 10 1.; < sine wave, the only required function

te 80;
instr fmod 0 0 10;
p3  rh 12*6/ 16/ 8.,2./ 300/ 8;
du nu 305*5/ 304.5/ 304.1/ 305.5/ 301.8/ 301.4; < Durations
p4 no g4/ f3/ c4/ af4/ bf5/ ef/ d/ e/ df1/ g2;
   < only last 2 pitches used by the instrument
< amplitude envelope
p5 mx 2 2000 3000/ .25 3000/ 3.74 9000;    < p5 = amplitude 
p6 mx 2 .1 .07/ 3.99 .07/ 1. .05;          < p6 =Attack time 
p7 nu 3.5*5/ 1.3/1./ 2./ 1.5/ 1.;          < p7 = Decay time  
p8 nu .3*5/ .7/ 1.1/ 1.6/ .8/ .6;          < atss - amplitude before p7 
                                <  (absolute or *p5 if < 10.00)
< F.M. values : p9-p13
p9 .5 .996 1.004 .3 1.996 2.004 .2 2.995 3.005; < modulating frequency (*p4)
p10 mo 2. 1.5 2./3.99 2./1 6.;           < Index at beginning
p11 mo 2. 1. 1.2/3.99 1.2/1 4. ;         < Index after p6
p12 mx 2. .4 2./3.99 2.6./1 1.;            < Index before p7
p13 mx 2.25 .4 .8/3.74 .9/1 2.5;      < Attack hardness : 1. ord., range .01-3.5
p14       < a detuning p-field generally used only in chorused scores
define([NEWPAR],15)dnl COMMENT PAR1 (first unused p-field) for fmod
< lpcpitch : Insert to read in pitch data from an LPC analysis file
include(/usr/local/lib/olib/Include/lpcpitch_defs)
  < functions 96 & 97 are  used only if lpcEndRead is negative (index to tables).
    < 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 ?
  < lpcLink = number of lp.# link file
lpcLink  9; < link file lp.9 points to /sflib/anal/lpc/22joan.gf4.lpc
lpcBegRead  0;                        < time in lp.# file to begin pitch read
  < lpcEndRead = time in lp.# file to end pitch read
lpcEndRead  nu 2.5 / 2.2 / 2. / 1.8 / 1.5 / 3. / 4. / 5.79 * 3;
 < lpcPitchFlag = flag field; if 0, lpcPitchTransp = multiplier for LPC file pitch data
 < if lpcPitchFlag = 1,lpcPitchTransp = semitone (int.) & microtone (frac.) transposition
 < if lpcPitchFlag = -1, LPC pitch data is not used; internal p4 pitch used instead
lpcPitchFlag  nu 1 * 8 / -1 // ;             < 0, 1, or -1
lpcPitchTransp  nu 1 / -13 / -6 / 2 / 16 / 8 / 10 ///;  
end;  <<< End of ### fmod ### score with lpcpitch appendage>>>
