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
|
<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="csdtag"></CsOptions></emphasis>
<emphasis role="csdtag"><CsInstruments></emphasis>
<emphasis role="ohdr">sr</emphasis><emphasis role="op">=</emphasis>44100
<emphasis role="ohdr">ksmps</emphasis><emphasis role="op">=</emphasis>100
<emphasis role="ohdr">nchnls</emphasis><emphasis role="op">=</emphasis>2
<emphasis role="ohdr">0dbfs</emphasis> <emphasis role="op">=</emphasis> 1
ginumLinesX <emphasis role="opc">init</emphasis> 4
ginumLinesY <emphasis role="opc">init</emphasis> 4
ginumParms <emphasis role="opc">init</emphasis> 3
giOutTab <emphasis role="ohdr">ftgen</emphasis> 5,0,8, <emphasis role="op">-</emphasis>2, 0
giPosTab <emphasis role="ohdr">ftgen</emphasis> 6,0,32, <emphasis role="op">-</emphasis>2, 3,2,1,0,4,5,6,7,8,9,10, 11, 15, 14, 13, 12
giSnapTab <emphasis role="ohdr">ftgen</emphasis> 8,0,64, <emphasis role="op">-</emphasis>2, 1,1,1, 2,0,0, 3,2,0, 2,2,2, 5,2,1, 2,3,4, 6,1,7, 0,0,0, \
1,3,5, 3,4,4, 1,5,8, 1,1,5, 4,3,2, 3,4,5, 7,6,5, 7,8,9
<emphasis role="opc">tb0_init</emphasis> giOutTab
<emphasis role="opc">FLpanel</emphasis> "Prova HVS2",600,400,10,100,0
gk1, gk2, ih1, ih2 <emphasis role="opc">FLjoy</emphasis> "HVS controller XY", 0, 1, 1, 0, 0, 0, <emphasis role="op">-</emphasis>1, <emphasis role="op">-</emphasis>1, 300, 300, 0, 50
<emphasis role="comment">; *ihandle, *numlinesX, *numlinesY, *iwidth, *iheight, *ix, *iy,*image;</emphasis>
gihandle <emphasis role="opc">FLhvsBox</emphasis> ginumLinesX, ginumLinesY, 300, 300, 300, 50, 1
<emphasis role="opc">FLpanel_end</emphasis>
<emphasis role="opc">FLrun</emphasis>
<emphasis role="oblock">instr</emphasis> 1
<emphasis role="comment">; Smooth control signals to avoid clicks</emphasis>
kx <emphasis role="opc">portk</emphasis> gk1, 0.02
ky <emphasis role="opc">portk</emphasis> gk2, 0.02
<emphasis role="comment">; kx, ky, inumParms, inumlinesX, inumlinesY, iOutTab, iPosTab, iSnapTab [, iConfigTab]</emphasis>
<emphasis role="opc">hvs2</emphasis> kx, ky, ginumParms, ginumLinesX, ginumLinesY, giOutTab, giPosTab, giSnapTab <emphasis role="comment">;, iConfigTab</emphasis>
<emphasis role="comment">; *kx, *ky, *ihandle;</emphasis>
<emphasis role="opc">FLhvsBoxSetValue</emphasis> gk1, gk2, gihandle
k0 <emphasis role="opc">init</emphasis> 0
k1 <emphasis role="opc">init</emphasis> 1
k2 <emphasis role="opc">init</emphasis> 2
<emphasis role="opc">printk2</emphasis> <emphasis role="opc">tb0</emphasis>(k0)
<emphasis role="opc">printk2</emphasis> <emphasis role="opc">tb0</emphasis>(k1), 10
<emphasis role="opc">printk2</emphasis> <emphasis role="opc">tb0</emphasis>(k2), 20
kris <emphasis role="opc">init</emphasis> 0.003
kdur <emphasis role="opc">init</emphasis> 0.02
kdec <emphasis role="opc">init</emphasis> 0.007
<emphasis role="comment">; Make parameters of synthesis depend on the table values produced by hvs</emphasis>
ares1 <emphasis role="opc">fof</emphasis> 0.2, <emphasis role="opc">tb0</emphasis>(k0)<emphasis role="op">*</emphasis>100 <emphasis role="op">+</emphasis> 50, <emphasis role="opc">tb0</emphasis>(k1)<emphasis role="op">*</emphasis>100 <emphasis role="op">+</emphasis> 200, 0, <emphasis role="opc">tb0</emphasis>(k2) <emphasis role="op">*</emphasis> 10 <emphasis role="op">+</emphasis> 50, 0.003, 0.02, 0.007, 20, \
1, 2, p3
ares2 <emphasis role="opc">fof</emphasis> 0.2, <emphasis role="opc">tb0</emphasis>(k1)<emphasis role="op">*</emphasis>100 <emphasis role="op">+</emphasis> 50, <emphasis role="opc">tb0</emphasis>(k2)<emphasis role="op">*</emphasis>100 <emphasis role="op">+</emphasis> 200, 0, <emphasis role="opc">tb0</emphasis>(k0) <emphasis role="op">*</emphasis> 10 <emphasis role="op">+</emphasis> 50, 0.003, 0.02, 0.007, 20, \
1, 2, p3
<emphasis role="opc">outs</emphasis> ares1, ares2
<emphasis role="oblock">endin</emphasis>
<emphasis role="csdtag"></CsInstruments></emphasis>
<emphasis role="csdtag"><CsScore></emphasis>
<emphasis role="stamnt">f</emphasis> 1 0 1024 10 1 <emphasis role="comment">;Sine wave</emphasis>
<emphasis role="stamnt">f</emphasis> 2 0 1024 19 0.5 0.5 270 0.5 <emphasis role="comment">;Grain envelope table</emphasis>
<emphasis role="stamnt">f</emphasis>0 3600
<emphasis role="stamnt">i</emphasis>1 0 3600
<emphasis role="csdtag"></CsScore></emphasis>
<emphasis role="csdtag"></CsoundSynthesizer></emphasis>
</programlisting>
|
