[PD] harmonizer

[Orm Finnendahl]

Hi,

attached is an example for the well-known granular-based lowfi and
low-on-cpu harmonizer. I'm not sure whether it is the 1037th
implementation of it in pd but I couldn't find it right away, so I
implemented it myself. Maybe someone finds it useful.

--
Orm
-------------- next part --------------
#N canvas 604 25 697 942 12;
#X obj 409 49 delwrite~ b1 5000;
#X obj 109 526 vd~ b1;
#X obj 107 314 phasor~;
#X obj 107 391 *~ -1;
#X obj 108 416 +~ 1;
#X obj 125 561 sig~ 1;
#X obj 190 560 cos~;
#X obj 126 585 -~;
#X obj 127 610 *~ 0.5;
#X obj 108 635 *~;
#X obj 206 836 dac~;
#X obj 142 473 samphold~;
#X obj 108 500 *~;
#X obj 143 445 sig~;
#X floatatom 102 235 10 0 0 0 - - -;
#X floatatom 266 218 5 0 0 0 - - -;
#X obj 249 253 t b f;
#X obj 229 371 / 44.1;
#X obj 344 527 vd~ b1;
#X obj 342 392 *~ -1;
#X obj 343 417 +~ 1;
#X obj 360 562 sig~ 1;
#X obj 424 562 cos~;
#X obj 361 586 -~;
#X obj 362 611 *~ 0.5;
#X obj 343 636 *~;
#X obj 377 474 samphold~;
#X obj 343 501 *~;
#X obj 378 446 sig~;
#X obj 339 344 +~ 0.5;
#X obj 339 366 wrap~;
#X obj 409 13 adc~;
#X obj 142 289 expr (pow(2 \, ($f2/12)) - 1) * 44100/$f1;
#X obj 102 97 vsl 15 128 100 30000 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 8300 1;
#X obj 102 255 t b f;
#X obj 266 138 vsl 15 73 -36 36 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 4062 1;
#X obj 484 348 *~ 0;
#X obj 517 107 vsl 15 128 0.01 1 1 0 empty empty empty 0 -8 0 8 -262144
-1 -1 12300 1;
#X obj 517 267 sel 0.01;
#X msg 515 294 0;
#X floatatom 515 323 5 0 0 0 - - -;
#X text 520 79 feedback;
#X text 269 114 transposition;
#X text 37 71 window-width (samples);
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 2 0 11 1;
#X connect 2 0 29 0;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 9 0 36 0;
#X connect 11 0 12 1;
#X connect 12 0 1 0;
#X connect 13 0 11 0;
#X connect 14 0 34 0;
#X connect 15 0 16 0;
#X connect 16 0 14 0;
#X connect 16 1 32 1;
#X connect 17 0 13 0;
#X connect 17 0 28 0;
#X connect 18 0 25 0;
#X connect 19 0 20 0;
#X connect 20 0 27 0;
#X connect 21 0 23 0;
#X connect 22 0 23 1;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 25 0 10 1;
#X connect 25 0 10 0;
#X connect 25 0 36 0;
#X connect 26 0 27 1;
#X connect 27 0 18 0;
#X connect 28 0 26 0;
#X connect 29 0 30 0;
#X connect 30 0 19 0;
#X connect 30 0 26 1;
#X connect 30 0 22 0;
#X connect 31 0 0 0;
#X connect 31 1 0 0;
#X connect 32 0 2 0;
#X connect 33 0 14 0;
#X connect 34 0 15 0;
#X connect 34 1 17 0;
#X connect 34 1 32 0;
#X connect 35 0 15 0;
#X connect 36 0 0 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 38 1 40 0;
#X connect 39 0 40 0;
#X connect 40 0 36 1;