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
|
<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 spat3d_UHJ.wav -W ;;; for file output any platform</emphasis>
<emphasis role="csdtag"></CsOptions></emphasis>
<emphasis role="csdtag"><CsInstruments></emphasis>
<emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> Written by Istvan Varga <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis>
<emphasis role="ohdr">sr</emphasis> <emphasis role="op">=</emphasis> 48000
<emphasis role="ohdr">kr</emphasis> <emphasis role="op">=</emphasis> 750
<emphasis role="ohdr">ksmps</emphasis> <emphasis role="op">=</emphasis> 64
<emphasis role="ohdr">nchnls</emphasis> <emphasis role="op">=</emphasis> 2
itmp <emphasis role="ohdr">ftgen</emphasis> 1, 0, 64, <emphasis role="op">-</emphasis>2, \
<emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> depth1, depth2, <emphasis role="opc">max</emphasis> delay, IR length, idist, <emphasis role="ohdr">seed</emphasis> <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis> \
3, 48, <emphasis role="op">-</emphasis>1, 0.01, 0.25, 123, \
1, 21.982, 0.05, 0.87, 4000.0, 0.6, 0.7, 2, <emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> <emphasis role="opc">ceil</emphasis> <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis> \
1, 1.753, 0.05, 0.87, 3500.0, 0.5, 0.7, 2, <emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> <emphasis role="opc">floor</emphasis> <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis> \
1, 15.220, 0.05, 0.87, 5000.0, 0.8, 0.7, 2, <emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> front <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis> \
1, 9.317, 0.05, 0.87, 5000.0, 0.8, 0.7, 2, <emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> back <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis> \
1, 17.545, 0.05, 0.87, 5000.0, 0.8, 0.7, 2, <emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> right <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis> \
1, 12.156, 0.05, 0.87, 5000.0, 0.8, 0.7, 2 <emphasis role="op">/</emphasis><emphasis role="op">*</emphasis> left <emphasis role="op">*</emphasis><emphasis role="op">/</emphasis>
<emphasis role="oblock">instr</emphasis> 1
p3 <emphasis role="op">=</emphasis> p3 <emphasis role="op">+</emphasis> 1.0
kazim <emphasis role="opc">line</emphasis> 0.0, 4.0, 360.0 <emphasis role="comment">; azimuth</emphasis>
kelev <emphasis role="opc">line</emphasis> 40, p3 <emphasis role="op">-</emphasis> 1.0, <emphasis role="op">-</emphasis>20 <emphasis role="comment">; elevation</emphasis>
kdist <emphasis role="op">=</emphasis> 2.0 <emphasis role="comment">; distance</emphasis>
<emphasis role="comment">; convert coordinates</emphasis>
kX <emphasis role="op">=</emphasis> kdist <emphasis role="op">*</emphasis> <emphasis role="opc">cos</emphasis>(kelev <emphasis role="op">*</emphasis> 0.01745329) <emphasis role="op">*</emphasis> <emphasis role="opc">sin</emphasis>(kazim <emphasis role="op">*</emphasis> 0.01745329)
kY <emphasis role="op">=</emphasis> kdist <emphasis role="op">*</emphasis> <emphasis role="opc">cos</emphasis>(kelev <emphasis role="op">*</emphasis> 0.01745329) <emphasis role="op">*</emphasis> <emphasis role="opc">cos</emphasis>(kazim <emphasis role="op">*</emphasis> 0.01745329)
kZ <emphasis role="op">=</emphasis> kdist <emphasis role="op">*</emphasis> <emphasis role="opc">sin</emphasis>(kelev <emphasis role="op">*</emphasis> 0.01745329)
<emphasis role="comment">; source signal</emphasis>
a1 <emphasis role="opc">phasor</emphasis> 160.0
a2 <emphasis role="opc">delay1</emphasis> a1
a1 <emphasis role="op">=</emphasis> a1 <emphasis role="op">-</emphasis> a2
kffrq1 <emphasis role="opc">port</emphasis> 200.0, 0.8, 12000.0
affrq <emphasis role="opc">upsamp</emphasis> kffrq1
affrq <emphasis role="opc">pareq</emphasis> affrq, 5.0, 0.0, 1.0, 2
kffrq <emphasis role="opc">downsamp</emphasis> affrq
aenv4 <emphasis role="opc">phasor</emphasis> 3.0
aenv4 <emphasis role="opc">limit</emphasis> 2.0 <emphasis role="op">-</emphasis> aenv4 <emphasis role="op">*</emphasis> 8.0, 0.0, 1.0
a1 <emphasis role="opc">butterbp</emphasis> a1 <emphasis role="op">*</emphasis> aenv4, kffrq, 160.0
aenv <emphasis role="opc">linseg</emphasis> 1.0, p3 <emphasis role="op">-</emphasis> 1.0, 1.0, 0.04, 0.0, 1.0, 0.0
a_ <emphasis role="op">=</emphasis> 4000000 <emphasis role="op">*</emphasis> a1 <emphasis role="op">*</emphasis> aenv <emphasis role="op">+</emphasis> 0.00000001
<emphasis role="comment">; spatialize</emphasis>
a_W, a_X, a_Y, a_Z <emphasis role="opc">spat3d</emphasis> a_, kX, kY, kZ, 1.0, 1, 2, 2.0, 2
<emphasis role="comment">; convert to UHJ format (stereo)</emphasis>
aWre, aWim <emphasis role="opc">hilbert</emphasis> a_W
aXre, aXim <emphasis role="opc">hilbert</emphasis> a_X
aYre, aYim <emphasis role="opc">hilbert</emphasis> a_Y
aWXre <emphasis role="op">=</emphasis> 0.0928<emphasis role="op">*</emphasis>aXre <emphasis role="op">+</emphasis> 0.4699<emphasis role="op">*</emphasis>aWre
aWXim <emphasis role="op">=</emphasis> 0.2550<emphasis role="op">*</emphasis>aXim <emphasis role="op">-</emphasis> 0.1710<emphasis role="op">*</emphasis>aWim
aL <emphasis role="op">=</emphasis> aWXre <emphasis role="op">+</emphasis> aWXim <emphasis role="op">+</emphasis> 0.3277<emphasis role="op">*</emphasis>aYre
aR <emphasis role="op">=</emphasis> aWXre <emphasis role="op">-</emphasis> aWXim <emphasis role="op">-</emphasis> 0.3277<emphasis role="op">*</emphasis>aYre
<emphasis role="opc">outs</emphasis> aL, aR
<emphasis role="oblock">endin</emphasis>
<emphasis role="csdtag"></CsInstruments></emphasis>
<emphasis role="csdtag"><CsScore></emphasis>
/* Written by Istvan Varga */
<emphasis role="stamnt">t</emphasis> 0 60
<emphasis role="stamnt">i</emphasis> 1 0.0 8.0
<emphasis role="stamnt">e</emphasis>
<emphasis role="csdtag"></CsScore></emphasis>
<emphasis role="csdtag"></CsoundSynthesizer></emphasis>
</programlisting>
|