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
|
<CsoundSynthesizer>
<CsOptions>
; Select audio/midi flags here according to platform
-odac ;;;realtime audio out
;-iadc ;;;uncomment -iadc if realtime audio input is needed too
; For Non-realtime ouput leave only the line below:
; -o opcode_example.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
/* example opcode 1: simple oscillator */
opcode Oscillator, a, kk
kamp, kcps xin ; read input parameters
a1 vco2 kamp, kcps ; sawtooth oscillator
xout a1 ; write output
endop
/* example opcode 2: lowpass filter with local ksmps */
opcode Lowpass, a, akk
setksmps 1 ; need sr=kr
ain, ka1, ka2 xin ; read input parameters
aout init 0 ; initialize output
aout = ain*ka1 + aout*ka2 ; simple tone-like filter
xout aout ; write output
endop
/* example opcode 3: recursive call */
opcode RecursiveLowpass, a, akkpp
ain, ka1, ka2, idep, icnt xin ; read input parameters
if (icnt >= idep) goto skip1 ; check if max depth reached
ain RecursiveLowpass ain, ka1, ka2, idep, icnt + 1
skip1:
aout Lowpass ain, ka1, ka2 ; call filter
xout aout ; write output
endop
/* example opcode 4: de-click envelope */
opcode DeClick, a, a
ain xin
aenv linseg 0, 0.02, 1, p3 - 0.05, 1, 0.02, 0, 0.01, 0
xout ain * aenv ; apply envelope and write output
endop
/* instr 1 uses the example opcodes */
instr 1
kamp = .7 ; amplitude
kcps expon 50, p3, 500 ; pitch
a1 Oscillator kamp, kcps ; call oscillator
kflt linseg 0.4, 1.5, 0.4, 1, 0.8, 1.5, 0.8 ; filter envelope
a1 RecursiveLowpass a1, kflt, 1 - kflt, 10 ; 10th order lowpass
a1 DeClick a1
outs a1, a1
endin
</CsInstruments>
<CsScore>
i 1 0 4
e5 ;extra second before quitting
</CsScore>
</CsoundSynthesizer>
|
