view Propellor/gutinGain.pd @ 303:8b51c20529a6

Edgetone development models
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 11 Nov 2017 17:43:39 +0000
parents 50b3a47abeff
children
line wrap: on
line source
#N canvas 885 36 560 606 10;
#X msg 48 98 \$1 40;
#X obj 49 151 line~;
#X obj 189 43 /~ 360;
#X obj 189 64 sin~;
#X obj 189 125 *~;
#X obj 58 349 *~;
#X obj 73 327 r~ \$0-thisHar;
#X obj 73 369 r~ noBlad;
#X obj 58 390 *~;
#X obj 58 412 /~ 343;
#X obj 204 145 r~ \$0-thisK;
#X obj 189 165 *~;
#X obj 221 166 r~ \$0-thisHar;
#X obj 236 187 r~ noBlad;
#X obj 221 207 *~;
#X obj 221 227 *~ 2;
#X obj 189 249 pow~;
#X obj 204 269 r~ \$0-thisK;
#X obj 204 291 *~;
#X obj 232 290 r~ noBlad;
#X obj 232 313 *~;
#X obj 204 334 *~;
#X obj 189 355 *~;
#X obj 204 397 /~ 360;
#X obj 204 418 cos~;
#X obj 204 438 -~ 0.2;
#X obj 204 459 *~;
#X obj 189 480 *~;
#X obj 315 42 r Yobs;
#X msg 315 62 \$1 30;
#X obj 315 82 line~;
#X msg 358 62 \$1 30;
#X obj 358 82 line~;
#X obj 358 42 r Xobs;
#X obj 315 102 *~;
#X obj 358 102 *~;
#X obj 315 123 +~;
#X msg 407 61 \$1 30;
#X obj 407 81 line~;
#X obj 407 101 *~;
#X obj 407 41 r Zobs;
#X obj 315 144 +~;
#X obj 315 166 sqrt~;
#X obj 315 188 *~;
#X obj 315 209 *~ 343;
#X obj 315 231 *~ 1.225;
#X obj 315 253 *~ 9.8696;
#X text 381 252 pi^2;
#X text 357 167 distance r;
#X obj 221 248 s~ \$0-2nB;
#X obj 351 293 r~ \$0-2nB;
#X obj 330 273 sig~ 2;
#X obj 330 314 pow~;
#X obj 315 335 *~;
#N canvas 624 230 308 378 factorial 0;
#X obj 148 24 inlet~;
#X obj 148 47 /~ 2.71828;
#X obj 148 68 pow~;
#X obj 56 57 *~;
#X obj 56 80 *~;
#X obj 56 102 *~ 8;
#X obj 89 80 *~;
#X obj 89 102 *~ 4;
#X obj 56 128 +~;
#X obj 56 151 +~;
#X obj 56 173 +~ 0.033333;
#X obj 133 231 *~;
#X obj 133 254 *~ 1.77245;
#X obj 133 276 outlet~;
#X text 70 255 sqrt(pi);
#X obj 132 174 sig~ 0.166667;
#X obj 56 195 pow~;
#X text 48 322 Ramanujan;
#X connect 0 0 1 0;
#X connect 0 0 2 1;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 0 0 4 1;
#X connect 0 0 6 0;
#X connect 0 0 6 1;
#X connect 0 0 9 1;
#X connect 1 0 2 0;
#X connect 2 0 11 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 16 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 15 0 16 1;
#X connect 16 0 11 0;
#X restore 330 395 pd factorial;
#X obj 330 356 r~ \$0-2nB;
#X obj 330 376 /~ 2;
#X obj 330 416 *~;
#X obj 315 439 *~;
#X obj 189 504 /~;
#X obj 243 39 line~;
#X msg 253 -3 360 10000;
#X msg 288 12 0;
#X obj 189 546 outlet~;
#X obj 49 172 s~ \$0-thisHar;
#X obj 58 434 s~ \$0-thisK;
#X obj 189 20 r~ az;
#X obj 204 376 r~ az;
#X obj 58 307 r~ radsec;
#X obj 109 24 r myMet;
#X obj 109 44 snapshot~;
#X floatatom 109 63 0 0 0 0 - - -;
#X obj 189 86 abs~;
#X obj 189 525 max~ 1e-20;
#X msg 49 130 1;
#X obj 84 127 loadbang;
#X obj 204 105 r~ length;
#X connect 1 0 64 0;
#X connect 2 0 3 0;
#X connect 3 0 72 0;
#X connect 4 0 11 0;
#X connect 5 0 8 0;
#X connect 6 0 5 1;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 65 0;
#X connect 10 0 11 1;
#X connect 11 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 14 1;
#X connect 14 0 15 0;
#X connect 15 0 16 1;
#X connect 15 0 49 0;
#X connect 16 0 22 0;
#X connect 17 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 27 1;
#X connect 27 0 59 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 34 0;
#X connect 30 0 34 1;
#X connect 31 0 32 0;
#X connect 32 0 35 0;
#X connect 32 0 35 1;
#X connect 33 0 31 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 41 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 41 1;
#X connect 40 0 37 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 42 0 43 1;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 53 0;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 1;
#X connect 53 0 58 0;
#X connect 54 0 57 0;
#X connect 54 0 57 1;
#X connect 55 0 56 0;
#X connect 56 0 54 0;
#X connect 57 0 58 1;
#X connect 58 0 59 1;
#X connect 59 0 73 0;
#X connect 61 0 60 0;
#X connect 62 0 60 0;
#X connect 66 0 2 0;
#X connect 66 0 70 0;
#X connect 67 0 23 0;
#X connect 68 0 5 0;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 72 0 4 0;
#X connect 73 0 63 0;
#X connect 74 0 1 0;
#X connect 75 0 74 0;
#X connect 76 0 4 1;