1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
<programlisting>
<emphasis role="csdtag"><CsoundSynthesizer></emphasis>
<emphasis role="csdtag"><CsOptions></emphasis>
<emphasis role="comment">; Select audio/midi flags here according to platform</emphasis>
<emphasis role="comment">; Audio out Audio in No messages</emphasis>
-odac -iadc -d <emphasis role="comment">;;;RT audio I/O</emphasis>
<emphasis role="comment">; For Non-realtime ouput leave only the line below:</emphasis>
<emphasis role="comment">; -o setscorepos.wav -W ;;; for file output any platform</emphasis>
<emphasis role="csdtag"></CsOptions></emphasis>
<emphasis role="csdtag"><CsInstruments></emphasis>
<emphasis role="comment">;---------------------------------------------------------</emphasis>
<emphasis role="comment">; TBVCF Test</emphasis>
<emphasis role="comment">; Coded by Hans Mikelson December, 2000</emphasis>
<emphasis role="comment">;---------------------------------------------------------</emphasis>
<emphasis role="ohdr">sr</emphasis> <emphasis role="op">=</emphasis> 44100 <emphasis role="comment">; Sample rate</emphasis>
<emphasis role="ohdr">ksmps</emphasis> <emphasis role="op">=</emphasis> 10 <emphasis role="comment">; Samples/Kontrol period</emphasis>
<emphasis role="ohdr">nchnls</emphasis> <emphasis role="op">=</emphasis> 2 <emphasis role="comment">; Normal stereo</emphasis>
<emphasis role="ohdr">0dbfs</emphasis> <emphasis role="op">=</emphasis> 1
<emphasis role="oblock">instr</emphasis> 1
<emphasis role="comment">;setscorepos 0 ; uncomment to hear from beginning</emphasis>
<emphasis role="opc">setscorepos</emphasis> 8 <emphasis role="comment">; start at 8 seconds, comment this </emphasis>
<emphasis role="comment">; when uncommenting setscorepos 0</emphasis>
<emphasis role="oblock">endin</emphasis>
<emphasis role="oblock">instr</emphasis> 10
idur <emphasis role="op">=</emphasis> p3 <emphasis role="comment">; Duration</emphasis>
iamp <emphasis role="op">=</emphasis> p4 <emphasis role="comment">; Amplitude</emphasis>
ifqc <emphasis role="op">=</emphasis> <emphasis role="opc">cpspch</emphasis>(p5) <emphasis role="comment">; Pitch to frequency</emphasis>
ipanl <emphasis role="op">=</emphasis> <emphasis role="opc">sqrt</emphasis>(p6) <emphasis role="comment">; Pan left</emphasis>
ipanr <emphasis role="op">=</emphasis> <emphasis role="opc">sqrt</emphasis>(1<emphasis role="op">-</emphasis>p6) <emphasis role="comment">; Pan right</emphasis>
iq <emphasis role="op">=</emphasis> p7
idist <emphasis role="op">=</emphasis> p8
iasym <emphasis role="op">=</emphasis> p9
kdclck <emphasis role="opc">linseg</emphasis> 0, .002, 1, idur<emphasis role="op">-</emphasis>.004, 1, .002, 0 <emphasis role="comment">; Declick envelope</emphasis>
kfco <emphasis role="opc">expseg</emphasis> 10000, idur, 1000 <emphasis role="comment">; Frequency envelope</emphasis>
ax <emphasis role="opc">vco</emphasis> 1, ifqc, 2, 0.5 <emphasis role="comment">; Square wave</emphasis>
ay <emphasis role="opc">tbvcf</emphasis> ax, kfco, iq, idist, iasym <emphasis role="comment">; TB-VCF</emphasis>
ay <emphasis role="opc">buthp</emphasis> ay<emphasis role="op">/</emphasis>1, 100 <emphasis role="comment">; Hi-pass</emphasis>
<emphasis role="opc">outs</emphasis> ay<emphasis role="op">*</emphasis>iamp<emphasis role="op">*</emphasis>ipanl<emphasis role="op">*</emphasis>kdclck, ay<emphasis role="op">*</emphasis>iamp<emphasis role="op">*</emphasis>ipanr<emphasis role="op">*</emphasis>kdclck
<emphasis role="oblock">endin</emphasis>
<emphasis role="csdtag"></CsInstruments></emphasis>
<emphasis role="csdtag"><CsScore></emphasis>
<emphasis role="stamnt">f</emphasis>1 0 65536 10 1
<emphasis role="stamnt">i</emphasis>1 0 1
<emphasis role="comment">; TeeBee Test</emphasis>
<emphasis role="comment">; Sta Dur Amp Pitch Pan Q Dist1 Asym</emphasis>
<emphasis role="stamnt">i</emphasis>10 0 0.2 0.5 7.00 .5 0.0 2.0 0.0
<emphasis role="stamnt">i</emphasis>10 0.3 0.2 0.5 7.00 .5 0.8 2.0 0.0
<emphasis role="stamnt">i</emphasis>10 0.6 0.2 0.5 7.00 .5 1.6 2.0 0.0
<emphasis role="stamnt">i</emphasis>10 0.9 0.2 0.5 7.00 .5 2.4 2.0 0.0
<emphasis role="stamnt">i</emphasis>10 1.2 0.2 0.5 7.00 .5 3.2 2.0 0.0
<emphasis role="comment">;i10 1.5 0.2 0.5 7.00 .5 4.0 2.0 0.0</emphasis>
<emphasis role="stamnt">i</emphasis>10 1.8 0.2 0.5 7.00 .5 0.0 2.0 0.25
<emphasis role="stamnt">i</emphasis>10 2.1 0.2 0.5 7.00 .5 0.8 2.0 0.25
<emphasis role="stamnt">i</emphasis>10 2.4 0.2 0.5 7.00 .5 1.6 2.0 0.25
<emphasis role="stamnt">i</emphasis>10 2.7 0.2 0.5 7.00 .5 2.4 2.0 0.25
<emphasis role="stamnt">i</emphasis>10 3.0 0.2 0.5 7.00 .5 3.2 2.0 0.25
<emphasis role="stamnt">i</emphasis>10 3.3 0.2 0.5 7.00 .5 4.0 2.0 0.25
<emphasis role="stamnt">i</emphasis>10 3.6 0.2 0.5 7.00 .5 0.0 2.0 0.5
<emphasis role="stamnt">i</emphasis>10 3.9 0.2 0.5 7.00 .5 0.8 2.0 0.5
<emphasis role="stamnt">i</emphasis>10 4.2 0.2 0.5 7.00 .5 1.6 2.0 0.5
<emphasis role="stamnt">i</emphasis>10 4.5 0.2 0.5 7.00 .5 2.4 2.0 0.5
<emphasis role="stamnt">i</emphasis>10 4.8 0.2 0.5 7.00 .5 3.2 2.0 0.5
<emphasis role="stamnt">i</emphasis>10 5.1 0.2 0.5 7.00 .5 4.0 2.0 0.5
<emphasis role="stamnt">i</emphasis>10 5.4 0.2 0.5 7.00 .5 0.0 2.0 0.75
<emphasis role="stamnt">i</emphasis>10 5.7 0.2 0.5 7.00 .5 0.8 2.0 0.75
<emphasis role="stamnt">i</emphasis>10 6.0 0.2 0.5 7.00 .5 1.6 2.0 0.75
<emphasis role="stamnt">i</emphasis>10 6.3 0.2 0.5 7.00 .5 2.4 2.0 0.75
<emphasis role="stamnt">i</emphasis>10 6.6 0.2 0.5 7.00 .5 3.2 2.0 0.75
<emphasis role="stamnt">i</emphasis>10 6.9 0.2 0.5 7.00 .5 4.0 2.0 0.75
<emphasis role="stamnt">i</emphasis>10 7.2 0.2 0.5 7.00 .5 0.0 2.0 1.0
<emphasis role="stamnt">i</emphasis>10 7.5 0.2 0.5 7.00 .5 0.8 2.0 1.0
<emphasis role="stamnt">i</emphasis>10 7.8 0.2 0.5 7.00 .5 1.6 2.0 1.0
<emphasis role="stamnt">i</emphasis>10 8.1 0.2 0.5 7.00 .5 2.4 2.0 1.0
<emphasis role="stamnt">i</emphasis>10 8.4 0.2 0.5 7.00 .5 3.2 2.0 1.0
<emphasis role="stamnt">i</emphasis>10 8.7 0.2 0.5 7.00 .5 4.0 2.0 1.0
<emphasis role="stamnt">e</emphasis>
<emphasis role="csdtag"></CsScore></emphasis>
<emphasis role="csdtag"></CsoundSynthesizer></emphasis>
</programlisting>
|