Mercurial > hg > beaglert

annotate examples/08-PureData/rubberDuckie/duckie.pd @ 531:ddb86944e138 prerelease

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
rev   line source
chris@531 1 #N canvas 997 707 847 621 10;
chris@531 2 #X obj 186 510 *~;
chris@531 3 #X obj 306 517 *~;
chris@531 4 #X obj 372 468 noise~;
chris@531 5 #X obj 372 492 bp~ 3000 10;
chris@531 6 #X obj 366 162 abs~;
chris@531 7 #X obj 529 158 sig~ 0;
chris@531 8 #X obj 487 371 +~;
chris@531 9 #X obj 431 210 -~ 0.55;
chris@531 10 #X obj 431 231 /~ 0.2;
chris@531 11 #X obj 431 252 clip~ 0 1;
chris@531 12 #X obj 431 282 *~;
chris@531 13 #X obj 431 308 *~ 1000;
chris@531 14 #X obj 366 334 +~;
chris@531 15 #X obj 366 308 +~ 800;
chris@531 16 #X obj 366 282 *~ 800;
chris@531 17 #N canvas 568 775 135 226 <~ 0;
chris@531 18 #X obj 20 -43 -~;
chris@531 19 #X obj 20 27 +~ 1e-37;
chris@531 20 #X obj 20 6 clip~ -1e-37 0;
chris@531 21 #X obj 20 -88 inlet~;
chris@531 22 #X obj 64 -87 inlet~;
chris@531 23 #X obj 20 -64 max~;
chris@531 24 #X obj 20 -19 *~ -1;
chris@531 25 #X obj 20 79 outlet~;
chris@531 26 #X obj 20 48 *~ 1e+37;
chris@531 27 #X connect 0 0 6 0;
chris@531 28 #X connect 1 0 8 0;
chris@531 29 #X connect 2 0 1 0;
chris@531 30 #X connect 3 0 5 0;
chris@531 31 #X connect 4 0 0 1;
chris@531 32 #X connect 4 0 5 1;
chris@531 33 #X connect 5 0 0 0;
chris@531 34 #X connect 6 0 2 0;
chris@531 35 #X connect 8 0 7 0;
chris@531 36 #X restore 186 367 pd <~ 0;
chris@531 37 #N canvas 568 775 135 226 <~ 0;
chris@531 38 #X obj 20 -43 -~;
chris@531 39 #X obj 20 27 +~ 1e-37;
chris@531 40 #X obj 20 6 clip~ -1e-37 0;
chris@531 41 #X obj 20 -88 inlet~;
chris@531 42 #X obj 64 -87 inlet~;
chris@531 43 #X obj 20 -64 max~;
chris@531 44 #X obj 20 -19 *~ -1;
chris@531 45 #X obj 20 79 outlet~;
chris@531 46 #X obj 20 48 *~ 1e+37;
chris@531 47 #X connect 0 0 6 0;
chris@531 48 #X connect 1 0 8 0;
chris@531 49 #X connect 2 0 1 0;
chris@531 50 #X connect 3 0 5 0;
chris@531 51 #X connect 4 0 0 1;
chris@531 52 #X connect 4 0 5 1;
chris@531 53 #X connect 5 0 0 0;
chris@531 54 #X connect 6 0 2 0;
chris@531 55 #X connect 8 0 7 0;
chris@531 56 #X restore 502 181 pd <~;
chris@531 57 #X obj 186 428 *~;
chris@531 58 #X obj 225 345 sig~ 1;
chris@531 59 #X obj 186 394 lop~ 10;
chris@531 60 #X text 573 393 << band-limited pulse;
chris@531 61 #X text 10 367 reed stops when overblown >>;
chris@531 62 #X obj 186 460 *~;
chris@531 63 #X obj 186 480 *~;
chris@531 64 #X text 25 470 exp amplitude response >>;
chris@531 65 #X text 577 211 << detune frequency on change of direction;
chris@531 66 #X obj 502 209 *~ -300;
chris@531 67 #X obj 306 485 *~;
chris@531 68 #X obj 306 449 *~ 0.1;
chris@531 69 #X text 478 493 << noise simulates non-oscillating airflow when overblown
chris@531 70 ;
chris@531 71 #X obj 186 580 outlet~;
chris@531 72 #N canvas 219 819 407 525 pulse 0;
chris@531 73 #X obj 83 340 *~;
chris@531 74 #X obj 83 366 *~;
chris@531 75 #X obj 31 366 sig~ 1;
chris@531 76 #X obj 52 419 /~;
chris@531 77 #X obj 67 393 +~;
chris@531 78 #X text 116 366 X^2;
chris@531 79 #X text 97 396 1+X^2;
chris@531 80 #X text 84 421 1/(1+X^2);
chris@531 81 #X obj 83 317 osc~;
chris@531 82 #X obj 167 320 clip~ 0 999999;
chris@531 83 #X obj 52 483 outlet~;
chris@531 84 #X text 271 218 << tweak all this;
chris@531 85 #X text 25 14 based on F04.waveshaping.pulse.pd;
chris@531 86 #X obj 83 84 /~ 2;
chris@531 87 #X obj 167 148 -~;
chris@531 88 #X obj 167 170 /~ 127;
chris@531 89 #X obj 52 452 hip~ 5;
chris@531 90 #X obj 167 202 *~;
chris@531 91 #X obj 167 232 *~;
chris@531 92 #X obj 167 262 *~;
chris@531 93 #X obj 167 294 *~ 1000;
chris@531 94 #X obj 118 125 sig~ 139;
chris@531 95 #X obj 83 58 inlet~;
chris@531 96 #N canvas 331 1377 277 202 _ftom 0;
chris@531 97 #X obj 97 95 tabread4~ _ftom;
chris@531 98 #X obj 97 53 /~ 10000;
chris@531 99 #X obj 97 74 *~ 256;
chris@531 100 #N canvas 0 23 450 278 (subpatch) 0;
chris@531 101 #X array _ftom 256 float 3;
chris@531 102 #A 0 0 27.0762 39.0762 46.0958 51.0762 54.9394 58.0958 60.7645 63.0762
chris@531 103 65.1153 66.9394 68.5894 70.0958 71.4815 72.7645 73.9589 75.0762 76.1258
chris@531 104 77.1153 78.0514 78.9394 79.784 80.5894 81.359 82.0958 82.8025 83.4815
chris@531 105 84.1349 84.7645 85.372 85.9589 86.5266 87.0762 87.609 88.1258 88.6276
chris@531 106 89.1153 89.5897 90.0514 90.5011 90.9394 91.3669 91.784 92.1914 92.5894
chris@531 107 92.9785 93.359 93.7313 94.0958 94.4528 94.8025 95.1453 95.4815 95.8113
chris@531 108 96.1349 96.4525 96.7645 97.0709 97.372 97.6679 97.9589 98.2451 98.5266
chris@531 109 98.8036 99.0762 99.3446 99.609 99.8693 100.126 100.379 100.628 100.873
chris@531 110 101.115 101.354 101.59 101.822 102.051 102.278 102.501 102.722 102.939
chris@531 111 103.154 103.367 103.577 103.784 103.989 104.191 104.392 104.589 104.785
chris@531 112 104.978 105.17 105.359 105.546 105.731 105.914 106.096 106.275 106.453
chris@531 113 106.629 106.803 106.975 107.145 107.314 107.482 107.647 107.811 107.974
chris@531 114 108.135 108.294 108.453 108.609 108.764 108.918 109.071 109.222 109.372
chris@531 115 109.521 109.668 109.814 109.959 110.103 110.245 110.386 110.527 110.666
chris@531 116 110.804 110.94 111.076 111.211 111.345 111.477 111.609 111.74 111.869
chris@531 117 111.998 112.126 112.253 112.379 112.504 112.628 112.751 112.873 112.995
chris@531 118 113.115 113.235 113.354 113.472 113.59 113.706 113.822 113.937 114.051
chris@531 119 114.165 114.278 114.39 114.501 114.612 114.722 114.831 114.939 115.047
chris@531 120 115.154 115.261 115.367 115.472 115.577 115.681 115.784 115.887 115.989
chris@531 121 116.09 116.191 116.292 116.392 116.491 116.589 116.688 116.785 116.882
chris@531 122 116.978 117.074 117.17 117.265 117.359 117.453 117.546 117.639 117.731
chris@531 123 117.823 117.915 118.005 118.096 118.186 118.275 118.364 118.453 118.541
chris@531 124 118.629 118.716 118.803 118.889 118.975 119.06 119.145 119.23 119.314
chris@531 125 119.398 119.482 119.565 119.647 119.729 119.811 119.893 119.974 120.055
chris@531 126 120.135 120.215 120.294 120.374 120.453 120.531 120.609 120.687 120.764
chris@531 127 120.842 120.918 120.995 121.071 121.147 121.222 121.297 121.372 121.446
chris@531 128 121.521 121.594 121.668 121.741 121.814 121.887 121.959 122.031 122.103
chris@531 129 122.174 122.245 122.316 122.386 122.457 122.527 122.596 122.666 122.735
chris@531 130 122.804 122.872 122.94 123.008;
chris@531 131 #X coords 0 127 256 -12 50 50 1 0 0;
chris@531 132 #X restore 33 78 graph;
chris@531 133 #X obj 97 33 clip~ 0 10000;
chris@531 134 #X obj 97 13 inlet~;
chris@531 135 #X obj 97 116 outlet~;
chris@531 136 #X text 12 162 (for heavy compatibility);
chris@531 137 #X text 12 149 (very) shoddy temp replacement for ftom~;
chris@531 138 #X connect 0 0 6 0;
chris@531 139 #X connect 1 0 2 0;
chris@531 140 #X connect 2 0 0 0;
chris@531 141 #X connect 4 0 1 0;
chris@531 142 #X connect 5 0 4 0;
chris@531 143 #X restore 182 125 pd _ftom;
chris@531 144 #X connect 0 0 1 0;
chris@531 145 #X connect 0 0 1 1;
chris@531 146 #X connect 1 0 4 1;
chris@531 147 #X connect 2 0 3 0;
chris@531 148 #X connect 2 0 4 0;
chris@531 149 #X connect 3 0 16 0;
chris@531 150 #X connect 4 0 3 1;
chris@531 151 #X connect 8 0 0 0;
chris@531 152 #X connect 9 0 0 1;
chris@531 153 #X connect 13 0 8 0;
chris@531 154 #X connect 13 0 23 0;
chris@531 155 #X connect 14 0 15 0;
chris@531 156 #X connect 15 0 17 0;
chris@531 157 #X connect 15 0 17 1;
chris@531 158 #X connect 16 0 10 0;
chris@531 159 #X connect 17 0 18 0;
chris@531 160 #X connect 17 0 18 1;
chris@531 161 #X connect 18 0 19 0;
chris@531 162 #X connect 18 0 19 1;
chris@531 163 #X connect 19 0 20 0;
chris@531 164 #X connect 20 0 9 0;
chris@531 165 #X connect 21 0 14 0;
chris@531 166 #X connect 22 0 13 0;
chris@531 167 #X connect 23 0 14 1;
chris@531 168 #X restore 487 394 pd pulse;
chris@531 169 #X obj 366 105 inlet~;
chris@531 170 #X text 295 104 airflow >>;
chris@531 171 #X text 218 118 ('squeeze pressure');
chris@531 172 #X text 13 20 Sound model of a rubber duckie toy;
chris@531 173 #X text 14 51 Hint: use the differential of a continuous signal as
chris@531 174 input for a realistic response;
chris@531 175 #X text 13 29 ==================================;
chris@531 176 #X obj 366 133 lop~ 0.5;
chris@531 177 #X text 443 132 << airflow resistance;
chris@531 178 #X obj 186 536 *~ 1;
chris@531 179 #X obj 186 558 hip~ 10;
chris@531 180 #X text 759 581 @krighxz 2015;
chris@531 181 #X connect 0 0 40 0;
chris@531 182 #X connect 1 0 40 0;
chris@531 183 #X connect 2 0 3 0;
chris@531 184 #X connect 3 0 1 1;
chris@531 185 #X connect 4 0 7 0;
chris@531 186 #X connect 4 0 14 0;
chris@531 187 #X connect 4 0 28 0;
chris@531 188 #X connect 4 0 17 1;
chris@531 189 #X connect 4 0 15 0;
chris@531 190 #X connect 5 0 16 1;
chris@531 191 #X connect 6 0 31 0;
chris@531 192 #X connect 7 0 8 0;
chris@531 193 #X connect 8 0 9 0;
chris@531 194 #X connect 9 0 10 0;
chris@531 195 #X connect 9 0 10 1;
chris@531 196 #X connect 10 0 11 0;
chris@531 197 #X connect 11 0 12 1;
chris@531 198 #X connect 12 0 6 0;
chris@531 199 #X connect 13 0 12 0;
chris@531 200 #X connect 14 0 13 0;
chris@531 201 #X connect 15 0 19 0;
chris@531 202 #X connect 16 0 26 0;
chris@531 203 #X connect 17 0 22 0;
chris@531 204 #X connect 17 0 22 1;
chris@531 205 #X connect 18 0 15 1;
chris@531 206 #X connect 19 0 17 0;
chris@531 207 #X connect 22 0 23 1;
chris@531 208 #X connect 22 0 23 0;
chris@531 209 #X connect 23 0 0 0;
chris@531 210 #X connect 26 0 6 1;
chris@531 211 #X connect 27 0 1 0;
chris@531 212 #X connect 28 0 27 1;
chris@531 213 #X connect 28 0 27 0;
chris@531 214 #X connect 31 0 0 1;
chris@531 215 #X connect 32 0 38 0;
chris@531 216 #X connect 38 0 4 0;
chris@531 217 #X connect 38 0 16 0;
chris@531 218 #X connect 40 0 41 0;
chris@531 219 #X connect 41 0 30 0;