-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathmodulator4.pd
More file actions
209 lines (209 loc) · 6.71 KB
/
modulator4.pd
File metadata and controls
209 lines (209 loc) · 6.71 KB
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
#N canvas 638 95 327 434 12;
#X obj 44 60 vsl 12 52 0.1 0.5 0 0 \$0-int1 \$0-int1init int 0 -9 0 8 #ff8300 #000000 #000000 0 1;
#X obj 26 60 vsl 12 52 0.01 0.1 0 0 \$0-frq1 \$0-frq1init frq 0 -9 0 8 #ffe3c6 #000000 #000000 0 1;
#X obj 84 60 vsl 12 52 0.1 0.5 0 0 \$0-int2 \$0-int2init int 0 -9 0 8 #00ff04 #000000 #000000 0 1;
#X obj 66 60 vsl 12 52 0.01 0.1 0 0 \$0-frq2 \$0-frq2init frq 0 -9 0 8 #c6ffc7 #000000 #000000 0 1;
#X obj 124 60 vsl 12 52 0.1 0.5 0 0 \$0-int3 \$0-int3init int 0 -9 0 8 #ff0400 #000000 #000000 0 1;
#X obj 106 60 vsl 12 52 0.01 0.1 0 0 \$0-frq3 \$0-frq3init frq 0 -9 0 8 #ffc7c6 #000000 #000000 0 1;
#X obj 164 60 vsl 12 52 0.1 0.5 0 0 \$0-int4 \$0-int4init int 0 -9 0 8 #9c00ff #000000 #000000 0 1;
#X obj 146 60 vsl 12 52 0.01 0.1 0 0 \$0-frq4 \$0-frq4init frq 0 -9 0 8 #e3c6ff #000000 #000000 0 1;
#N canvas 155 350 914 287 distro 0;
#X obj 7 55 s \$0-frq1init;
#X obj 7 101 s \$0-frq2init;
#X obj 7 147 s \$0-frq3init;
#X obj 7 193 s \$0-frq4init;
#X obj 7 78 s \$0-int1init;
#X obj 7 124 s \$0-int2init;
#X obj 7 170 s \$0-int3init;
#X obj 7 215 s \$0-int4init;
#X obj 187 7 r \$0-rand;
#X obj 7 7 r \$0-params;
#X obj 187 179 s \$0-params;
#X obj 187 208 r \$0-reset;
#X obj 266 7 loadbang;
#X obj 187 252 s \$0-params;
#X obj 509 173 s \$0-int4init;
#X obj 509 149 s \$0-int3init;
#X obj 509 125 s \$0-int2init;
#X obj 509 101 s \$0-int1init;
#X obj 509 7 r \$0-randint;
#X obj 712 7 r \$0-randfrq;
#X obj 712 101 s \$0-frq1init;
#X obj 712 125 s \$0-frq2init;
#X obj 712 149 s \$0-frq3init;
#X obj 712 173 s \$0-frq4init;
#X obj 7 31 unpack f f f f f f f f;
#X obj 187 31 expr random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \; random(1 \, 10) * 0.01 \; random(10 \, 50) * 0.01 \;, f 44;
#X obj 187 155 pack f f f f f f f f, f 44;
#X msg 187 230 0 0 0 0 0 0 0 0 0 0;
#X obj 509 31 expr random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \; random(10 \, 50) * 0.01 \;;
#X obj 712 31 expr random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \; random(1 \, 10) * 0.01 \;;
#X connect 8 0 25 0;
#X connect 9 0 24 0;
#X connect 11 0 27 0;
#X connect 12 0 25 0;
#X connect 18 0 28 0;
#X connect 19 0 29 0;
#X connect 24 0 0 0;
#X connect 24 1 4 0;
#X connect 24 2 1 0;
#X connect 24 3 5 0;
#X connect 24 4 2 0;
#X connect 24 5 6 0;
#X connect 24 6 3 0;
#X connect 24 7 7 0;
#X connect 25 0 26 0;
#X connect 25 1 26 1;
#X connect 25 2 26 2;
#X connect 25 3 26 3;
#X connect 25 4 26 4;
#X connect 25 5 26 5;
#X connect 25 6 26 6;
#X connect 25 7 26 7;
#X connect 26 0 10 0;
#X connect 27 0 13 0;
#X connect 28 0 17 0;
#X connect 28 1 16 0;
#X connect 28 2 15 0;
#X connect 28 3 14 0;
#X connect 29 0 20 0;
#X connect 29 1 21 0;
#X connect 29 2 22 0;
#X connect 29 3 23 0;
#X restore 201 128 pd distro;
#X obj 106 27 bng 14 250 50 0 \$0-reset \$0-resetinit empty 16 7 0 8 #ffffff #000000 #000000;
#X obj 124 27 bng 14 250 50 0 \$0-rand \$0-randinit empty 16 7 0 8 #dfdfdf #000000 #000000;
#X obj 143 27 bng 14 250 50 0 \$0-randint \$0-randintinit empty 16 7 0 8 #9f9f9f #000000 #000000;
#X obj 162 27 bng 14 250 50 0 \$0-randfrq \$0-randfrqinit empty 16 7 0 8 #7c7c7c #000000 #000000;
#X obj 26 27 tgl 14 0 \$0-proctgl \$0-proctglinit empty 16 7 0 8 #000000 #ffffff #000000 0 1;
#X obj 48 27 hsl 42 14 0.5 3 0 0 \$0-oaint \$0-oaintdummy INT 14 7 0 8 #000000 #ffffff #ffffff 0 1;
#X obj 184 58 hradio 14 1 0 2 \$0-setosc \$0-setoscdummy ~\ \ Λ 4 -6 0 8 #ffffff #9c00ff #000000 0;
#X obj 184 78 hradio 14 1 0 2 \$0-setdir \$0-setdirdummy +\ - 3 7 0 12 #ffffff #000000 #000000 0;
#X obj 26 176 loadbang;
#X obj 26 200 f \$0;
#X obj 26 128 inlet;
#X obj 26 152 s \$0-phreset;
#X obj 96 176 r \$0-reset;
#X msg 26 224 \; \$1-proctglinit 1 \; \$1-setoscdummy 0 \; \$1-oaintdummy 1 \; \$1-setdirdummy 0;
#N canvas 96 136 750 223 oscillators 0;
#X obj 243 114 r \$0-int1;
#X obj 211 61 osc~;
#X obj 247 61 phasor~;
#X obj 211 84 *~;
#X obj 247 84 *~;
#X obj 18 27 r \$0-setosc;
#X obj 18 51 expr if($f1 == 0 \, 1 \, 0) \; if($f1 == 1 \, 1 \, 0);
#X obj 637 19 r \$0-phreset;
#X msg 637 42 0, f 1;
#X obj 211 138 *~, f 5;
#X obj 319 61 osc~;
#X obj 355 61 phasor~;
#X obj 319 84 *~;
#X obj 355 84 *~;
#X obj 319 138 *~, f 5;
#X obj 351 114 r \$0-int2;
#X obj 428 61 osc~;
#X obj 464 61 phasor~;
#X obj 428 84 *~;
#X obj 464 84 *~;
#X obj 428 138 *~, f 5;
#X obj 537 61 osc~;
#X obj 573 61 phasor~;
#X obj 537 84 *~;
#X obj 573 84 *~;
#X obj 537 138 *~, f 5;
#X obj 460 114 r \$0-int3;
#X obj 569 114 r \$0-int4;
#X obj 211 189 outlet~;
#X text 15 89 Switch between cosine and sawtooth oscillator., f 24;
#X obj 211 38 r \$0-frq1;
#X obj 319 38 r \$0-frq2;
#X obj 428 38 r \$0-frq3;
#X obj 537 38 r \$0-frq4;
#X obj 211 165 snake~ 4, f 47;
#X connect 0 0 9 1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 9 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 3 1;
#X connect 6 0 12 1;
#X connect 6 0 23 1;
#X connect 6 0 18 1;
#X connect 6 1 4 1;
#X connect 6 1 13 1;
#X connect 6 1 24 1;
#X connect 6 1 19 1;
#X connect 7 0 8 0;
#X connect 8 0 2 1;
#X connect 8 0 1 1;
#X connect 8 0 10 1;
#X connect 8 0 16 1;
#X connect 8 0 17 1;
#X connect 8 0 21 1;
#X connect 8 0 22 1;
#X connect 8 0 11 1;
#X connect 9 0 34 0;
#X connect 10 0 12 0;
#X connect 11 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 14 0;
#X connect 14 0 34 1;
#X connect 15 0 14 1;
#X connect 16 0 18 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 20 0;
#X connect 20 0 34 2;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 25 0;
#X connect 25 0 34 3;
#X connect 26 0 20 1;
#X connect 27 0 25 1;
#X connect 30 0 1 0;
#X connect 30 0 2 0;
#X connect 31 0 10 0;
#X connect 31 0 11 0;
#X connect 32 0 16 0;
#X connect 32 0 17 0;
#X connect 33 0 21 0;
#X connect 33 0 22 0;
#X connect 34 0 28 0;
#X restore 201 152 pd oscillators;
#X obj 201 224 *~;
#X obj 219 200 lop~ 1;
#X obj 219 176 r \$0-oaint;
#X obj 219 273 lop~ 1;
#N canvas 333 385 202 101 dircalc 0;
#X obj 10 15 r \$0-setdir;
#X obj 10 39 expr if($f1 == 0 \, 1 \, -1);
#X obj 10 63 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X restore 219 248 pd dircalc;
#X obj 201 401 outlet~;
#X text 24 382 Author: Martin Heinze, f 22;
#X text 24 402 Last updated: 11.05.25;
#X obj 201 298 *~;
#X obj 201 370 *~;
#X obj 219 322 r \$0-proctgl;
#X obj 219 346 lop~ 1;
#X text 24 312 modulator4 is a simple 4 channel sine lfo for use with lateefah_mod abstraction., f 22;
#X connect 17 0 18 0;
#X connect 18 0 22 0;
#X connect 19 0 20 0;
#X connect 21 0 18 0;
#X connect 23 0 24 0;
#X connect 24 0 32 0;
#X connect 25 0 24 1;
#X connect 26 0 25 0;
#X connect 27 0 32 1;
#X connect 28 0 27 0;
#X connect 32 0 33 0;
#X connect 33 0 29 0;
#X connect 34 0 35 0;
#X connect 35 0 33 1;
#X coords 0 -1 1 1 200 100 2 20 20;