-
Notifications
You must be signed in to change notification settings - Fork 0
/
hoc.disto~.pd
98 lines (98 loc) · 2.18 KB
/
hoc.disto~.pd
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
#N canvas 33 29 1015 647 10;
#X obj 238 298 *~;
#X obj 238 488 clip~ -1 1;
#X obj 238 204 inlet~;
#X obj 238 557 outlet~;
#X obj 316 260 \$1;
#X obj 316 230 loadbang;
#X obj 418 230 inlet disto;
#X obj 418 415 * -1;
#X obj 418 435 + 1;
#X obj 319 436 * -1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-transfert 256 float 2;
#X coords 0 0 255 1 200 140 1 0 0;
#X restore 581 337 graph;
#X obj 418 394 tabread4 \$0-transfert;
#X obj 418 370 * 256;
#X obj 304 328 + 0.155;
#X obj 304 374 * 30;
#X obj 304 399 clip 1 500;
#X obj 303 347 pow 3;
#X obj 418 312 f;
#N canvas 0 50 450 300 create-function 0;
#X obj 22 344 tabwrite \$0-transfert;
#X obj 166 310 clip 0 256;
#X obj 21 177 / 256;
#X obj 22 120 0;
#X obj 58 118 + 1;
#X obj 106 104 > 256;
#X msg 153 114 stop;
#X msg 54 66 0;
#X obj 22 41 t b b;
#X obj 21 157 t f f;
#X obj 105 126 sel 1;
#X obj 22 88 metro 1;
#X obj 22 319 clip 0 1;
#X obj 21 198 sqrt;
#X obj 21 220 sqrt;
#X obj 21 267 sin;
#X obj 21 246 sin;
#X obj 21 17 loadbang;
#X obj 21 293 - 0.25;
#X connect 1 0 0 1;
#X connect 2 0 13 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 3 0 9 0;
#X connect 4 0 3 1;
#X connect 5 0 10 0;
#X connect 6 0 11 0;
#X connect 7 0 3 0;
#X connect 8 0 11 0;
#X connect 8 1 7 0;
#X connect 9 0 2 0;
#X connect 9 1 1 0;
#X connect 10 0 6 0;
#X connect 11 0 3 0;
#X connect 12 0 0 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 15 0;
#X connect 17 0 8 0;
#X connect 18 0 12 0;
#X restore 581 286 pd create-function;
#X obj 238 267 hipp~ 80;
#X obj 415 538 + 1;
#X obj 415 561 pack f 20;
#X obj 415 583 line~;
#X obj 238 531 *~;
#X obj 415 515 * -0.1;
#X obj 426 493 clip 0 1;
#X connect 0 0 1 0;
#X connect 1 0 23 0;
#X connect 2 0 19 0;
#X connect 4 0 17 0;
#X connect 5 0 4 0;
#X connect 6 0 17 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 1 2;
#X connect 9 0 1 1;
#X connect 11 0 7 0;
#X connect 12 0 11 0;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 15 0 0 1;
#X connect 16 0 14 0;
#X connect 17 0 13 0;
#X connect 17 0 12 0;
#X connect 17 0 25 0;
#X connect 19 0 0 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 1;
#X connect 23 0 3 0;
#X connect 24 0 20 0;
#X connect 25 0 24 0;