blob: 05125b739fed2516eeb49148feb739968ac8709f (
plain)
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
|
<CsoundSynthesizer>
<CsOptions>
; Select audio/midi flags here according to platform
-odac ;;;RT audio out
;-iadc ;;;uncomment -iadc if RT audio input is needed too
; For Non-realtime ouput leave only the line below:
; -o deltapi.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
gasig init 0
gidel = 1 ;delay time in seconds
instr 1
ain pluck .7, 440, 1000, 0, 1
outs ain, ain
vincr gasig, ain ;send to global delay
endin
instr 2
ifeedback = p4
abuf2 delayr gidel
adelL deltapi .4 ;first tap (on left channel)
adelM deltapi 1 ;second tap (on middle channel)
delayw gasig + (adelL * ifeedback)
abuf3 delayr gidel
kdel line 1, p3, .01 ;vary delay time
adelR deltapi .65 * kdel ;one pitch changing tap (on the right chn.)
delayw gasig + (adelR * ifeedback)
;make a mix of all deayed signals
outs adelL + adelM, adelR + adelM
clear gasig
endin
</CsInstruments>
<CsScore>
i 1 0 1
i 1 3 1
i 2 0 3 0 ;no feedback
i 2 3 8 .8 ;lots of feedback
e
</CsScore>
</CsoundSynthesizer>
|