#N canvas 261 79 799 721 10;
#X obj 542 166 openpanel;
#X obj 542 144 bng 15 250 50 0 empty empty open-file 17 7 1 10 -260818
-1 -1;
#X obj 542 242 soundfiler;
#X msg 542 211 read -resize \$1 \$2-snd;
#X obj 621 243 table \$0-snd;
#X obj 542 187 pack s \$0;
#X obj 94 277 vline~;
#X obj 93 355 tabread4~ \$0-snd;
#X obj 147 276 random 1000;
#X obj 542 273 s \$0-size;
#X obj 219 251 r \$0-size;
#X obj 93 333 +~ 0;
#X obj 91 637 dac~;
#X obj 94 612 *~ 0;
#X obj 117 589 dbtorms;
#X obj 120 566 hsl 128 15 0 100 0 0 empty empty volume -2 -8 1 10 -262144
-1 -1 12000 1;
#X obj 94 404 *~;
#X obj 370 323 *~;
#X obj 370 343 *~;
#X msg 369 268 1 \, 0 \$1;
#X floatatom 147 298 8 0 0 1 random-start-sample - -;
#X obj 369 296 vline~;
#X obj 94 155 t b b b;
#X msg 101 135 bang;
#X obj 94 94 tgl 15 0 empty empty empty 17 7 0 10 -260818 -1 -1 1 1
;
#X floatatom 399 221 5 0 0 2 duration - -;
#X floatatom 152 91 5 0 0 0 - - -;
#X obj 93 500 clip~ -3 3;
#N canvas 232 261 614 329 ftanh 0;
#X obj 138 83 *~;
#X obj 121 35 inlet~;
#X obj 189 113 *~ 9;
#X obj 136 170 /~;
#X obj 137 136 +~ 27;
#X obj 120 228 outlet~;
#X obj 120 198 *~;
#X text 193 181 x * ( 27 + x * x ) / ( 27 + 9 * x * x );
#X obj 188 136 +~ 27;
#X connect 0 0 4 0;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 1 0 6 0;
#X connect 2 0 8 0;
#X connect 3 0 6 1;
#X connect 4 0 3 0;
#X connect 6 0 5 0;
#X connect 8 0 3 1;
#X restore 94 521 pd ftanh;
#X floatatom 117 455 5 0 0 0 - - -;
#X obj 120 434 hsl 128 15 0 3 0 0 empty empty distortion -2 -8 1 10
-262144 -1 -1 12700 1;
#X obj 198 157 tgl 15 0 empty empty randomize-start 17 7 1 10 -260818
-1 -1 0 1;
#X obj 147 219 spigot 1;
#X floatatom 542 303 8 0 0 1 size_in_samples - -;
#X msg 94 248 1 \, 441000 10000;
#X obj 369 242 f 100;
#X obj 94 113 metro 200;
#X obj 94 476 *~ 1;
#X text 347 190 Short volume-envelope:;
#X text 243 474 tanh-distortion (approximated);
#X text 72 30 glitchdrums: play random short segments of a sample \,
optionally distorted.;
#X obj 47 669 throw~ \$0-sound;
#X obj 420 243 s \$0-dur;
#X msg 281 77 record;
#X text 338 79 to record a nice sound \, just switch off metro and
randomizing \, then press "record".;
#N canvas 0 0 532 388 rec 0;
#X obj 165 282 writesf~;
#X obj 63 63 savepanel;
#X msg 222 175 open \$1;
#X obj 292 206 catch~ \$0-sound;
#X obj 63 349 outlet;
#X obj 63 17 inlet;
#X msg 165 213 start;
#X obj 82 214 del 100;
#X msg 82 238 stop;
#X obj 126 185 r \$0-dur;
#X text 142 26 This records the sample to a file;
#X obj 63 86 t b b b a;
#X obj 63 42 bang;
#X connect 1 0 11 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 5 0 12 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 9 0 7 1;
#X connect 11 0 4 0;
#X connect 11 1 7 0;
#X connect 11 2 6 0;
#X connect 11 3 2 0;
#X connect 12 0 1 0;
#X restore 281 98 pd rec;
#N canvas 0 0 758 521 doc 0;
#X text 111 87 This is a simple Pd patch \, which can be used to explore
glitchy sounds created from playing short sections of a sample with
a short volume envelope \, that doesn't ramp \, but jumps to 1 on attack.
Not ramping will automatically generate that clicky sound. Additionally
a simple "tanh-like" distortion is applied to the sound. Just try loading
any sample (44.1kHz \, wav/aiff) you have on your disk and play with
the toggles. The "randomize-start" toggle switches selecting a random
start point in the sample. If you have found a nice glitchy sound \,
you can export it to a file with the "record" message. Remember to
switch off the randomization before recording \, otherwise you will
not record the previous segment \, but a new one.;
#X text 130 434 2007 Frank Barknecht \, public domain;
#X restore 549 405 pd doc;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 9 0;
#X connect 2 0 33 0;
#X connect 3 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 11 0;
#X connect 7 0 16 0;
#X connect 8 0 20 0;
#X connect 10 0 8 1;
#X connect 11 0 7 0;
#X connect 13 0 12 0;
#X connect 13 0 12 1;
#X connect 13 0 41 0;
#X connect 14 0 13 1;
#X connect 15 0 14 0;
#X connect 16 0 37 0;
#X connect 17 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 16 1;
#X connect 19 0 21 0;
#X connect 20 0 11 1;
#X connect 21 0 17 0;
#X connect 21 0 17 1;
#X connect 22 0 34 0;
#X connect 22 1 32 0;
#X connect 22 2 35 0;
#X connect 23 0 22 0;
#X connect 24 0 36 0;
#X connect 25 0 35 1;
#X connect 25 0 42 0;
#X connect 26 0 36 1;
#X connect 27 0 28 0;
#X connect 28 0 13 0;
#X connect 29 0 37 1;
#X connect 30 0 29 0;
#X connect 31 0 32 1;
#X connect 32 0 8 0;
#X connect 34 0 6 0;
#X connect 35 0 19 0;
#X connect 36 0 22 0;
#X connect 37 0 27 0;
#X connect 43 0 45 0;
#X connect 45 0 22 0;