view examples/10-Instruments/vangelisiser/_main.pd @ 531:ddb86944e138 prerelease

cleaned up all pd examples (and removed some). added polysynth and vangelisiser to instruments examples

#N canvas 825 500 1305 1225 10;
#X obj 941 614 s~ _gain;
#X obj 477 523 lop~ 30;
#X obj 941 437 abs~;
#X obj 941 481 clip~ 0 1;
#N canvas 1785 452 296 317 input-controller 0;
#X obj 89 85 abs~;
#X obj 89 157 clip~ 0 10;
#X obj 89 105 lop~ 30;
#X obj 89 65 *~ 150000;
#X obj 89 125 -~ 0.25;
#X obj 46 191 sig~ 1;
#X obj 73 217 /~;
#X obj 89 190 q8_rsqrt~;
#N canvas 1265 891 433 402 accelerometer-integration 0;
#X obj 72 225 rpole~ 1;
#X obj 72 246 hip~ 1;
#X obj 72 155 lop~ 100;
#X obj 132 225 rpole~ 1;
#X obj 132 246 hip~ 1;
#X obj 132 155 lop~ 100;
#X obj 192 225 rpole~ 1;
#X obj 192 246 hip~ 1;
#X obj 192 155 lop~ 100;
#X obj 72 289 *~;
#X obj 132 289 *~;
#X obj 192 289 *~;
#X obj 29 320 sig~ 1;
#X obj 55 345 /~;
#X obj 72 319 q8_rsqrt~;
#X obj 346 176 samplerate~;
#X obj 318 133 loadbang;
#X obj 318 155 t b b;
#X obj 317 175 f 1;
#X obj 317 194 /;
#X obj 316 215 s _invsr;
#X obj 206 177 r _invsr;
#X obj 146 177 r _invsr;
#X obj 86 177 r _invsr;
#X obj 192 197 *~ 0;
#X obj 132 197 *~ 0;
#X obj 72 197 *~ 0;
#X obj 314 349 s~ _zacc;
#X obj 315 272 -~ 0.5;
#X obj 315 294 *~ 4;
#X obj 315 320 clip~ -1 1;
#X obj 55 367 outlet~;
#X text 29 21 Integrate accelerometer data to estimate velocity;
#X text 29 31 =================================================;
#X obj 72 65 receive~ \$0-x;
#X obj 132 95 receive~ \$0-y;
#X obj 192 125 receive~ \$0-z;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 1 0 9 1;
#X connect 2 0 26 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 4 0 10 1;
#X connect 5 0 25 0;
#X connect 6 0 7 0;
#X connect 7 0 11 0;
#X connect 7 0 11 1;
#X connect 8 0 24 0;
#X connect 8 0 28 0;
#X connect 9 0 14 0;
#X connect 10 0 14 0;
#X connect 11 0 14 0;
#X connect 12 0 13 0;
#X connect 13 0 31 0;
#X connect 14 0 13 1;
#X connect 15 0 19 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 15 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 24 1;
#X connect 22 0 25 1;
#X connect 23 0 26 1;
#X connect 24 0 6 0;
#X connect 25 0 3 0;
#X connect 26 0 0 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 27 0;
#X connect 34 0 2 0;
#X connect 35 0 5 0;
#X connect 36 0 8 0;
#X restore 89 30 pd accelerometer-integration;
#X obj 73 256 outlet~;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 9 0;
#X connect 7 0 6 1;
#X connect 8 0 3 0;
#X restore 941 364 pd input-controller;
#X obj 424 1183 dac~;
#X obj 235 250 loadbang;
#X obj 451 995 loadbang;
#X obj 830 938 s~ fmod;
#X obj 830 906 lop~ 20;
#X obj 830 838 sig~ 1;
#X obj 830 860 -~;
#X obj 477 545 *~ 0.75;
#X obj 376 865 *~;
#X obj 961 512 s~ accvel;
#X obj 531 649 r~ accvel;
#X obj 376 1047 e_platereverb;
#X obj 941 459 -~ 0.0025;
#X obj 235 1017 predel 2;
#X obj 257 982 lop~ 20;
#X obj 469 680 -~ 0.25;
#X obj 477 569 -~ 0.75;
#X obj 257 940 *~ 2;
#X obj 257 962 -~ 1;
#X obj 941 558 lop~ 5;
#X msg 451 1017 0;
#X obj 941 406 *~ 0.666;
#X obj 481 802 sig~ 1;
#X obj 481 824 -~;
#X obj 235 864 *~;
#X obj 531 802 clip~ 0 1;
#X obj 531 780 *~ 2;
#X obj 531 758 -~ 0.75;
#X obj 468 732 clip~ 0.3 1;
#X obj 376 1018 predel 5;
#X obj 469 702 *~ 2;
#X obj 941 586 clip~ 0 3;
#X obj 235 614 vangex;
#X obj 376 1109 hv_tanh;
#X obj 486 1109 hv_tanh;
#X obj 477 383 k.ramp~ 0 0.3;
#X obj 468 754 lop~ 5;
#X msg 235 272 33;
#X obj 830 884 *~ 5;
#X obj 235 1048 *~ 2;
#X obj 280 1047 *~ 2;
#X obj 376 1141 *~ 2;
#X obj 486 1140 *~ 2;
#X obj 235 313 + 12;
#X obj 335 312 + 19;
#X obj 285 313 + 16;
#X obj 385 313 + 28;
#X obj 477 441 k.ramp~ 0.6 0.3;
#X obj 477 422 k.ramp~ 0.4 0.3;
#X obj 477 402 k.ramp~ 0.2 0.3;
#X obj 385 614 vangex;
#X obj 335 614 vangex;
#X obj 285 614 vangex;
#X text 1157 1177 @krighxz 2016;
#X text 1044 513 velocity derived from accelerometer;
#X text 612 648 use velocity to control reverb input level;
#X obj 233 174 adc~ 3;
#X obj 233 196 send~ \$0-x;
#X obj 303 174 adc~ 4;
#X obj 373 174 adc~ 5;
#X obj 303 196 send~ \$0-y;
#X obj 373 196 send~ \$0-z;
#X obj 458 352 receive~ \$0-x;
#X obj 477 501 receive~ \$0-z;
#X obj 257 918 receive~ \$0-x;
#X text 70 1016 delay-based panning >>>;
#X obj 895 838 receive~ \$0-z;
#X text 586 500 z axis controls timbre (harmonic ratio);
#X text 568 353 x axis controls gain weightings of voices;
#X text 48 920 x axis controls panning >>>;
#X text 1022 614 <<< velocity controls gain of voices;
#X text 1001 838 <<< z axis modulates frequency of all voices;
#X text 35 16 The 'Vangelisiser';
#X text 35 26 ==================;
#X text 35 46 This is a synth designed to be controlled using a single
;
#X text 35 59 accelerometer. Inspired by the emotional sounds of Vangelis
;
#X text 35 73 four voices tuned to a chord are controlled using axes
of;
#X text 35 87 the accelerometer as well as overall velocity derived
from;
#X text 35 102 all three axes.;
#X text 35 116 This patch should ideally be compiled using Heavy and
run;
#X text 35 130 at a block size of 64;
#X text 1062 30 ............................;
#X text 1062 40 . ____ ._____ _ .......___ .;
#X text 1062 50 .| __ )| ____| |....../ _ |.;
#X text 1062 70 .| |_) | |___| |___ / ___ |.;
#X text 1062 80 .|____/|_____|_____/_/..._|.io;
#X text 1062 90 ............................;
#X text 1062 60 .| __ || __|.| |...../ _| |.;
#X connect 1 0 12 0;
#X connect 2 0 17 0;
#X connect 3 0 14 0;
#X connect 3 0 24 0;
#X connect 4 0 26 0;
#X connect 6 0 42 0;
#X connect 7 0 25 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 43 0;
#X connect 12 0 21 0;
#X connect 13 0 34 0;
#X connect 15 0 20 0;
#X connect 15 0 32 0;
#X connect 16 0 38 0;
#X connect 16 1 39 0;
#X connect 17 0 3 0;
#X connect 18 0 44 0;
#X connect 18 1 45 0;
#X connect 19 0 18 1;
#X connect 19 0 34 1;
#X connect 20 0 35 0;
#X connect 21 0 55 2;
#X connect 21 0 56 2;
#X connect 21 0 57 2;
#X connect 21 0 37 2;
#X connect 22 0 23 0;
#X connect 23 0 19 0;
#X connect 24 0 36 0;
#X connect 25 0 16 2;
#X connect 26 0 2 0;
#X connect 27 0 28 0;
#X connect 28 0 29 1;
#X connect 29 0 18 0;
#X connect 30 0 28 1;
#X connect 31 0 30 0;
#X connect 32 0 31 0;
#X connect 33 0 41 0;
#X connect 34 0 16 0;
#X connect 34 1 16 1;
#X connect 35 0 33 0;
#X connect 36 0 0 0;
#X connect 37 0 13 0;
#X connect 37 0 29 0;
#X connect 38 0 46 0;
#X connect 39 0 47 0;
#X connect 40 0 37 1;
#X connect 41 0 13 1;
#X connect 42 0 48 0;
#X connect 42 0 50 0;
#X connect 42 0 49 0;
#X connect 42 0 51 0;
#X connect 43 0 9 0;
#X connect 44 0 38 0;
#X connect 45 0 39 0;
#X connect 46 0 5 0;
#X connect 47 0 5 1;
#X connect 48 0 37 0;
#X connect 49 0 56 0;
#X connect 50 0 57 0;
#X connect 51 0 55 0;
#X connect 52 0 55 1;
#X connect 53 0 56 1;
#X connect 54 0 57 1;
#X connect 55 0 13 0;
#X connect 55 0 29 0;
#X connect 56 0 13 0;
#X connect 56 0 29 0;
#X connect 57 0 13 0;
#X connect 57 0 29 0;
#X connect 61 0 62 0;
#X connect 63 0 65 0;
#X connect 64 0 66 0;
#X connect 67 0 40 0;
#X connect 67 0 52 0;
#X connect 67 0 53 0;
#X connect 67 0 54 0;
#X connect 68 0 1 0;
#X connect 69 0 22 0;
#X connect 71 0 11 1;