small output fix
[0xa:adriangierakowskis-expr_ep.git] / nandsynth.pd
1 #N canvas 391 487 415 196 10;
2 #N canvas 371 136 800 387 synth 0;
3 #X obj 26 74 phasor~ 1;
4 #X obj 26 93 expr~ if($v1<0.5 \, 0 \, 1);
5 #X obj 170 74 phasor~ 1;
6 #X obj 170 93 expr~ if($v1<0.5 \, 0 \, 1);
7 #X obj 24 322 dac~;
8 #X obj 352 47 phasor~ 1;
9 #X obj 352 73 expr~ if($v1<0.5 \, 0 \, 1);
10 #X obj 496 47 phasor~ 1;
11 #X obj 496 73 expr~ if($v1<0.5 \, 0 \, 1);
12 #X obj 141 164 phasor~ 1;
13 #X obj 141 190 expr~ if($v1<0.5 \, 0 \, 1);
14 #X obj 285 164 phasor~ 1;
15 #X obj 285 190 expr~ if($v1<0.5 \, 0 \, 1);
16 #X obj 439 170 phasor~ 1;
17 #X obj 439 190 expr~ if($v1<0.5 \, 0 \, 1);
18 #X obj 583 170 phasor~ 1;
19 #X obj 583 190 expr~ if($v1<0.5 \, 0 \, 1);
20 #X obj 27 45 *~;
21 #X obj 170 55 *~;
22 #X obj 496 27 *~;
23 #X obj 141 143 *~;
24 #X obj 285 144 *~;
25 #X obj 583 151 *~;
26 #X obj 27 19 r~ notes;
27 #X obj 51 45 r~ mod1;
28 #X obj 194 55 r~ mod2;
29 #X obj 520 27 r~ mod3;
30 #X obj 165 143 r~ mod4;
31 #X obj 309 144 r~ mod5;
32 #X obj 607 151 r~ mod6;
33 #X obj 26 118 expr~ $v1 &&$v2;
34 #X obj 141 214 expr~ $v1 &&$v2;
35 #X obj 438 213 expr~ $v1 &&$v2;
36 #X obj 352 93 expr~ $v1 &&$v2;
37 #X obj 25 178 expr~ ($v1-0.5)*2;
38 #X obj 352 111 expr~ ($v1-0.5)*2;
39 #X obj 141 237 expr~ ($v1-0.5)*2;
40 #X obj 438 231 expr~ ($v1-0.5)*2;
41 #X obj 54 322 s~ snd;
42 #X obj 24 270 *~ 0.1;
43 #X connect 0 0 1 0;
44 #X connect 1 0 30 0;
45 #X connect 2 0 3 0;
46 #X connect 3 0 30 1;
47 #X connect 5 0 6 0;
48 #X connect 6 0 33 0;
49 #X connect 7 0 8 0;
50 #X connect 8 0 33 1;
51 #X connect 9 0 10 0;
52 #X connect 10 0 31 0;
53 #X connect 11 0 12 0;
54 #X connect 12 0 31 1;
55 #X connect 13 0 14 0;
56 #X connect 14 0 32 0;
57 #X connect 15 0 16 0;
58 #X connect 16 0 32 1;
59 #X connect 17 0 0 0;
60 #X connect 17 0 5 0;
61 #X connect 18 0 2 0;
62 #X connect 19 0 7 0;
63 #X connect 20 0 9 0;
64 #X connect 20 0 13 0;
65 #X connect 21 0 11 0;
66 #X connect 22 0 15 0;
67 #X connect 23 0 17 0;
68 #X connect 23 0 20 0;
69 #X connect 23 0 22 0;
70 #X connect 23 0 21 0;
71 #X connect 23 0 19 0;
72 #X connect 23 0 18 0;
73 #X connect 24 0 17 1;
74 #X connect 25 0 18 1;
75 #X connect 26 0 19 1;
76 #X connect 27 0 20 1;
77 #X connect 28 0 21 1;
78 #X connect 29 0 22 1;
79 #X connect 30 0 34 0;
80 #X connect 31 0 36 0;
81 #X connect 32 0 37 0;
82 #X connect 33 0 35 0;
83 #X connect 34 0 39 0;
84 #X connect 35 0 39 0;
85 #X connect 36 0 39 0;
86 #X connect 37 0 39 0;
87 #X connect 39 0 4 0;
88 #X connect 39 0 4 1;
89 #X connect 39 0 38 0;
90 #X restore 21 96 pd synth;
91 #X obj 24 78 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
92 -1 -1 4597 1;
93 #N canvas 254 217 1171 638 controls 0;
94 #X obj 13 249 mtof~;
95 #X obj 13 231 +~;
96 #X obj 29 101 expr~ if(!$v1 \, 48 \, $v2);
97 #X obj 164 81 expr~ if($v1 \, 44 \, 46);
98 #X obj 527 280 expr~ if($v1<8 \, 1 \, $v2);
99 #X obj 663 243 expr~ floor($v1*$v2 \, 0)%5%3;
100 #X obj 286 464 *~ 1;
101 #X obj 12 525 lop~ 2;
102 #X obj 60 556 lop~ 2;
103 #X obj 114 590 lop~ 2;
104 #X obj 823 222 expr~ if(($v1<12 || $v1>15)&&$v1<22 \, 8 \, 16);
105 #X obj 663 261 expr~ if(!$v1 \, 1 \, $v2);
106 #X obj 13 269 s~ notes;
107 #X obj 527 316 s~ mod1;
108 #X obj 526 128 s~ mod2;
109 #X obj 526 149 s~ mod3;
110 #X obj 12 555 s~ mod4;
111 #X obj 60 574 s~ mod5;
112 #X obj 114 608 s~ mod6;
113 #X obj 660 81 expr~ if(($v1>3 && $v1<16)||($v1>23&&$v1<32)||($v1>35&&$v1<64)
114 \, random(1000 \, 0)/100.0 \, 1.001);
115 #X obj 755 124 expr~ if(($v1>3 && $v1<16)||($v1>23&&$v1<32)||($v1>35&&$v1<64)
116 \, random(1000 \, 0)/50.0 \, 0.999);
117 #X obj 327 125 expr~ if($v1%2 \, 1 \, 3);
118 #X obj 803 292 lop~ 8;
119 #X obj 181 462 *~;
120 #X obj 232 464 *~;
121 #X obj 247 445 expr~ if($v1>39&&$v1<48 \, 0.501 \, 0.98);
122 #X obj 197 424 expr~ if($v1>39&&$v1<48 \, 1.999 \, 1.02);
123 #X obj 171 149 expr~ if($v1<32 \, 3 \, if(($v1>31&&$v1<36) || ($v1>39
124 && $v1<44) || $v1>47 \, 1 \, $v2));
125 #X obj 574 128 expr~ if($v1%$v3 \, 1.001 \, $v2);
126 #X obj 574 148 expr~ if($v1%$v3 \, 0.999 \, $v2);
127 #X obj 11 9 r~ sig;
128 #X obj 13 377 r~ sig;
129 #X obj 527 183 r~ sig;
130 #X obj 574 15 r~ sig;
131 #X obj 13 181 expr~ floor($v1*8 \, 0)%5%$v2;
132 #X obj 114 558 expr~ if($v1<16 || ($v1>23&&$v1<40) || ($v1>47&&$v1<52)
133 || $v1>55 \, $v3 \, $v2);
134 #X obj 61 523 expr~ if($v1<16 || ($v1>23&&$v1<40) || ($v1>47&&$v1<52)
135 || $v1>55 \, $v3 \, $v2);
136 #X obj 13 489 expr~ if(($v1<16) || ($v1>23&&$v1<40) || ($v1>47&&$v1<52)
137 || $v1>55 \, $v3 \, $v2);
138 #X obj 527 298 lop~ 50;
139 #X obj 613 447 expr~ (floor($v1*$v2 \, 0)%4)+1;
140 #X obj 28 38 expr~ floor($v1*72 \, 0)%2;
141 #X obj 12 68 expr~ fmod($v1*72 \, 1);
142 #X obj 171 123 expr~ floor($v1*72 \, 0);
143 #X obj 574 41 expr~ fmod($v1*72 \, 1);
144 #X obj 822 44 expr~ floor($v1*72 \, 0);
145 #X obj 527 202 expr~ floor($v1*72 \, 0);
146 #X obj 12 426 expr~ floor($v1*72 \, 0);
147 #X obj 468 350 expr~ floor($v1*144 \, 0)%2;
148 #X obj 822 62 expr~ if($v1>31&&$v1<48 \, 4 \, 2);
149 #X obj 574 59 expr~ floor($v1*32 \, 0);
150 #X obj 164 59 expr~ floor($v1*36 \, 0)%2;
151 #X obj 181 405 expr~ (floor($v1*144 \, 0)%5%3)+1;
152 #X obj 663 223 expr~ fmod($v1*72 \, 1);
153 #X obj 327 107 expr~ floor($v1*288 \, 0);
154 #X obj 801 261 expr~ if(($v1>21&&$v1<24)||($v1>29&&$v1<32) || ($v1>47
155 && $v1<56) \, 4*(($v1%2)+1) \, if($v1<64 \, 3 \, 1));
156 #X obj 405 490 expr~ if($v1>55&&$v1<72 \, $v2*1.25 \, 1.01);
157 #X obj 458 512 expr~ if($v1>55&&$v1<72 \, $v2*1.5 \, 0.25);
158 #X obj 537 370 expr~ if($v1<68 \, $v2*2 \, $v2);
159 #X obj 703 349 sig~ 72;
160 #X obj 605 390 expr~ if($v1<68 \, $v2*4 \, $v2*2);
161 #X obj 469 409 expr~ if($v1 \, $v2 \, $v3);
162 #X obj 13 201 expr~ if($v1==0 \, 0 \, if($v1==1 || $v1==3 || $v1==5
163 \, 7 \, if($v1==2 || $v1==6 \, 5 \, if($v1==4 \, 11 \, 4))));
164 #X obj 393 469 expr~ if($v1>55&&$v1<72 \, $v2*2 \, 0.99);
165 #X connect 0 0 12 0;
166 #X connect 1 0 0 0;
167 #X connect 2 0 1 1;
168 #X connect 3 0 2 1;
169 #X connect 4 0 38 0;
170 #X connect 5 0 11 0;
171 #X connect 6 0 35 1;
172 #X connect 7 0 16 0;
173 #X connect 8 0 17 0;
174 #X connect 9 0 18 0;
175 #X connect 10 0 5 1;
176 #X connect 11 0 4 1;
177 #X connect 19 0 28 1;
178 #X connect 20 0 29 1;
179 #X connect 21 0 27 1;
180 #X connect 22 0 11 1;
181 #X connect 23 0 37 1;
182 #X connect 24 0 36 1;
183 #X connect 25 0 24 1;
184 #X connect 26 0 23 1;
185 #X connect 27 0 34 1;
186 #X connect 28 0 14 0;
187 #X connect 29 0 15 0;
188 #X connect 30 0 40 0;
189 #X connect 30 0 41 0;
190 #X connect 30 0 42 0;
191 #X connect 30 0 50 0;
192 #X connect 30 0 53 0;
193 #X connect 31 0 39 0;
194 #X connect 31 0 46 0;
195 #X connect 31 0 47 0;
196 #X connect 31 0 51 0;
197 #X connect 31 0 59 0;
198 #X connect 32 0 45 0;
199 #X connect 32 0 52 0;
200 #X connect 33 0 43 0;
201 #X connect 33 0 44 0;
202 #X connect 34 0 61 0;
203 #X connect 35 0 9 0;
204 #X connect 36 0 8 0;
205 #X connect 37 0 7 0;
206 #X connect 38 0 13 0;
207 #X connect 39 0 55 1;
208 #X connect 39 0 56 1;
209 #X connect 39 0 62 1;
210 #X connect 40 0 2 0;
211 #X connect 41 0 34 0;
212 #X connect 42 0 27 0;
213 #X connect 43 0 49 0;
214 #X connect 44 0 19 0;
215 #X connect 44 0 20 0;
216 #X connect 44 0 48 0;
217 #X connect 45 0 10 0;
218 #X connect 45 0 4 0;
219 #X connect 45 0 54 0;
220 #X connect 46 0 25 0;
221 #X connect 46 0 26 0;
222 #X connect 46 0 35 0;
223 #X connect 46 0 36 0;
224 #X connect 46 0 37 0;
225 #X connect 46 0 55 0;
226 #X connect 46 0 56 0;
227 #X connect 46 0 57 0;
228 #X connect 46 0 62 0;
229 #X connect 47 0 60 0;
230 #X connect 48 0 28 2;
231 #X connect 48 0 29 2;
232 #X connect 49 0 28 0;
233 #X connect 49 0 29 0;
234 #X connect 50 0 3 0;
235 #X connect 51 0 6 0;
236 #X connect 51 0 23 0;
237 #X connect 51 0 24 0;
238 #X connect 52 0 5 0;
239 #X connect 53 0 21 0;
240 #X connect 54 0 22 0;
241 #X connect 55 0 36 2;
242 #X connect 56 0 35 2;
243 #X connect 57 0 60 1;
244 #X connect 58 0 57 1;
245 #X connect 58 0 59 1;
246 #X connect 59 0 60 2;
247 #X connect 60 0 39 1;
248 #X connect 61 0 1 0;
249 #X connect 62 0 37 2;
250 #X restore 21 115 pd controls;
251 #N canvas 586 103 444 249 init 0;
252 #X obj 21 89 phasor~;
253 #X obj 21 108 s~ sig;
254 #X obj 82 139 bang~;
255 #X obj 21 139 snapshot~;
256 #X obj 21 170 outlet;
257 #X obj 132 21 inlet;
258 #X msg 132 40 0;
259 #X obj 192 40 r RESET;
260 #X obj 210 76 sig~ 72;
261 #X obj 21 69 expr~ 0.6/$v1;
262 #X obj 64 107 expr~ floor($v1*$v2*4 \, 0);
263 #X obj 160 161 expr~ if($v1>(($v2-1)*4)+2 \, $v2*4 \, $v2);
264 #X obj 159 191 s~ time;
265 #X obj 21 50 r~ time;
266 #X connect 0 0 1 0;
267 #X connect 0 0 3 0;
268 #X connect 0 0 10 0;
269 #X connect 2 0 3 0;
270 #X connect 3 0 4 0;
271 #X connect 5 0 6 0;
272 #X connect 6 0 0 1;
273 #X connect 7 0 6 0;
274 #X connect 8 0 10 1;
275 #X connect 8 0 11 1;
276 #X connect 9 0 0 0;
277 #X connect 10 0 11 0;
278 #X connect 11 0 12 0;
279 #X connect 13 0 9 0;
280 #X restore 21 58 pd init;
281 #X obj 21 38 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
282 -1;
283 #N canvas 752 406 450 300 rec 0;
284 #X obj 46 70 r~ snd;
285 #X obj 47 197 writesf~ 2;
286 #X obj 152 98 savepanel;
287 #X msg 152 117 open \$1;
288 #X obj 152 66 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
289 -1;
290 #X obj 234 86 t b b;
291 #X obj 261 127 s RESET;
292 #X msg 234 147 start;
293 #X msg 342 147 stop;
294 #X obj 234 56 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
295 -1;
296 #X connect 0 0 1 0;
297 #X connect 0 0 1 1;
298 #X connect 2 0 3 0;
299 #X connect 3 0 1 0;
300 #X connect 4 0 2 0;
301 #X connect 5 0 7 0;
302 #X connect 5 1 6 0;
303 #X connect 7 0 1 0;
304 #X connect 8 0 1 0;
305 #X connect 9 0 5 0;
306 #X restore 69 58 pd rec;
307 #X connect 3 0 1 0;
308 #X connect 4 0 3 0;