2
<emphasis role="csdtag"><CsoundSynthesizer></emphasis>
3
<emphasis role="csdtag"><CsOptions></emphasis>
5
<emphasis role="csdtag"></CsOptions></emphasis>
6
<emphasis role="csdtag"><CsInstruments></emphasis>
8
<emphasis role="ohdr">sr</emphasis> <emphasis role="op">=</emphasis> 44100
9
<emphasis role="ohdr">ksmps</emphasis> <emphasis role="op">=</emphasis> 16
10
<emphasis role="ohdr">nchnls</emphasis> <emphasis role="op">=</emphasis> 1
11
<emphasis role="ohdr">0dbfs</emphasis> <emphasis role="op">=</emphasis> 1
13
<emphasis role="comment">;; example written by joachim heintz 2009</emphasis>
15
<emphasis role="oblock">instr</emphasis> 1
16
ishift <emphasis role="op">=</emphasis> p4<emphasis role="comment">; shift amount in Hz</emphasis>
17
ilowest <emphasis role="op">=</emphasis> p5<emphasis role="comment">; lowest frequency to be shifted</emphasis>
18
ikeepform <emphasis role="op">=</emphasis> p6<emphasis role="comment">; 0=no formant keeping, 1=keep by amps, 2=keep by spectral envelope</emphasis>
19
ifftsize <emphasis role="op">=</emphasis> 1024
20
ioverlap <emphasis role="op">=</emphasis> ifftsize <emphasis role="op">/</emphasis> 4
21
iwinsize <emphasis role="op">=</emphasis> ifftsize
22
iwinshape <emphasis role="op">=</emphasis> 1<emphasis role="comment">; von-Hann window</emphasis>
23
Sfile <emphasis role="op">=</emphasis> "fox.wav"
24
ain <emphasis role="opc">soundin</emphasis> Sfile
25
fftin <emphasis role="opc">pvsanal</emphasis> ain, ifftsize, ioverlap, iwinsize, iwinshape<emphasis role="comment">; fft-analysis of file</emphasis>
26
fshift <emphasis role="opc">pvshift</emphasis> fftin, ishift, ilowest, ikeepform<emphasis role="comment">; shift frequencies</emphasis>
27
aout <emphasis role="opc">pvsynth</emphasis> fshift<emphasis role="comment">; resynthesize</emphasis>
28
<emphasis role="opc">out</emphasis> aout
29
<emphasis role="oblock">endin</emphasis>
31
<emphasis role="csdtag"></CsInstruments></emphasis>
32
<emphasis role="csdtag"><CsScore></emphasis>
33
<emphasis role="stamnt">i</emphasis> 1 0 2.757 0 0 0<emphasis role="comment">; no shift at all</emphasis>
34
<emphasis role="stamnt">i</emphasis> 1 3 2.757 100 0 0<emphasis role="comment">; shift all frequencies by 100 Hz</emphasis>
35
<emphasis role="stamnt">i</emphasis> 1 6 2.757 200 0 0<emphasis role="comment">; by 200 Hz</emphasis>
36
<emphasis role="stamnt">i</emphasis> 1 9 2.757 200 0 1<emphasis role="comment">; keep formants by method 1</emphasis>
37
<emphasis role="stamnt">i</emphasis> 1 12 2.757 200 0 2<emphasis role="comment">; by method 2</emphasis>
38
<emphasis role="stamnt">i</emphasis> 1 15 2.757 200 1000 0<emphasis role="comment">; shift by 200 Hz but just above 1000 Hz</emphasis>
39
<emphasis role="stamnt">i</emphasis> 1 18 2.757 1000 500 0<emphasis role="comment">; shift by 1000 Hz above 500 Hz</emphasis>
40
<emphasis role="stamnt">i</emphasis> 1 21 2.757 1000 300 0<emphasis role="comment">; above 300 Hz</emphasis>
41
<emphasis role="stamnt">e</emphasis>
42
<emphasis role="csdtag"></CsScore></emphasis>
43
<emphasis role="csdtag"></CsoundSynthesizer></emphasis>
b'\\ No newline at end of file'