[PD] frequency shifter

[Frank Barknecht]

Hallo,
hard off hat gesagt: // hard off wrote:

> attached is my snare drum which uses the freqshift~ external
> (http://www.weiss-archiv.de or cvs)
> 
> and the kick drum i did the other day.
> 
> these both took me way too long, but they sound good.  particularly
> when run through analogue distortion.

Indeed these are nice drums. I made some small changes so that no
exotic externals are used anymore: freqshift~ was replaced by two
additional phasors, and the triangle-generation uses the [min~]
algorithm instead of one using [abs~]. Additionally I replaced creb's
[ead~] with a [vead~] abstraction that provides better timing thanks
to [vline~]

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 150 74 526 339 10;
#N canvas 100 29 870 580 bassdrum~ 0;
#X obj 451 138 line~;
#X obj 449 179 *~;
#X obj 449 208 *~;
#X obj 450 236 *~;
#X obj 109 119 nbx 4 14 1 10000 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 626.433 256;
#X obj 449 261 *~;
#X obj 601 326 vline~;
#X obj 430 387 *~;
#X obj 602 277 f;
#X obj 109 176 nbx 4 14 1 10000 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 770.981 256;
#X text 157 175 decay;
#X obj 447 284 *~;
#X obj 433 75 f;
#X obj 109 138 nbx 4 14 0.01 100 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 1.03663 256;
#X text 158 136 pitch;
#X msg 434 100 1.4 \, 0 \$1;
#X text 158 118 bendtime;
#X obj 389 484 hip~ 10;
#X obj 447 309 +~;
#X obj 109 157 nbx 4 14 0 100 0 1 empty empty empty 0 -6 0 10 -262144
-1 -1 42 256;
#X text 158 156 mod;
#X obj 508 134 delay 5;
#X msg 602 301 0 5 \, 1 3 5 \, 0 \$1 8;
#X obj 389 538 outlet~;
#X obj 654 188 switch~;
#X msg 535 256 0.25;
#X obj 448 37 r \$0-bendtime;
#X obj 491 217 r \$0-bd-pitch;
#X obj 480 288 r \$0-bd-pitchmod;
#X obj 249 171 s \$0-bd-pitchmod;
#X obj 265 151 s \$0-bd-pitch;
#X obj 300 132 s \$0-bendtime;
#X obj 255 191 s \$0-bd-decay;
#X obj 601 85 t b;
#X obj 641 238 r \$0-bd-decay;
#X obj 711 65 r \$0-bd-decay;
#X msg 650 158 1;
#X obj 682 121 delay;
#X msg 682 158 0;
#X obj 711 92 + 100;
#X obj 54 34 s \$0-basskick;
#X obj 54 8 inlet;
#X msg 100 8 kick it!;
#X obj 600 45 r \$0-basskick;
#X obj 447 332 osc~;
#X obj 226 427 *~;
#X obj 246 399 vline~;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-noise 100 float 1;
#A 0 -0.14286 0.582156 0.967879 0.967879 -0.846448 0.939307 0.896449
-0.890497 -0.814304 -0.900021 -0.928593 0.157146 0.642872 0.214291
0.100002 -0.014286 -0.100002 0.014286 0.128574 0.242863 -0.014286 -0.771446
-0.75716 -0.0441568 -0.0961061 -0.148055 -0.200005 -0.257149 0.857162
0.914307 1.01431 -0.278578 -0.214291 -0.150003 -0.0857162 0 0.0857162
0.171432 0.257149 0.292864 0.328579 -0.985737 -0.776208 -0.557156 -0.0714302
0.0714302 0.214291 -0.0714302 -0.957165 -0.714302 -0.600014 -0.557156
-0.292864 -0.114288 0.0285721 0.200005 0.428581 0.500011 0.971451 0.942879
0.82859 0.68573 0.442867 -0.171432 -0.895259 -1.09526 -1.03812 -0.695254
-0.0428581 -0.185719 -0.328579 -0.471439 0.014286 0.128574 0.100002
0.559537 0.688111 1.05955 1.08812 -0.673825 -0.82859 -0.357151 -0.0214291
-0.14286 -0.128574 0.0809542 0.290483 0.500011 0.742874 0.557156 0.371437
-0.214291 -0.290483 -0.366675 -0.442867 -0.400009 -0.414295 -0.442867
-0.54287 -0.628586;
#X coords 0 1 99 -1 20 14 1;
#X restore 354 323 graph;
#X obj 226 323 tabplay~ \$0-noise;
#X msg 241 369 0 0.1 \$1;
#X obj 159 352 f;
#X obj 193 341 f;
#X obj 166 290 t b b b;
#X obj 383 457 +~;
#X obj 109 200 nbx 4 14 0.1 10 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 0.865964 256;
#X obj 110 216 nbx 4 14 0.1 100 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 66.7143 256;
#X text 157 200 noiz;
#X text 158 215 dec;
#X obj 248 213 s \$0-bd-noise;
#X obj 248 232 s \$0-bd-noise-decay;
#X obj 166 270 r \$0-basskick;
#X obj 8 314 r \$0-bd-noise;
#X obj 24 272 r \$0-bd-noise-decay;
#X obj 21 336 / 100;
#X obj 108 298 / 100;
#X connect 0 0 1 1;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 5 0;
#X connect 3 0 5 1;
#X connect 4 0 31 0;
#X connect 5 0 11 0;
#X connect 6 0 7 1;
#X connect 7 0 53 1;
#X connect 8 0 22 0;
#X connect 9 0 32 0;
#X connect 11 0 18 0;
#X connect 12 0 15 0;
#X connect 13 0 30 0;
#X connect 15 0 0 0;
#X connect 17 0 23 0;
#X connect 18 0 44 0;
#X connect 19 0 29 0;
#X connect 21 0 12 0;
#X connect 21 0 25 0;
#X connect 22 0 6 0;
#X connect 25 0 44 1;
#X connect 26 0 12 1;
#X connect 27 0 11 1;
#X connect 28 0 18 1;
#X connect 33 0 21 0;
#X connect 33 0 8 0;
#X connect 33 0 36 0;
#X connect 33 0 37 0;
#X connect 34 0 8 1;
#X connect 35 0 39 0;
#X connect 36 0 24 0;
#X connect 37 0 38 0;
#X connect 38 0 24 0;
#X connect 39 0 37 1;
#X connect 41 0 40 0;
#X connect 42 0 40 0;
#X connect 43 0 33 0;
#X connect 44 0 7 0;
#X connect 45 0 53 0;
#X connect 46 0 45 1;
#X connect 48 0 45 0;
#X connect 49 0 46 0;
#X connect 50 0 46 0;
#X connect 51 0 49 0;
#X connect 52 0 51 0;
#X connect 52 1 50 0;
#X connect 52 2 48 0;
#X connect 53 0 17 0;
#X connect 54 0 58 0;
#X connect 55 0 59 0;
#X connect 60 0 52 0;
#X connect 61 0 63 0;
#X connect 62 0 64 0;
#X connect 63 0 50 1;
#X connect 64 0 51 1;
#X coords 0 -1 1 1 120 140 1 100 100;
#X restore 118 107 pd bassdrum~;
#X obj 198 288 dac~;
#X msg 118 57 kick;
#X msg 241 55 snare;
#N canvas 223 241 927 604 snare~ 0;
#X obj 43 270 noise~;
#X obj 142 391 *~;
#X obj 439 109 osc~ 330;
#X obj 501 108 osc~ 180;
#X obj 441 160 +~;
#X obj 441 296 *~;
#X obj 442 85 * 330;
#X obj 512 82 * 180;
#X obj 472 55 expr ($f1 / 100) + 1;
#X obj 604 303 *~;
#X obj 155 134 nbx 5 14 100 10000 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 2738.41 256;
#X obj 43 317 lop~;
#X obj 101 358 bp~ 6000 4;
#X obj 155 189 nbx 5 14 10 400 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 203.203 256;
#X obj 155 170 nbx 5 14 1 100 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 13.5772 256;
#X obj 728 54 expr ($f1 / 100) + 1;
#X obj 279 431 *~;
#X obj 373 432 *~;
#X obj 357 464 +~;
#X obj 509 367 +~;
#N canvas 0 22 474 324 xfade 0;
#X obj 124 70 moses 50;
#X obj 54 160 / 50;
#X obj 122 162 expr ($f1 * -1 + 50) / 50 + 1;
#X obj 80 97 t b f;
#X obj 129 99 t b f;
#X obj 150 13 inlet;
#X obj 57 205 outlet;
#X obj 128 208 outlet;
#X obj 147 40 + 50;
#X obj 91 138 f 50;
#X obj 124 136 f 50;
#X connect 0 0 3 0;
#X connect 0 1 4 0;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 10 0;
#X connect 3 1 9 0;
#X connect 4 0 9 0;
#X connect 4 1 10 0;
#X connect 5 0 8 0;
#X connect 8 0 0 0;
#X connect 9 0 1 0;
#X connect 10 0 2 0;
#X restore 320 398 pd xfade;
#X obj 155 151 nbx 4 14 -50 50 0 1 empty empty empty 0 -6 0 10 -262144
-1 -1 12 256;
#X obj 155 212 nbx 5 14 10 1000 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 57.2549 256;
#X obj 155 117 nbx 4 14 -50 50 0 1 empty empty empty 0 -6 0 10 -262144
-1 -1 -25 256;
#X obj 81 4 inlet;
#X obj 357 484 clip~ -1 1;
#X obj 66 295 r \$0-snare-lop;
#X obj 320 372 r \$0-snare-fad;
#X obj 254 139 s \$0-snare-fad;
#X obj 249 111 s \$0-snare-lop;
#X text 103 135 lowpass;
#X text 117 116 pitch;
#X obj 261 87 s \$0-snare-pitch;
#X obj 728 33 r \$0-snare-pitch;
#X obj 473 32 r \$0-snare-pitch;
#X obj 250 164 s \$0-snare-attack;
#X obj 196 300 r \$0-snare-attack;
#X obj 506 208 r \$0-snare-attack;
#X obj 272 217 s \$0-body-decay;
#X obj 543 229 r \$0-body-decay;
#X obj 215 323 r \$0-snare-decay;
#X obj 261 196 s \$0-snare-decay;
#X text 114 151 xfade;
#X text 109 169 attack;
#X text 115 184 snare;
#X text 116 193 decay;
#X text 117 209 body;
#X text 117 219 decay;
#X obj 179 277 r \$0-hit-snare;
#X obj 470 181 r \$0-hit-snare;
#X obj 21 74 s \$0-hit-snare;
#X obj 356 560 outlet~;
#X obj 438 536 switch~;
#X obj 82 24 t b b;
#X msg 130 50 1;
#X obj 129 74 s \$0-switch-on;
#X obj 439 513 r \$0-switch-on;
#X obj 656 546 s \$0-switch-on;
#X msg 150 8 hit it!;
#X obj 294 545 dac~;
#X obj 233 350 +;
#X obj 683 356 r \$0-snare-attack;
#X obj 728 383 r \$0-snare-decay;
#X obj 685 442 +;
#X obj 684 412 f;
#X obj 728 405 t b f;
#X obj 655 475 + 100;
#X obj 577 413 r \$0-hit-snare;
#X obj 654 496 delay;
#X msg 655 520 0;
#N canvas 116 50 817 564 phasors 0;
#X obj 161 72 * 111;
#X obj 249 75 * 224;
#X obj 69 70 * 175;
#X obj 139 37 inlet;
#X obj 162 153 outlet~;
#N canvas 590 292 451 345 triangle 0;
#X obj 118 135 *~ -1;
#X obj 118 160 +~ 1;
#X obj 94 221 min~;
#X text 137 244 rescale;
#X text 160 163 1-phasor;
#X msg 134 221 1;
#X msg 164 221 2;
#X obj 94 82 phasor~;
#X obj 93 249 *~ 2;
#X obj 93 272 outlet~;
#X obj 94 56 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 2 0 8 0;
#X connect 5 0 8 1;
#X connect 6 0 8 1;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 10 0 7 0;
#X restore 248 100 pd triangle;
#X floatatom 252 48 5 0 0 0 - - -;
#N canvas 590 292 451 345 triangle 0;
#X obj 118 135 *~ -1;
#X obj 118 160 +~ 1;
#X obj 94 221 min~;
#X text 137 244 rescale;
#X text 160 163 1-phasor;
#X msg 134 221 1;
#X msg 164 221 2;
#X obj 94 82 phasor~;
#X obj 93 249 *~ 2;
#X obj 93 272 outlet~;
#X obj 94 56 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 2 0 8 0;
#X connect 5 0 8 1;
#X connect 6 0 8 1;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 10 0 7 0;
#X restore 161 99 pd triangle;
#N canvas 590 292 451 345 triangle 0;
#X obj 118 135 *~ -1;
#X obj 118 160 +~ 1;
#X obj 94 221 min~;
#X text 137 244 rescale;
#X text 160 163 1-phasor;
#X msg 134 221 1;
#X msg 164 221 2;
#X obj 94 82 phasor~;
#X obj 93 249 *~ 2;
#X obj 93 272 outlet~;
#X obj 94 56 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 1;
#X connect 2 0 8 0;
#X connect 5 0 8 1;
#X connect 6 0 8 1;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 10 0 7 0;
#X restore 67 100 pd triangle;
#X connect 0 0 7 0;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 2 0;
#X connect 3 0 0 0;
#X connect 3 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X restore 728 147 pd phasors;
#X obj 470 269 vead~ 16 160;
#X obj 187 357 vead~;
#X connect 0 0 11 0;
#X connect 1 0 16 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 19 0;
#X connect 6 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 19 1;
#X connect 10 0 29 0;
#X connect 11 0 12 0;
#X connect 12 0 1 0;
#X connect 13 0 41 0;
#X connect 14 0 35 0;
#X connect 15 0 70 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 25 0;
#X connect 19 0 17 0;
#X connect 20 0 16 1;
#X connect 20 1 17 1;
#X connect 21 0 28 0;
#X connect 22 0 38 0;
#X connect 23 0 32 0;
#X connect 24 0 53 0;
#X connect 25 0 51 0;
#X connect 25 0 59 0;
#X connect 25 0 59 1;
#X connect 26 0 11 1;
#X connect 27 0 20 0;
#X connect 33 0 15 0;
#X connect 34 0 8 0;
#X connect 36 0 72 1;
#X connect 37 0 71 1;
#X connect 39 0 71 2;
#X connect 40 0 72 2;
#X connect 48 0 72 0;
#X connect 49 0 71 0;
#X connect 53 0 50 0;
#X connect 53 1 54 0;
#X connect 54 0 55 0;
#X connect 56 0 52 0;
#X connect 58 0 53 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 63 0;
#X connect 65 0 64 0;
#X connect 65 1 63 1;
#X connect 66 0 68 0;
#X connect 67 0 66 0;
#X connect 68 0 69 0;
#X connect 69 0 57 0;
#X connect 70 0 9 0;
#X connect 71 0 5 1;
#X connect 71 0 9 1;
#X connect 72 0 1 1;
#X coords 0 -1 1 1 120 140 1 100 100;
#X restore 241 107 pd snare~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 4 0 1 1;
#X coords 0 0 1 1 120 100 0;
-------------- next part --------------
#N canvas 341 169 810 546 10;
#X obj 281 314 vline~;
#X obj 158 65 max 0.1;
#X obj 258 65 max 0.1;
#X text 156 22 attack (ms);
#X text 256 22 decay (ms);
#X text 86 22 trigger;
#X obj 87 45 inlet;
#X obj 158 45 inlet;
#X obj 258 45 inlet;
#X obj 144 467 outlet~;
#X obj 87 65 b;
#X obj 87 308 vline~;
#X obj 87 215 pack 3 4;
#X text 129 283 attack;
#X text 317 285 decay;
#X msg 87 261 1 \, 0 \$1 0 \, 1 0 \$1;
#X msg 281 261 0 \, 1 0 \$1 \, 0 \$2 \$1;
#X obj 87 195 f 3;
#X obj 251 127 f \$1;
#X obj 251 102 loadbang;
#X obj 251 153 select 0;
#X obj 325 101 loadbang;
#X obj 325 152 select 0;
#X obj 325 126 f \$2;
#X obj 281 361 expr~ pow($v1 \, 6);
#X obj 88 359 expr~ 1 - pow($v1 \, 6);
#X msg 21 261 1;
#X obj 21 239 loadbang;
#X connect 0 0 24 0;
#X connect 1 0 17 1;
#X connect 2 0 12 1;
#X connect 6 0 10 0;
#X connect 7 0 1 0;
#X connect 8 0 2 0;
#X connect 10 0 17 0;
#X connect 11 0 25 0;
#X connect 12 0 16 0;
#X connect 12 0 15 0;
#X connect 15 0 11 0;
#X connect 16 0 0 0;
#X connect 17 0 12 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 20 1 17 1;
#X connect 21 0 23 0;
#X connect 22 1 12 1;
#X connect 23 0 22 0;
#X connect 24 0 9 0;
#X connect 25 0 9 0;
#X connect 26 0 11 0;
#X connect 27 0 26 0;