-
Notifications
You must be signed in to change notification settings - Fork 0
/
chopper~-help.pd
202 lines (202 loc) · 5.87 KB
/
chopper~-help.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
#N canvas 543 159 539 382 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array sound1 62079 float 2;
#X coords 0 1 62079 -1 100 70 1;
#X restore 21 88 graph;
#X obj 103 218 chopper~ sound1;
#X obj 103 295 dac~;
#N canvas 745 473 502 352 messages 0;
#N canvas 128 60 560 676 basic 0;
#X obj 49 335 outlet;
#X msg 49 106 force_new;
#X msg 128 107 lockme \$1;
#X obj 128 69 tgl 30 0 empty empty empty 0 -6 0 8 -257985 -1 -1 0 1
;
#X floatatom 200 132 5 0 0 0 - minincr -, f 5;
#X floatatom 322 130 5 0 0 0 - maxincr -, f 5;
#X floatatom 329 228 5 0 0 0 - minseg -, f 5;
#X floatatom 432 228 5 0 0 0 - maxseg -, f 5;
#X msg 329 249 set_minseg \$1;
#X msg 432 249 set_maxseg \$1;
#X msg 322 151 set_maxincr \$1;
#X msg 200 153 set_minincr \$1;
#X obj 53 380 hsl 128 15 0.1 0.9999 0 0 minincr minincr-init minincr
-2 -6 0 8 -252672 -1 -1 5645 1;
#X obj 53 411 hsl 128 15 1.0001 10 0 0 maxincr maxincr-init maxincr
-2 -6 0 8 -252672 -1 -1 1411 1;
#N canvas 0 22 470 320 init 0;
#X obj 27 150 s minincr-init;
#X msg 27 123 0.5;
#X obj 134 149 s maxincr-init;
#X msg 134 122 2;
#X obj 27 4 loadbang;
#X obj 245 147 s minseg-init;
#X obj 352 146 s maxseg-init;
#X msg 245 120 100;
#X obj 323 91 s fixed-incr-init;
#X msg 323 64 1;
#X msg 352 119 2000;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 4 0 1 0;
#X connect 4 0 7 0;
#X connect 4 0 10 0;
#X connect 4 0 9 0;
#X connect 7 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 6 0;
#X restore 275 51 pd init;
#X obj 55 445 hsl 128 15 3 300 0 0 minseg minseg-init minseg -2 -6
0 8 -252672 -1 -1 4148 1;
#X obj 55 476 hsl 128 15 20 2000 0 0 maxseg maxseg-init maxseg -2 -6
0 8 -252672 -1 -1 12700 1;
#X msg 311 383 fixed_increment \$1;
#X obj 49 8 tgl 30 0 empty empty empty 0 -6 0 8 -257985 -1 -1 0 1;
#X obj 49 52 metro 120000;
#X obj 314 350 hsl 50 10 0.1 5 0 0 empty empty empty -2 -8 0 10 -174016
-1 -1 0 1;
#X floatatom 311 366 5 0 0 0 - - -, f 5;
#X obj 382 349 r fixed-incr-init;
#X obj 278 309 t b;
#X msg 278 330 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 11 0;
#X connect 5 0 10 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 0 0;
#X connect 10 0 23 0;
#X connect 11 0 0 0;
#X connect 11 0 23 0;
#X connect 17 0 0 0;
#X connect 18 0 19 0;
#X connect 19 0 1 0;
#X connect 20 0 21 0;
#X connect 21 0 17 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 21 0;
#X restore 53 44 pd basic controls;
#N canvas 480 42 593 551 deviations 0;
#X obj 224 188 outlet;
#X msg 224 134 rdur \$1;
#X floatatom 224 110 5 0 0 0 - rdur -, f 5;
#X obj 222 250 hsl 128 15 0 1 0 0 rdur rdur-init rdur -2 -6 0 8 -252672
-1 -1 0 1;
#X obj 222 282 hsl 128 15 0 1 0 0 rinc rinc-init rinc -2 -6 0 8 -252672
-1 -1 0 1;
#X floatatom 288 110 5 0 0 0 - rinc -, f 5;
#X msg 288 134 rinc \$1;
#X floatatom 356 110 5 0 0 0 - jitter -, f 5;
#X msg 356 134 jitter \$1;
#X obj 222 316 hsl 128 15 0 1 0 0 jitter jitter-init jitter -2 -6 0
8 -252672 -1 -1 0 1;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X restore 104 82 pd deviations;
#N canvas 257 591 482 332 memory 0;
#X obj 167 217 outlet;
#X text 233 32 1024 locations available;
#X msg 142 30 store_loop 1;
#X msg 156 49 recall_loop 1;
#X msg 182 93 store_loop 2;
#X msg 195 113 recall_loop 2;
#X msg 74 87 show_loop;
#X text 208 170 use numbers that come from show_loop;
#X msg 35 144 force_new;
#X msg 281 188 set_loop 1000 25000 1.62;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X restore 88 62 pd memory;
#N canvas 0 22 490 340 refinements 0;
#X obj 38 149 outlet;
#X obj 38 29 tgl 30 0 empty empty empty 0 -6 0 8 -257985 -1 -1 0 1
;
#X msg 38 74 adjust_inverse \$1;
#X msg 95 123 taper \$1;
#X floatatom 95 100 5 0 0 0 - taper-dur -, f 5;
#X obj 41 185 hsl 128 15 1 100 0 0 taper-dur taper-dur-init taper-dur
-2 -6 0 8 -252672 -1 -1 0 1;
#X text 78 29 maintains loop duration;
#X text 77 43 under increment change;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X restore 125 104 pd refinements;
#N canvas 0 22 462 312 system 0;
#X obj 38 138 outlet;
#X obj 38 29 tgl 30 0 empty empty empty 0 -6 0 8 -257985 -1 -1 0 1
;
#X msg 38 74 mute \$1;
#X msg 111 105 seed 6331;
#X text 110 88 set seed (might be helpful for stereo);
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X restore 140 131 pd system;
#X obj 54 201 s chopper.demo.msgs;
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X restore 236 85 pd messages;
#N canvas 9 465 466 316 load-soundfile 0;
#X obj 31 177 soundfiler;
#X msg 30 103 bang;
#X obj 30 129 openpanel;
#X msg 30 151 read -resize \$1 sound1;
#X obj 11 57 loadbang;
#X obj 105 40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 10 82 read -resize sound/voice.wav sound1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X restore 285 330 pd load-soundfile;
#X obj 103 265 *~ 0.1;
#X obj 240 116 hsl 100 14 0 0.5 0 0 empty empty empty -2 -8 0 10 -174016
-1 -1 0 1;
#X obj 18 8 cnv 15 160 25 empty empty LyonPotpourri 20 12 1 18 -260097
-204786 0;
#X text 17 38 chopper~ - an algorithmic array chopper;
#X obj 103 195 r chopper.demo.msgs;
#X obj 291 215 chopper~ sound1;
#X obj 291 192 r chopper.demo.msgs;
#X obj 291 265 *~ 0.1;
#X obj 330 243 r chopper.demo.gain;
#X obj 142 242 r chopper.demo.gain;
#X obj 237 141 s chopper.demo.gain;
#X text 323 86 <- open this for more info;
#X text 346 118 set master gain;
#X msg 24 171 sync_out;
#X text 88 170 sync instances;
#X text 25 330 use a fairly long and varied sound here ->;
#X connect 1 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 15 0;
#X connect 9 0 1 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 2 1;
#X connect 13 0 12 1;
#X connect 14 0 5 1;
#X connect 18 0 1 0;