aboutsummaryrefslogtreecommitdiff
path: root/externals/grill/xsample/pd/xgroove~.pd
blob: 86d879b5431a555fede80c1ba6f0221935ddb76e (plain)
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
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
#N canvas 69 62 929 594 12;
#X obj 215 253 hsl 128 15 0.001 3 1 1 empty empty speed 0 -8 0 10 -225271
-1 -1 10800 1;
#X floatatom 212 271 8 0 0 0 - - -;
#X msg 603 169 loop \$1;
#X obj 28 72 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1
-1;
#X msg 27 92 stop;
#N canvas 0 0 450 300 graph7 0;
#X array \$0-buf 10000 float 0;
#X coords 0 1 9999 -1 300 150 1;
#X restore 573 269 graph;
#X obj 44 529 dac~;
#X msg 120 73 reset;
#X text 299 321 min/max points;
#X text 50 69 start;
#X text 67 90 stop;
#X msg 119 99 help;
#X text 280 269 (float or signal);
#X msg 749 167 interp \$1;
#X msg 237 305 all;
#X text 747 94 interpolation;
#X text 622 116 once;
#X text 768 116 none;
#X text 768 148 linear;
#X text 224 75 units;
#X msg 225 163 units \$1;
#X msg 358 163 sclmode \$1;
#X text 244 127 ms;
#X text 244 142 s;
#X text 377 127 buffer;
#X text 377 142 loop;
#X obj 491 223 bng 15 250 50 0 empty empty empty 0 -6 0 8 -228992 -1
-1;
#X obj 335 349 print A;
#N canvas 0 0 450 300 graph2 0;
#X array \$0-scp 300 float 0;
#X coords 0 1 299 -1 300 100 1;
#X restore 573 447 graph;
#X obj 53 498 *~;
#X obj 89 486 hsl 128 15 0.0001 1 1 0 empty empty volume -2 -6 0 8
-261689 -1 -1 10900 1;
#X obj 86 504 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
10 -261689 -1 -1 0.271063 256;
#X msg 25 249 pos \$1;
#X msg 63 220 200;
#X msg 25 221 100;
#X obj 511 224 nbx 5 14 0 1e+037 0 1 empty empty frq 0 -6 0 10 -228992
-1 -1 144 256;
#N canvas 19 334 415 321 loopzone 0;
#X msg 28 84 xzone \$1;
#X obj 31 43 hsl 128 15 0 300 0 0 empty empty empty -2 -6 0 8 -262131
-1 -1 12700 1;
#X floatatom 28 64 5 0 0 0 - - -;
#X msg 203 207 xfade \$1;
#X obj 203 142 vdl 15 0 0 4 empty empty empty 0 -6 0 8 -262144 -1 -1
0;
#X text 202 123 loop zone mode;
#X text 222 141 keep loop pos;
#X text 222 157 keep loop length;
#X text 222 173 keep fade length;
#X msg 47 205 xshape \$1;
#X obj 48 155 vdl 15 0 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1
0;
#X text 45 133 fade zone shape;
#X text 67 152 linear;
#X text 67 168 quarter sine;
#X text 67 184 half sine;
#X text 125 67 length of the loop zone;
#X text 123 84 (in units);
#X text 222 188 zone inside loop;
#X text 21 9 xgroove~ crossfading loop zone;
#X obj 27 255 s to-g;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 19 0;
#X connect 4 0 3 0;
#X connect 9 0 19 0;
#X connect 10 0 9 0;
#X restore 23 414 pd loopzone;
#X text 118 137 set buffer;
#X text 23 383 settings for;
#X text 22 395 cross-fading loop zone;
#X text 399 349 print attributes;
#X obj 300 393 bng 15 250 50 0 empty empty loop_bang 0 -6 0 8 -262131
-1 -1;
#X text 357 60 scale mode;
#X text 354 75 (pos message and position outlet);
#X text 622 148 bidirectional;
#X text 244 111 buffer size;
#X obj 574 419 hsl 300 15 0 10000 0 0 empty bufpos empty -2 -6 0 8
-262144 -1 -1 20832 1;
#X obj 236 527 nbx 5 14 -1e+037 1e+037 0 0 empty empty position 0 -6
0 10 -228992 -1 -1 6967.26 256;
#N canvas 0 0 470 320 watch 0;
#X obj 163 18 loadbang;
#X obj 88 80 snapshot~;
#X obj 164 44 metro 50;
#X obj 143 109 s bufpos;
#X obj 176 196 outlet;
#X obj 22 14 inlet~;
#X obj 88 14 inlet~;
#X obj 22 196 tabwrite~ \$0-scp;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 1 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 2 0 7 0;
#X connect 5 0 7 0;
#X connect 6 0 1 0;
#X restore 235 492 pd watch;
#X text 377 111 units in loop;
#N canvas 97 34 266 202 genosc 0;
#X obj 38 29 inlet;
#X obj 64 94 osc~ 1000;
#X obj 38 54 route bang;
#X obj 37 134 tabwrite~ \$0-buf;
#X obj 158 94 loadbang;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 4 0 3 0;
#X restore 491 244 pd genosc;
#X text 600 97 loop mode;
#X text 23 201 set position;
#X obj 299 426 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -262131
-1 -1 0 256;
#X obj 356 426 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -262131
-1 -1 10000 256;
#X obj 298 309 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -225271
-1 -1 0 256;
#X obj 355 309 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -225271
-1 -1 30000 256;
#X text 244 95 frames (def.);
#X text 377 96 units in buffer (def.);
#X text 622 132 forward (def.);
#X text 768 132 4-point (def.);
#N canvas 12 194 482 399 attributes 0;
#X msg 82 51 getattributes;
#X msg 138 110 getmax;
#X msg 81 110 getmin;
#X text 200 52 dump all attributes;
#X text 200 112 get min/max positions;
#X msg 82 82 getbuffer;
#X msg 80 139 getpos;
#X text 140 139 get current position;
#X text 167 82 get buffer name;
#X msg 79 228 getloop;
#X msg 79 253 getinterp;
#X text 147 228 get loop mode;
#X text 160 253 get interpolation mode;
#X msg 79 174 getunits;
#X text 152 174 get unit setting;
#X msg 79 199 getsclmode;
#X text 170 199 get scale mode;
#X msg 79 292 getxfade;
#X msg 78 342 getxshape;
#X text 157 292 get crossfade mode;
#X msg 79 317 getxzone;
#X text 154 317 get crossfade length;
#X text 156 344 get crossfade shape;
#X text 19 12 xgroove~ attributes;
#X obj 19 172 s to-g;
#X connect 0 0 24 0;
#X connect 1 0 24 0;
#X connect 2 0 24 0;
#X connect 5 0 24 0;
#X connect 6 0 24 0;
#X connect 9 0 24 0;
#X connect 10 0 24 0;
#X connect 13 0 24 0;
#X connect 15 0 24 0;
#X connect 17 0 24 0;
#X connect 18 0 24 0;
#X connect 20 0 24 0;
#X restore 24 343 pd attributes;
#X text 23 324 attribute stuff;
#X text 490 264 generate;
#X obj 26 10 cnv 15 850 40 empty empty xgroove~ 10 22 0 24 -260818
-1 0;
#X text 227 29 http://www.parasitaere-kapazitaeten.net;
#X msg 105 221 1000;
#X msg 96 249 posmod \$1;
#X text 146 227 modulo;
#X text 301 439 min/max points;
#X text 299 454 (sample rounded);
#X obj 603 120 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -225271 -1
-1 0;
#X obj 749 119 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -225271 -1
-1 0;
#X obj 225 99 vradio 15 1 0 4 empty empty empty 0 -6 0 8 -225271 -1
-1 0;
#X obj 358 99 vradio 15 1 0 4 empty empty empty 0 -6 0 8 -225271 -1
-1 0;
#X obj 136 168 s to-g;
#X obj 298 197 s to-g;
#X obj 61 278 s to-g;
#X obj 180 304 r to-g;
#X obj 704 201 s to-g;
#X obj 191 349 xgroove~ \$0-buf;
#X msg 26 136 set \$0-buf;
#X msg 25 161 set \$0-buf2;
#X text 227 10 varispeed sample player \, (C)2001-2004 Thomas Grill
;
#X connect 0 0 1 0;
#X connect 1 0 80 0;
#X connect 2 0 79 0;
#X connect 3 0 75 0;
#X connect 4 0 75 0;
#X connect 7 0 75 0;
#X connect 11 0 75 0;
#X connect 13 0 79 0;
#X connect 14 0 80 0;
#X connect 20 0 76 0;
#X connect 21 0 76 0;
#X connect 26 0 50 0;
#X connect 29 0 6 0;
#X connect 29 0 6 1;
#X connect 30 0 29 1;
#X connect 30 0 31 0;
#X connect 32 0 77 0;
#X connect 33 0 32 0;
#X connect 34 0 32 0;
#X connect 35 0 50 0;
#X connect 48 0 47 0;
#X connect 55 0 80 1;
#X connect 56 0 80 2;
#X connect 66 0 67 0;
#X connect 67 0 77 0;
#X connect 71 0 2 0;
#X connect 72 0 13 0;
#X connect 73 0 20 0;
#X connect 74 0 21 0;
#X connect 78 0 80 0;
#X connect 80 0 29 0;
#X connect 80 0 48 0;
#X connect 80 1 48 1;
#X connect 80 2 53 0;
#X connect 80 3 54 0;
#X connect 80 4 41 0;
#X connect 80 5 27 0;
#X connect 81 0 75 0;
#X connect 82 0 75 0;