< Score file used to create "ex6-1" :
< **** sop3 {soprano, short tones sung loudly }function tables  ***
*f1 0 32768 -1  "/sflib/voice/sop3.b3.wav"   0 0 0;  < dur = .44
*f2 0 32768 -1  "/sflib/voice/sop3.ds4.wav"  0 0 0;  < dur = .47
*f3 0 32768 -1  "/sflib/voice/sop3.fs4.wav"  0 0 0;  < dur = .448
*f4 0 32768 -1  "/sflib/voice/sop3.as4.wav"  0 0 0;  < dur = .45
*f5 0 32768 -1  "/sflib/voice/sop3.cs5.wav"  0 0 0;  < dur = .43
*f6 0 32768 -1  "/sflib/voice/sop3.e5.wav"   0 0 0;  < dur = .475
*f7 0 32768 -1  "/sflib/voice/sop3.gs5.wav"  0 0 0;  < dur = .52
*f8 0 32768 -1  "/sflib/voice/sop3.b5.wav"   0 0 0;  < dur = .50

 <; f99 = input soundfile function numbers & split points {in MIDI note numbers}
*f99 0 128 -17 0 1 61 2 65  3 68 4 72 5 75 6 78 7 82 8 ;
 <; f98 = base pitches of input soundfiles {expressed in MIDI note numbers}
*f98 0  16  -2 0 59 63 66 70 73 76 80 83 ; 
<  -------------End of SOP3 functions ---------

te x 3.5 60 90/4.5 90 60;
i1  0 8;  
rs 999;
rd .03;
p3 .33; < mx 4. .45 .25 .18 .3/3. .18 .3 .5;
du  mo 3.5  300.3 300.5 300.3/4.5 300.25 300.4 300.5 300.3;
p4 nu 1/3/5/7/ < gen 1 func number of input soundfile 
 8/6/4/2;
< p5,6,7 : amplitude envelope
p5  mx 3. .03 .5/4. .5 .02;        < input amplitude multiplier
p6 mx 3. .1 .06 .005 .02/      < optional fade-in time
  4. .005 .01 .1;
p7 mx 4 .24 .12 .1 .18/3. .18 .1 .2 .25;   < optional fade-out time
<
p8 no b3/fs4/cs5/gs5/ < base pitch of input soundfile in pch or cps
 b5/e5/as4/ds4;
p9 1. .89 1.12;    < output pitch in pch or cps or * p8
<p9 1. .75 1.;    < output pitch in pch or cps or * p8

< harmonizer p-fields:
p10  .9; < iminfrq , in cps or as % of p9 base pitch
p11 .3;     < kmaxvar : fraction
p12  0;     < imode : if 0, p13 & p14 are ratios * p8 pitch
 < IMPORTANT: p12 & p13 cannot BOTH be > p8
p13  1. .67 .94;    < harmonizer output note or ratio 1
p14 1. 1.05 1.33;     < harmonizer output note or ratio 2
p15 .03; < iprd : normally between .02 & .05
< source/harmopnizer output mix
p16 1. .3 .5;      < amp. multiplier for source signal output
p17 1. .8 1.;      < amp. multiplier for harmonizer output

end;

