Mercurial > hg > beaglert
diff examples/10-Instruments/vangelisiser/_main.pd @ 531:ddb86944e138 prerelease
cleaned up all pd examples (and removed some). added polysynth and vangelisiser to instruments examples
author | chnrx <chris.heinrichs@gmail.com> |
---|---|
date | Thu, 23 Jun 2016 20:40:05 +0100 |
parents | |
children | 8f8809c77dda |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/examples/10-Instruments/vangelisiser/_main.pd Thu Jun 23 20:40:05 2016 +0100 @@ -0,0 +1,274 @@ +#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;