-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathhabit~.pd
209 lines (209 loc) · 5.25 KB
/
habit~.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
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 203 25 1077 747 12;
#X obj 28 57 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 28 108 *~, f 29;
#X obj 6 250 out~;
#X obj 11 168 *~ 1;
#X obj 160 220 tabwrite~ \$0-buffer;
#X obj 189 161 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 40 562 tabread~ \$0-buffer;
#X obj 170 183 metro 60000;
#X text 819 231 scan;
#X msg 341 242 0;
#X obj 225 265 phasor~ 0.0166667;
#X obj 341 222 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 190 139 loadbang;
#N canvas 0 25 450 300 banger 0;
#X obj 44 53 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 80 108 del;
#X obj 44 77 t b b b;
#X obj 44 23 loadbang;
#X obj 41 162 spigot;
#X obj 41 186 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 41 206 outlet;
#X obj 183 132 inlet;
#X obj 183 156 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 101 48 random 8000;
#X obj 101 72 + 500;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 9 0;
#X connect 2 2 4 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 8 0 4 1;
#X connect 9 0 10 0;
#X connect 10 0 1 1;
#X restore 28 33 pd banger;
#X obj 27 13 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#N canvas 0 25 450 300 synth~ 1;
#X floatatom 86 66 5 0 0 0 - - -;
#X obj 155 210 mtof;
#X obj 291 90 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 161 153 \$1 80;
#X obj 161 177 line;
#X obj 85 119 saw~;
#X obj 325 65 loadbang;
#X obj 161 105 scaled 0 1 48 85;
#X obj 173 61 randwalk 200 6000;
#X obj 26 127 saw~;
#X obj 85 143 *~ 0.5;
#X obj 85 167 outlet~;
#X obj 25 96 * 1.008;
#X obj 161 129 quantizedmode phrygian 60;
#X connect 0 0 5 0;
#X connect 0 0 12 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 10 0;
#X connect 6 0 2 0;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 8 1 2 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 9 0;
#X connect 13 0 3 0;
#X restore 227 79 pd synth~;
#X obj 442 47 table \$0-buffer 2.646e+06;
#X obj 243 590 *~ 1;
#X obj 28 77 envgen~ 1 5 0.3 80 0 200;
#X text 353 267 exactly in line w/ write head;
#X obj 256 344 -~;
#X text 834 478 write head;
#X text 834 517 scan;
#X obj 46 531 *~ 2.646e+06;
#X obj 290 434 -~;
#X text 834 557 spread;
#X text 835 341 spread;
#X obj 272 534 tabread~ \$0-buffer;
#X obj 278 505 *~ 2.646e+06;
#X text 489 546 size;
#X obj 256 368 wrap~;
#X obj 290 458 wrap~;
#X obj 537 597 msphsl 0 1;
#X obj 666 470 snapshotter~ 0 1;
#X obj 666 510 snapshotter~ 0 1;
#X obj 666 550 snapshotter~ 0 1;
#X obj 699 256 debounce 50;
#X obj 710 364 debounce 50;
#X obj 444 547 hsl 40 20 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2300 1;
#X obj 441 596 * 60000;
#X obj 699 280 sig~;
#X obj 710 388 sig~;
#X obj 441 572 easeinsine;
#X obj 699 233 msphsl 0 0.999;
#X obj 710 341 msphsl 0 0.999;
#X obj 63 661 hip~;
#X floatatom 92 631 5 0 0 0 - - -;
#X obj 296 627 echowithsendreturn~, f 23;
#X obj 63 709 s~ \$0-affected-echo;
#X obj 283 585 r~ \$0-affected-echo;
#X text 656 597 feedback;
#X obj 461 716 s~ \$0-habit-feed;
#X obj 52 142 r~ \$0-habit-feed;
#X obj 458 677 pan~;
#X obj 653 660 msphsl 0 1;
#X obj 308 699 out~;
#X obj 63 685 vibrato~, f 20;
#X obj 553 90 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 553 114 kick~;
#X obj 575 88 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 715 110 snare~;
#X floatatom 779 89 5 0 0 0 - - -;
#X floatatom 738 63 5 0 0 0 - - -;
#X text 770 660 % to write back to buffer (habit send);
#X floatatom 792 53 5 0 0 0 - - -;
#X obj 316 29 metro 200;
#X obj 316 53 random 2;
#X obj 316 101 sel 0 1;
#X obj 315 6 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 456 651 *~;
#X obj 518 652 debounce;
#X obj 518 676 sig~;
#X text 636 629 level;
#X obj 517 629 msphsl 0 1 1;
#X obj 316 77 maybe 0.04;
#X connect 0 0 18 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 2 0;
#X connect 3 0 2 1;
#X connect 5 0 7 0;
#X connect 6 0 17 0;
#X connect 7 0 4 0;
#X connect 7 0 11 0;
#X connect 9 0 10 1;
#X connect 10 0 20 0;
#X connect 10 0 33 0;
#X connect 11 0 9 0;
#X connect 12 0 5 0;
#X connect 13 0 0 0;
#X connect 14 0 13 0;
#X connect 15 0 1 1;
#X connect 17 0 47 0;
#X connect 18 0 1 0;
#X connect 20 0 30 0;
#X connect 23 0 6 0;
#X connect 24 0 31 0;
#X connect 27 0 17 0;
#X connect 28 0 27 0;
#X connect 30 0 23 0;
#X connect 30 0 24 0;
#X connect 30 0 34 0;
#X connect 31 0 28 0;
#X connect 31 0 35 0;
#X connect 32 0 47 3;
#X connect 36 0 40 0;
#X connect 37 0 41 0;
#X connect 38 0 42 0;
#X connect 39 0 47 2;
#X connect 40 0 20 1;
#X connect 41 0 24 1;
#X connect 42 0 39 0;
#X connect 43 0 36 0;
#X connect 44 0 37 0;
#X connect 45 0 56 0;
#X connect 46 0 45 1;
#X connect 47 0 45 0;
#X connect 47 1 69 0;
#X connect 49 0 47 1;
#X connect 52 0 3 0;
#X connect 53 0 55 1;
#X connect 53 0 55 0;
#X connect 53 1 51 0;
#X connect 54 0 53 1;
#X connect 56 0 48 0;
#X connect 57 0 58 0;
#X connect 58 0 3 0;
#X connect 59 0 60 0;
#X connect 60 0 3 0;
#X connect 61 0 60 4;
#X connect 62 0 60 1;
#X connect 64 0 60 2;
#X connect 65 0 66 0;
#X connect 66 0 74 0;
#X connect 67 0 57 0;
#X connect 67 1 59 0;
#X connect 68 0 65 0;
#X connect 69 0 53 0;
#X connect 70 0 71 0;
#X connect 71 0 69 1;
#X connect 73 0 70 0;
#X connect 74 0 67 0;