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
|
<CsoundSynthesizer>
<CsOptions>
; Select audio/midi flags here according to platform
; Audio out Audio in No messages
;-odac -iadc -d ;;;RT audio I/O
; For Non-realtime ouput leave only the line below:
-o bformenc.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>
sr = 44100
ksmps = 32
nchnls = 8
0dbfs = 1
instr 1 ;without arrays
; generate pink noise
anoise pinkish 1
; two full turns
kalpha line 0, p3, 720
kbeta = 0
; generate B format
aw, ax, ay, az, ar, as, at, au, av bformenc1 anoise, kalpha, kbeta
; decode B format for 8 channel circle loudspeaker setup
a1, a2, a3, a4, a5, a6, a7, a8 bformdec1 4, aw, ax, ay, az, ar, as, at, au, av
; write audio out
outo a1, a2, a3, a4, a5, a6, a7, a8
endin
instr 2 ;with arrays (csound6)
;set file names for:
S_bform = "bform_out.wav" ;b-format (2nd order) output
S_sound = "sound_out.wav" ;sound output
; generate pink noise
anoise pinkish 1
; two full turns
kalpha line 0, p3, 720
kbeta = 0
;create array for B-format 2nd order (9 chnls)
aBform[] init 9
; generate B-format
aBform bformenc1 anoise, kalpha, kbeta
;write out b-format
fout "fout.wav", 18, aBform
;create array for audio output (8 channels)
aAudio[] init 8
;decode B format for 8 channel circle loudspeaker setup
aAudio bformdec1 4, aBform
; write audio out
fout S_sound, 18, aAudio
endin
</CsInstruments>
<CsScore>
i 1 0 8
i 2 8 8
e
</CsScore>
</CsoundSynthesizer>
|
