Mercurial > hg > beaglert

annotate projects/heavy/pd/rubberDuckie/_main.pd @ 164:40badaff5729 heavy-updated

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