-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathseqtim.csd
135 lines (106 loc) · 2.09 KB
/
seqtim.csd
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
<CsoundSynthesizer>
<CsOptions>
-odac:hw:0,0
-+rtaudio=alsa
</CsOptions>
<CsInstruments>
sr = 48000
ksmps = 256
nchnls = 2
0dbfs = 1.0
turnon 12
gkfreq[] fillarray 220, 220, 220, 220
gkcutoff[] fillarray 2000, 2000, 2000, 2000
gkamp init .5
gkrate init 128
gkport = .1
gklforate init 10
gklfodepth init 1
gklfotocutoff init 0
gklfotofreq init 0
gkres init .5
gkatk init 0
gkrel init 0
gkstage init 0
instr 100
;prints "Stage in CSD\n"
gkstage = p4
turnoff
endin
instr 10
gkfreq[0] = p4
gkfreq[1] = p5
gkfreq[2] = p6
gkfreq[3] = p7
gkcutoff[0] = p8
gkcutoff[1] = p9
gkcutoff[2] = p10
gkcutoff[3] = p11
gkrate = p12
gkport = p13 * gkrate / 128.0
gklforate = p14
gklfodepth = p15
gkres = p16
gkatk = p17
gkrel = p18
gklfotocutoff = p19
gklfotofreq = p20
;prints "GKFREQ0: %d", gkfreq[0]
;printks "1: %d, 2: %d, 3: %d, 4: %d\n\n", .1, gkfreq[0], gkfreq[1], gkfreq[2], gkfreq[3]
turnoff
endin
instr sequencer
kdetune init .01
kcounter init 0
kstage init 0
klforate init 10
klfodepth init 1
klforate port gklforate, .1, 10
klfodepth port gklfodepth, .1, 1
alfo lfo klfodepth, klforate, 0
kres port gkres, .1, .5
kfreq[] fillarray 220, 220, 220, 220
kcutoff[] fillarray 2000, 2000, 2000, 2000
kfreq[0] port gkfreq[0], .1, 220
kfreq[1] port gkfreq[1], .1, 220
kfreq[2] port gkfreq[2], .1, 220
kfreq[3] port gkfreq[3], .1, 220
kcutoff[0] port gkcutoff[0], .1, 220
kcutoff[1] port gkcutoff[1], .1, 220
kcutoff[2] port gkcutoff[2], .1, 220
kcutoff[3] port gkcutoff[3], .1, 220
kpfreq portk kfreq[gkstage], gkport, 220
kpcutoff portk kcutoff[gkstage], gkport, 2000
acutoff = kpcutoff
if(gklfotofreq == 1)then
kpfreq += (alfo * kpfreq)
endif
ares lfo .5, kpfreq, 2
if(gklfotocutoff == 1)then
acutoff += (alfo * acutoff)
endif
ares moogladder ares, acutoff, kres
outs ares, ares
endin
</CsInstruments>
<CsScore>
f 0 14400
</CsScore>
</CsoundSynthesizer>
<bsbPanel>
<label>Widgets</label>
<objectName/>
<x>100</x>
<y>100</y>
<width>320</width>
<height>240</height>
<visible>true</visible>
<uuid/>
<bgcolor mode="nobackground">
<r>255</r>
<g>255</g>
<b>255</b>
</bgcolor>
</bsbPanel>
<bsbPresets>
</bsbPresets>