diff Propellor/gutinGain.pd @ 239:0afd235c4bb9

Propeller patch development - rotation noise started
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Thu, 15 Sep 2016 22:35:55 +0100
parents
children 51eb6697eb81
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Propellor/gutinGain.pd	Thu Sep 15 22:35:55 2016 +0100
@@ -0,0 +1,209 @@
+#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 277 504 r myMet;
+#X obj 277 524 snapshot~;
+#X floatatom 277 543 0 0 0 0 - - -;
+#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 204 105 r~ thisL;
+#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 97 518 r myMet;
+#X obj 97 538 snapshot~;
+#X floatatom 97 557 0 0 0 0 - - -;
+#X obj 189 525 max~ 1e-20;
+#X msg 49 130 1;
+#X obj 84 127 loadbang;
+#X connect 1 0 67 0;
+#X connect 2 0 3 0;
+#X connect 3 0 76 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 68 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 62 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 61 0;
+#X connect 54 0 60 0;
+#X connect 54 0 60 1;
+#X connect 55 0 56 0;
+#X connect 56 0 57 0;
+#X connect 58 0 59 0;
+#X connect 59 0 54 0;
+#X connect 60 0 61 1;
+#X connect 61 0 62 1;
+#X connect 62 0 56 0;
+#X connect 62 0 80 0;
+#X connect 64 0 63 0;
+#X connect 65 0 63 0;
+#X connect 69 0 2 0;
+#X connect 69 0 74 0;
+#X connect 70 0 23 0;
+#X connect 71 0 4 1;
+#X connect 72 0 5 0;
+#X connect 73 0 74 0;
+#X connect 74 0 75 0;
+#X connect 76 0 4 0;
+#X connect 77 0 78 0;
+#X connect 78 0 79 0;
+#X connect 80 0 66 0;
+#X connect 80 0 78 0;
+#X connect 81 0 1 0;
+#X connect 82 0 81 0;