small output fix
[0xa:adriangierakowskis-expr_ep.git] / winter_solstice.pd
1 #N canvas 557 173 323 214 10;
2 #X obj 13 139 dac~;
3 #N canvas 0 0 627 329 struct 0;
4 #X obj 174 218 expr~ floor($v1*8 \, 0);
5 #X obj 183 127 s~ phrase_freq;
6 #X obj 174 243 s~ phrase_count;
7 #X obj 85 218 s~ phrase_sig;
8 #X obj 85 63 s~ MAX-BAR;
9 #X obj 111 127 r~ MAX-BAR;
10 #X obj 85 127 /~;
11 #X obj 85 169 phasor~;
12 #X obj 85 82 sig~ 0.36;
13 #X obj 183 108 /~ 16;
14 #X obj 85 194 expr~ fmod($v1*$v2 \, 1);
15 #X obj 215 150 r~ MAX-BAR;
16 #X obj 215 175 /~ 8;
17 #X obj 343 215 s~ note_count;
18 #X obj 478 167 r~ MAX-BAR;
19 #X obj 344 188 expr~ floor($v1*$v2 \, 0);
20 #X msg 361 121 0;
21 #X obj 85 43 sig~ 73;
22 #X msg 203 41 \; pd dsp 1;
23 #X obj 203 16 loadbang;
24 #X obj 439 239 snapshot~;
25 #X obj 439 217 bang~;
26 #X obj 439 267 outlet;
27 #X obj 362 88 r RESET;
28 #X obj 311 34 inlet;
29 #X msg 405 128 0.4;
30 #X connect 0 0 2 0;
31 #X connect 5 0 6 1;
32 #X connect 6 0 7 0;
33 #X connect 7 0 10 0;
34 #X connect 7 0 15 0;
35 #X connect 7 0 20 0;
36 #X connect 8 0 6 0;
37 #X connect 8 0 9 0;
38 #X connect 9 0 1 0;
39 #X connect 10 0 3 0;
40 #X connect 10 0 0 0;
41 #X connect 11 0 12 0;
42 #X connect 12 0 10 1;
43 #X connect 14 0 15 1;
44 #X connect 15 0 13 0;
45 #X connect 16 0 7 1;
46 #X connect 17 0 4 0;
47 #X connect 19 0 18 0;
48 #X connect 20 0 22 0;
49 #X connect 21 0 20 0;
50 #X connect 23 0 16 0;
51 #X connect 24 0 16 0;
52 #X connect 25 0 7 1;
53 #X restore 13 44 pd struct;
54 #X obj 16 65 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
55 -1 -1 591 1;
56 #N canvas 101 521 315 245 synths 0;
57 #N canvas 268 90 1154 722 v2 0;
58 #X obj 43 192 sig~ 0;
59 #X obj 44 230 +~;
60 #X obj 45 268 mtof~;
61 #X obj 45 331 phasor~;
62 #X obj 59 130 expr~ $v1%4;
63 #X obj 60 101 expr~ floor($v1*8 \, 0);
64 #X obj 230 119 expr~ if($v1>3 \, 11 \, 5);
65 #X obj 60 161 expr~ if($v1==0 \, 0 \, if($v1==1 \, 7 \, if($v1==2 \,
66 $v2 \, $v3)) );
67 #X obj 45 310 *~ 1.01;
68 #X obj 44 250 +~ 48;
69 #X obj 45 289 lop~ 2;
70 #X obj 400 121 expr~ if($v1> 3 \, 4 \, -1);
71 #X obj 60 79 expr~ fmod($v1+$v2 \, 1);
72 #X obj 190 60 *~ 4;
73 #X obj 44 629 outlet~;
74 #X obj 189 36 r~ phrase_freq;
75 #X obj 61 49 r~ phrase_sig;
76 #X obj 275 401 expr~ fmod($v1*$v2 \, 1);
77 #X obj 404 312 *~;
78 #X obj 440 311 expr~ pow($v1 \, 2);
79 #X obj 406 238 expr~ (cos($v1*3.14159265*2)*0.5)+0.5;
80 #X obj 439 290 expr~ abs((abs($v1-0.5)*2)-1);
81 #X obj 438 270 expr~ fmod($v1*2 \, 1);
82 #X obj 405 268 *~ 5;
83 #X obj 407 217 expr~ fmod($v1*4 \, 1);
84 #X obj 44 399 expr~ if($v1>$v2 \, 1 \, 0);
85 #X obj 45 565 *~;
86 #X obj 60 545 lop~ 0.5;
87 #X obj 413 401 *~;
88 #X obj 443 399 expr~ if($v1>30&&$v1<64 \, $v2 \, 1);
89 #X obj 364 58 r~ note_count;
90 #X obj 676 232 expr~ floor($v1*16 \, 0)+$v2;
91 #X obj 984 166 expr~ if($v1<8 \, 1 \, 0);
92 #X obj 796 193 expr~ if($v1>30&&$v1<64 \, 1 \, $v2);
93 #X obj 678 320 expr~ if(!($v1%$v2) \, 8 \, 1);
94 #X obj 404 353 +~;
95 #X obj 60 524 expr~ if($v1>7&&$v1<68 \, 1 \, 0);
96 #X obj 676 91 expr~ fmod($v1*8 \, 1);
97 #X obj 982 128 expr~ floor($v1*16 \, 0);
98 #X obj 840 270 expr~ if($v1>51&&$v1<64 \, 8 \, 16);
99 #X obj 463 336 expr~ if($v1>51&&$v1<64 \, 3 \, 2);
100 #X obj 144 425 sig~ 0.2;
101 #X obj 44 479 expr~ $v1-($v2/2);
102 #X obj 45 451 *~;
103 #X connect 0 0 1 0;
104 #X connect 1 0 9 0;
105 #X connect 2 0 10 0;
106 #X connect 3 0 17 0;
107 #X connect 3 0 25 0;
108 #X connect 4 0 7 0;
109 #X connect 5 0 4 0;
110 #X connect 5 0 6 0;
111 #X connect 5 0 11 0;
112 #X connect 6 0 7 1;
113 #X connect 7 0 1 1;
114 #X connect 8 0 3 0;
115 #X connect 9 0 2 0;
116 #X connect 10 0 8 0;
117 #X connect 11 0 7 2;
118 #X connect 12 0 5 0;
119 #X connect 12 0 24 0;
120 #X connect 12 0 22 0;
121 #X connect 13 0 12 1;
122 #X connect 15 0 13 0;
123 #X connect 16 0 12 0;
124 #X connect 16 0 37 0;
125 #X connect 17 0 25 1;
126 #X connect 18 0 35 0;
127 #X connect 19 0 18 1;
128 #X connect 20 0 23 0;
129 #X connect 21 0 19 0;
130 #X connect 22 0 21 0;
131 #X connect 23 0 18 0;
132 #X connect 24 0 20 0;
133 #X connect 25 0 43 0;
134 #X connect 26 0 14 0;
135 #X connect 27 0 26 1;
136 #X connect 28 0 17 1;
137 #X connect 29 0 28 1;
138 #X connect 30 0 29 0;
139 #X connect 30 0 33 0;
140 #X connect 30 0 36 0;
141 #X connect 30 0 39 0;
142 #X connect 30 0 40 0;
143 #X connect 31 0 34 0;
144 #X connect 32 0 33 1;
145 #X connect 33 0 31 1;
146 #X connect 34 0 29 1;
147 #X connect 35 0 28 0;
148 #X connect 36 0 27 0;
149 #X connect 37 0 31 0;
150 #X connect 37 0 38 0;
151 #X connect 38 0 32 0;
152 #X connect 39 0 34 1;
153 #X connect 40 0 35 1;
154 #X connect 41 0 42 1;
155 #X connect 41 0 43 1;
156 #X connect 42 0 26 0;
157 #X connect 43 0 42 0;
158 #X restore 62 41 pd v2;
159 #N canvas 305 35 1118 748 v3 0;
160 #X obj 108 285 sig~ 0;
161 #X obj 109 323 +~;
162 #X obj 110 361 mtof~;
163 #X obj 110 424 phasor~;
164 #X obj 126 223 expr~ $v1%4;
165 #X obj 125 194 expr~ floor($v1*8 \, 0);
166 #X obj 110 403 *~ 1.01;
167 #X obj 110 382 lop~ 2;
168 #X obj 125 172 expr~ fmod($v1+$v2 \, 1);
169 #X obj 109 343 +~ 60;
170 #X obj 254 152 *~ 3;
171 #X obj 297 232 expr~ if($v1>3 \, 4 \, 4);
172 #X obj 473 233 expr~ if($v1> 3 \, 7 \, 12);
173 #X obj 127 254 expr~ if($v1==0 \, 7 \, if($v1==1 \, 0 \, if($v1==2
174 \, $v2 \, $v3)) );
175 #X obj 109 676 outlet~;
176 #X obj 108 28 r~ phrase_freq;
177 #X obj 27 78 r~ phrase_sig;
178 #X obj 245 492 expr~ fmod($v1*$v2 \, 1);
179 #X obj 375 424 +~ 2;
180 #X obj 375 403 *~;
181 #X obj 411 402 expr~ pow($v1 \, 2);
182 #X obj 377 329 expr~ (cos($v1*3.14159265*2)*0.5)+0.5;
183 #X obj 410 381 expr~ abs((abs($v1-0.5)*2)-1);
184 #X obj 409 361 expr~ fmod($v1*2 \, 1);
185 #X obj 376 359 *~ 5;
186 #X obj 378 308 expr~ fmod($v1*4 \, 1);
187 #X obj 109 532 expr~ if($v1>$v2 \, 1 \, 0);
188 #X obj 110 636 *~;
189 #X obj 285 553 lop~ 0.5;
190 #X obj 374 463 *~;
191 #X obj 602 437 expr~ if($v1 \, $v2 \, 1);
192 #X obj 601 340 expr~ floor($v1*32 \, 0);
193 #X obj 414 456 expr~ if($v1>23&&$v1<64 \, $v2 \, 1);
194 #X obj 602 378 expr~ if(!($v1%$v2) \, 1 \, 0);
195 #X obj 335 79 r~ note_count;
196 #X obj 285 531 expr~ if($v1>15&&$v1<70 \, 1 \, 0);
197 #X obj 723 399 expr~ floor($v1*128 \, 0);
198 #X obj 723 417 expr~ if(!($v1%2) \, 4 \, 1);
199 #X obj 754 355 expr~ if($v1>47&&$v1<64 \, 2 \, 4);
200 #X obj 207 571 sig~ 0.2;
201 #X obj 109 597 expr~ $v1-($v2/2);
202 #X obj 108 555 *~;
203 #X connect 0 0 1 0;
204 #X connect 1 0 9 0;
205 #X connect 2 0 7 0;
206 #X connect 3 0 17 0;
207 #X connect 3 0 26 0;
208 #X connect 4 0 13 0;
209 #X connect 5 0 4 0;
210 #X connect 5 0 11 0;
211 #X connect 5 0 12 0;
212 #X connect 6 0 3 0;
213 #X connect 7 0 6 0;
214 #X connect 8 0 5 0;
215 #X connect 8 0 25 0;
216 #X connect 8 0 23 0;
217 #X connect 9 0 2 0;
218 #X connect 10 0 8 1;
219 #X connect 11 0 13 1;
220 #X connect 12 0 13 2;
221 #X connect 13 0 1 1;
222 #X connect 15 0 10 0;
223 #X connect 16 0 8 0;
224 #X connect 16 0 31 0;
225 #X connect 16 0 36 0;
226 #X connect 17 0 26 1;
227 #X connect 18 0 29 0;
228 #X connect 19 0 18 0;
229 #X connect 20 0 19 1;
230 #X connect 21 0 24 0;
231 #X connect 22 0 20 0;
232 #X connect 23 0 22 0;
233 #X connect 24 0 19 0;
234 #X connect 25 0 21 0;
235 #X connect 26 0 41 0;
236 #X connect 27 0 14 0;
237 #X connect 28 0 27 1;
238 #X connect 29 0 17 1;
239 #X connect 30 0 32 1;
240 #X connect 31 0 33 0;
241 #X connect 32 0 29 1;
242 #X connect 33 0 30 0;
243 #X connect 34 0 32 0;
244 #X connect 34 0 35 0;
245 #X connect 34 0 38 0;
246 #X connect 35 0 28 0;
247 #X connect 36 0 37 0;
248 #X connect 37 0 30 1;
249 #X connect 38 0 33 1;
250 #X connect 39 0 40 1;
251 #X connect 39 0 41 1;
252 #X connect 40 0 27 0;
253 #X connect 41 0 40 0;
254 #X restore 100 42 pd v3;
255 #N canvas 247 0 1106 729 v1 0;
256 #X obj 58 269 sig~ 0;
257 #X obj 59 323 +~;
258 #X obj 60 361 mtof~;
259 #X obj 63 458 phasor~;
260 #X obj 76 149 expr~ floor($v1*8 \, 0);
261 #X obj 75 195 expr~ $v1%4;
262 #X obj 246 174 expr~ if($v1> 3 \, -1 \, 7);
263 #X obj 416 174 expr~ if($v1> 3 \, 0 \, 4);
264 #X obj 76 237 expr~ if($v1==0 \, 0 \, if($v1==1 \, 2 \, if($v1==2 \,
265 $v2 \, $v3)) );
266 #X obj 120 339 s~ base;
267 #X obj 60 343 +~ 36;
268 #X obj 256 366 lop~ 2;
269 #X obj 198 488 expr~ fmod($v1*$v2 \, 1);
270 #X obj 63 512 expr~ if($v1>$v2 \, 1 \, 0);
271 #X obj 367 430 +~ 2;
272 #X obj 367 409 *~;
273 #X obj 403 408 expr~ pow($v1 \, 2);
274 #X obj 62 624 outlet~;
275 #X obj 77 121 r~ phrase_sig;
276 #X obj 369 335 expr~ (cos($v1*3.14159265*2)*0.5)+0.5;
277 #X obj 402 387 expr~ abs((abs($v1-0.5)*2)-1);
278 #X obj 401 367 expr~ fmod($v1*2 \, 1);
279 #X obj 368 365 *~ 5;
280 #X obj 370 314 expr~ fmod($v1*4 \, 1);
281 #X obj 642 85 expr~ fmod($v1*8 \, 1);
282 #X obj 367 449 *~;
283 #X obj 416 463 expr~ if($v1>38&&$v1<64 \, $v2 \, 1);
284 #X obj 82 535 expr~ ($v1-0.5)*2;
285 #X obj 659 372 expr~ floor($v1*$v2 \, 0);
286 #X obj 660 331 expr~ fmod($v1+(1/8.0) \, 1);
287 #X obj 364 58 r~ note_count;
288 #X obj 144 390 *~;
289 #X obj 65 411 expr~ if($v1==72 \, $v2 \, if($v1==0 \, $v3 \, $v4))
290 ;
291 #X obj 223 389 *~;
292 #X obj 639 229 expr~ -pow(2 \, -(2*10)*$v1)+1;
293 #X obj 491 220 expr~ pow(abs($v1-1) \, 1);
294 #X obj 818 166 expr~ if($v1>55&&$v1<64 \, 16 \, 8);
295 #X obj 660 425 expr~ if(!($v1%$v2) \, $v3 \, 1);
296 #X obj 862 392 expr~ if($v1>55&&$v1<64 \, 32 \, 16);
297 #X obj 844 311 expr~ if($v1>55&&$v1<64 \, 4 \, 8);
298 #X obj 160 571 sig~ 0.2;
299 #X obj 62 575 *~;
300 #X obj 62 598 expr~ $v1-($v2/2);
301 #X connect 0 0 1 0;
302 #X connect 1 0 9 0;
303 #X connect 1 0 10 0;
304 #X connect 2 0 11 0;
305 #X connect 2 0 31 0;
306 #X connect 2 0 33 0;
307 #X connect 3 0 13 0;
308 #X connect 3 0 12 0;
309 #X connect 4 0 5 0;
310 #X connect 4 0 6 0;
311 #X connect 4 0 7 0;
312 #X connect 5 0 8 0;
313 #X connect 6 0 8 1;
314 #X connect 7 0 8 2;
315 #X connect 8 0 1 1;
316 #X connect 10 0 2 0;
317 #X connect 11 0 32 3;
318 #X connect 12 0 13 1;
319 #X connect 13 0 41 0;
320 #X connect 14 0 25 0;
321 #X connect 15 0 14 0;
322 #X connect 16 0 15 1;
323 #X connect 18 0 4 0;
324 #X connect 18 0 21 0;
325 #X connect 18 0 23 0;
326 #X connect 18 0 24 0;
327 #X connect 19 0 22 0;
328 #X connect 20 0 16 0;
329 #X connect 21 0 20 0;
330 #X connect 22 0 15 0;
331 #X connect 23 0 19 0;
332 #X connect 24 0 29 0;
333 #X connect 24 0 34 0;
334 #X connect 24 0 35 0;
335 #X connect 25 0 12 1;
336 #X connect 26 0 25 1;
337 #X connect 28 0 37 0;
338 #X connect 29 0 28 0;
339 #X connect 30 0 26 0;
340 #X connect 30 0 32 0;
341 #X connect 30 0 36 0;
342 #X connect 30 0 38 0;
343 #X connect 30 0 39 0;
344 #X connect 31 0 32 1;
345 #X connect 32 0 3 0;
346 #X connect 33 0 32 2;
347 #X connect 34 0 33 1;
348 #X connect 35 0 31 1;
349 #X connect 36 0 28 1;
350 #X connect 37 0 26 1;
351 #X connect 38 0 37 2;
352 #X connect 39 0 37 1;
353 #X connect 40 0 41 1;
354 #X connect 40 0 42 1;
355 #X connect 41 0 42 0;
356 #X connect 42 0 17 0;
357 #X restore 25 40 pd v1;
358 #N canvas 0 0 1091 852 v4 0;
359 #X obj 108 285 sig~ 0;
360 #X obj 109 323 +~;
361 #X obj 110 381 mtof~;
362 #X obj 110 444 phasor~;
363 #X obj 125 194 expr~ floor($v1*8 \, 0);
364 #X obj 110 402 lop~ 2;
365 #X obj 125 142 expr~ fmod($v1+$v2 \, 1);
366 #X obj 108 706 outlet~;
367 #X obj 108 28 r~ phrase_freq;
368 #X obj 27 78 r~ phrase_sig;
369 #X obj 516 440 expr~ (cos($v1*3.14159265*2)*0.5)+0.5;
370 #X obj 109 532 expr~ if($v1>$v2 \, 1 \, 0);
371 #X obj 108 669 *~;
372 #X obj 514 514 *~;
373 #X obj 741 548 expr~ if($v1 \, $v2 \, 1);
374 #X obj 554 567 expr~ if($v1>23&&$v1<64 \, $v2 \, 1);
375 #X obj 741 492 expr~ if(!($v1%$v2) \, 1 \, 0);
376 #X obj 819 231 r~ note_count;
377 #X obj 445 147 sig~ 7;
378 #X obj 367 56 sig~ 0;
379 #X obj 427 128 sig~ 5;
380 #X obj 400 106 sig~ 4;
381 #X obj 491 221 sig~ 12;
382 #X obj 124 224 expr~ if($v1==0 \, $v2 \, if($v1==1 \, $v3 \, if($v1==2
383 \, $v4 \, if($v1==3 \, $v5 \, if($v1==4 \, $v6 \, if($v1==5 \, $v7
384 \, if($v1==6 \, $v8 \, $v9)))))));
385 #X obj 379 82 sig~ 9;
386 #X obj 479 196 sig~ 4;
387 #X obj 462 171 sig~ 0;
388 #X obj 245 402 expr~ (cos($v1*3.14159265*2)*0.5)+0.5;
389 #X obj 110 424 +~;
390 #X obj 246 429 expr~ $v1*$v2;
391 #X obj 246 381 expr~ fmod($v1*128 \, 1);
392 #X obj 517 419 expr~ fmod($v1*256 \, 1);
393 #X obj 515 490 expr~ ($v1*0.1)+0.1;
394 #X obj 862 510 expr~ floor($v1*128 \, 0);
395 #X obj 893 459 expr~ if($v1>47&&$v1<64 \, 2 \, 2);
396 #X obj 740 454 expr~ floor($v1*16 \, 0);
397 #X obj 553 620 lop~ 500;
398 #X obj 863 529 expr~ if(!($v1%2) \, 0.1 \, 1);
399 #X obj 253 91 *~ 0;
400 #X obj 356 425 sig~ 15;
401 #X obj 110 344 +~ 84;
402 #X obj 124 628 expr~ if($v1>55&&$v1<72 \, 1 \, 0);
403 #X obj 124 649 lop~ 0.5;
404 #X obj 210 325 expr~ if($v1>70 \, 12 \, $v2);
405 #X obj 206 557 sig~ 0.2;
406 #X obj 108 583 expr~ $v1-($v2/2);
407 #X obj 109 553 *~;
408 #X connect 0 0 1 0;
409 #X connect 1 0 40 0;
410 #X connect 2 0 5 0;
411 #X connect 3 0 11 0;
412 #X connect 4 0 23 0;
413 #X connect 5 0 28 0;
414 #X connect 6 0 4 0;
415 #X connect 6 0 30 0;
416 #X connect 6 0 31 0;
417 #X connect 8 0 38 0;
418 #X connect 9 0 6 0;
419 #X connect 9 0 33 0;
420 #X connect 9 0 35 0;
421 #X connect 10 0 32 0;
422 #X connect 11 0 46 0;
423 #X connect 12 0 7 0;
424 #X connect 13 0 11 1;
425 #X connect 14 0 15 1;
426 #X connect 15 0 36 0;
427 #X connect 16 0 14 0;
428 #X connect 17 0 15 0;
429 #X connect 17 0 34 0;
430 #X connect 17 0 41 0;
431 #X connect 17 0 43 0;
432 #X connect 18 0 23 5;
433 #X connect 19 0 23 1;
434 #X connect 20 0 23 4;
435 #X connect 21 0 23 3;
436 #X connect 22 0 23 8;
437 #X connect 23 0 43 1;
438 #X connect 24 0 23 2;
439 #X connect 25 0 23 7;
440 #X connect 26 0 23 6;
441 #X connect 27 0 29 0;
442 #X connect 28 0 3 0;
443 #X connect 29 0 28 1;
444 #X connect 30 0 27 0;
445 #X connect 31 0 10 0;
446 #X connect 32 0 13 0;
447 #X connect 33 0 37 0;
448 #X connect 34 0 16 1;
449 #X connect 35 0 16 0;
450 #X connect 36 0 13 1;
451 #X connect 37 0 14 1;
452 #X connect 38 0 6 1;
453 #X connect 39 0 29 1;
454 #X connect 40 0 2 0;
455 #X connect 41 0 42 0;
456 #X connect 42 0 12 1;
457 #X connect 43 0 1 1;
458 #X connect 44 0 45 1;
459 #X connect 44 0 46 1;
460 #X connect 45 0 12 0;
461 #X connect 46 0 45 0;
462 #X restore 138 42 pd v4;
463 #X obj 25 101 s~ snd;
464 #X connect 0 0 4 0;
465 #X connect 1 0 4 0;
466 #X connect 2 0 4 0;
467 #X connect 3 0 4 0;
468 #X restore 13 89 pd synths;
469 #N canvas 534 432 470 298 rec 0;
470 #X obj 54 42 r~ snd;
471 #X obj 55 159 writesf~ 2;
472 #X msg 174 84 open \$1;
473 #X obj 174 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
474 -1;
475 #X obj 270 58 t b b;
476 #X msg 270 86 start;
477 #X obj 297 112 s RESET;
478 #X obj 336 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
479 -1;
480 #X msg 343 76 stop;
481 #X obj 270 30 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
482 -1;
483 #X obj 300 39 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
484 -1;
485 #X obj 174 60 savepanel;
486 #X connect 0 0 1 0;
487 #X connect 0 0 1 1;
488 #X connect 2 0 1 0;
489 #X connect 3 0 11 0;
490 #X connect 4 0 5 0;
491 #X connect 4 1 6 0;
492 #X connect 5 0 1 0;
493 #X connect 7 0 6 0;
494 #X connect 8 0 1 0;
495 #X connect 9 0 4 0;
496 #X connect 10 0 6 0;
497 #X connect 11 0 2 0;
498 #X restore 73 44 pd rec;
499 #X obj 13 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
500 -1;
501 #X obj 13 116 r~ snd;
502 #X connect 1 0 2 0;
503 #X connect 5 0 1 0;
504 #X connect 6 0 0 0;
505 #X connect 6 0 0 1;