Mercurial > hg > weather-synthesis-prototyping

changeset 242:43260af1f2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Aeolian tone sources re-added along with motor model
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 17 Sep 2016 12:58:56 +0100
parents e2756266ed42
children d6f8d88c4d13
files Propellor/PropTestD2.pd
diffstat 1 files changed, 246 insertions(+), 253 deletions(-) [+]
line wrap: on
line diff
--- a/Propellor/PropTestD2.pd	Sat Sep 17 10:39:37 2016 +0100
+++ b/Propellor/PropTestD2.pd	Sat Sep 17 12:58:56 2016 +0100
@@ -1,4 +1,4 @@
-#N canvas 571 79 864 829 10;
+#N canvas 483 75 864 829 10;
 #X obj -46 20 loadbang;
 #X obj -46 42 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
@@ -1563,7 +1563,7 @@
 #X msg -289 57 \$1 30;
 #X obj -289 97 s~ Xobs;
 #X floatatom -101 291 0 0 0 0 - - -;
-#N canvas 361 203 1002 525 sources 0;
+#N canvas 361 203 1002 525 sources 1;
 #N canvas 163 121 1103 599 sourcePositions 0;
 #X obj 271 193 r Zobs;
 #X obj 185 191 r Yobs;
@@ -1763,56 +1763,55 @@
 #X restore 65 82 pd sourcePositions;
 #X text 480 -91 Patch that holds all the sources that are used to produce
 the basic aeolian tone.;
-#N canvas 72 499 1030 283 sourceAASpeed 0;
+#N canvas 216 23 1030 283 sourceAASpeed 0;
 #X obj 192 185 outlet~;
 #X text 178 211 Source Speed;
 #X obj 743 129 outlet;
 #X msg 743 107 0.12926;
 #X obj 743 84 loadbang;
-#X obj 409 135 *~ 0.21336;
-#X obj 409 113 cos~;
-#X obj 479 135 *~ 0.21336;
-#X obj 479 113 sin~;
-#X obj 192 39 r RPM;
-#X obj 192 88 * 6.28319;
-#X obj 192 112 * 0.21336;
-#X obj 192 158 line~;
-#X msg 192 135 \$1 20;
+#X obj 408 75 cos~;
+#X obj 479 78 sin~;
 #X text 262 88 2 PI;
 #X text 259 109 Radius of source;
-#X obj 809 82 r setUp;
-#X obj 192 63 / 60;
 #X obj 409 162 outlet~;
 #X obj 479 163 outlet~;
-#X msg 809 105 0.21336;
 #X text 330 180 y position of source;
 #X text 477 182 z position of source;
 #X text 724 152 diameter;
 #X text 861 180 radius;
 #X obj 809 177 outlet~;
-#X obj 809 150 line~;
-#X msg 809 127 \$1 20;
 #X obj 408 50 inlet~;
+#X obj 38 32 r~ length;
+#X obj 38 56 *~ 0.1541;
+#X obj 38 80 s~ AA1sourceRadius;
+#X obj 192 39 r~ RPM;
+#X obj 192 63 /~ 60;
+#X obj 192 88 *~ 6.28319;
+#X obj 192 152 *~;
+#X obj 207 131 r~ AA1sourceRadius;
+#X obj 409 135 *~;
+#X obj 479 135 *~;
+#X obj 424 96 r~ AA1sourceRadius;
+#X obj 494 115 r~ AA1sourceRadius;
+#X obj 809 155 r~ AA1sourceRadius;
 #X connect 3 0 2 0;
 #X connect 4 0 3 0;
-#X connect 4 0 20 0;
-#X connect 5 0 18 0;
-#X connect 6 0 5 0;
-#X connect 7 0 19 0;
-#X connect 8 0 7 0;
-#X connect 9 0 17 0;
-#X connect 10 0 11 0;
-#X connect 11 0 13 0;
-#X connect 12 0 0 0;
-#X connect 13 0 12 0;
-#X connect 16 0 3 0;
-#X connect 16 0 20 0;
-#X connect 17 0 10 0;
-#X connect 20 0 27 0;
-#X connect 26 0 25 0;
-#X connect 27 0 26 0;
-#X connect 28 0 6 0;
-#X connect 28 0 8 0;
+#X connect 5 0 25 0;
+#X connect 6 0 26 0;
+#X connect 16 0 5 0;
+#X connect 16 0 6 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 0 0;
+#X connect 24 0 23 1;
+#X connect 25 0 9 0;
+#X connect 26 0 10 0;
+#X connect 27 0 25 1;
+#X connect 28 0 26 1;
+#X connect 29 0 15 0;
 #X restore 42 58 pd sourceAASpeed;
 #X obj 29 -70 inlet~;
 #X obj 29 -42 s~ \$0-thisPhasor;
@@ -2019,16 +2018,10 @@
 #X text 178 211 Source Speed;
 #X obj 751 121 outlet;
 #X obj 751 76 loadbang;
-#X obj 409 113 cos~;
-#X obj 479 113 sin~;
-#X obj 192 39 r RPM;
-#X obj 192 88 * 6.28319;
-#X obj 192 158 line~;
-#X msg 192 135 \$1 20;
+#X obj 408 74 cos~;
+#X obj 479 73 sin~;
 #X text 262 88 2 PI;
 #X text 259 109 Radius of source;
-#X obj 817 74 r setUp;
-#X obj 192 63 / 60;
 #X obj 409 162 outlet~;
 #X obj 479 163 outlet~;
 #X text 330 180 y position of source;
@@ -2036,34 +2029,39 @@
 #X text 732 144 diameter;
 #X text 869 172 radius;
 #X obj 817 169 outlet~;
-#X obj 817 142 line~;
-#X msg 817 119 \$1 20;
 #X obj 408 50 inlet~;
-#X obj 409 135 *~ 0.42672;
-#X obj 479 135 *~ 0.42672;
-#X msg 817 97 0.42672;
-#X obj 192 112 * 0.42672;
 #X msg 751 99 0.127899;
-#X connect 3 0 28 0;
-#X connect 3 0 26 0;
-#X connect 4 0 24 0;
-#X connect 5 0 25 0;
-#X connect 6 0 13 0;
-#X connect 7 0 27 0;
-#X connect 8 0 0 0;
-#X connect 9 0 8 0;
-#X connect 12 0 28 0;
-#X connect 12 0 26 0;
-#X connect 13 0 7 0;
-#X connect 21 0 20 0;
-#X connect 22 0 21 0;
-#X connect 23 0 4 0;
-#X connect 23 0 5 0;
-#X connect 24 0 14 0;
-#X connect 25 0 15 0;
-#X connect 26 0 22 0;
-#X connect 27 0 9 0;
-#X connect 28 0 2 0;
+#X obj 48 42 r~ length;
+#X obj 48 66 *~ 0.1541;
+#X obj 48 84 s~ BB1sourceRadius;
+#X obj 192 39 r~ RPM;
+#X obj 192 63 /~ 60;
+#X obj 192 88 *~ 6.28319;
+#X obj 192 157 *~;
+#X obj 207 136 r~ BB1sourceRadius;
+#X obj 409 135 *~;
+#X obj 479 135 *~;
+#X obj 424 96 r~ BB1sourceRadius;
+#X obj 495 115 r~ BB1sourceRadius;
+#X obj 817 144 r~ BB1sourceRadius;
+#X connect 3 0 16 0;
+#X connect 4 0 25 0;
+#X connect 5 0 26 0;
+#X connect 15 0 4 0;
+#X connect 15 0 5 0;
+#X connect 16 0 2 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 0 0;
+#X connect 24 0 23 1;
+#X connect 25 0 8 0;
+#X connect 26 0 9 0;
+#X connect 27 0 25 1;
+#X connect 28 0 26 1;
+#X connect 29 0 14 0;
 #X restore 224 65 pd sourceBBSpeed;
 #X obj 222 37 r~ \$0-thisPhasor;
 #N canvas 163 121 1103 599 sourcePositions 0;
@@ -2264,21 +2262,15 @@
 #X connect 50 0 49 1;
 #X restore 449 89 pd sourcePositions;
 #X obj 425 42 r~ \$0-thisPhasor;
-#N canvas 317 171 1061 274 sourceCCSpeed 0;
+#N canvas 226 441 1061 274 sourceCCSpeed 0;
 #X obj 192 185 outlet~;
 #X text 178 211 Source Speed;
 #X obj 751 121 outlet;
 #X obj 751 76 loadbang;
-#X obj 409 113 cos~;
-#X obj 479 113 sin~;
-#X obj 192 39 r RPM;
-#X obj 192 88 * 6.28319;
-#X obj 192 158 line~;
-#X msg 192 135 \$1 20;
+#X obj 408 75 cos~;
+#X obj 478 76 sin~;
 #X text 262 88 2 PI;
 #X text 259 109 Radius of source;
-#X obj 817 74 r setUp;
-#X obj 192 63 / 60;
 #X obj 409 162 outlet~;
 #X obj 479 163 outlet~;
 #X text 330 180 y position of source;
@@ -2286,34 +2278,39 @@
 #X text 732 144 diameter;
 #X text 869 172 radius;
 #X obj 817 169 outlet~;
-#X obj 817 142 line~;
-#X msg 817 119 \$1 20;
 #X obj 408 50 inlet~;
 #X msg 751 99 0.127608;
-#X obj 479 135 *~ 0.6096;
-#X obj 409 135 *~ 0.6096;
-#X obj 192 112 * 0.6096;
-#X msg 817 97 0.6096;
-#X connect 3 0 24 0;
-#X connect 3 0 28 0;
-#X connect 4 0 26 0;
-#X connect 5 0 25 0;
-#X connect 6 0 13 0;
-#X connect 7 0 27 0;
-#X connect 8 0 0 0;
-#X connect 9 0 8 0;
-#X connect 12 0 24 0;
-#X connect 12 0 28 0;
-#X connect 13 0 7 0;
-#X connect 21 0 20 0;
-#X connect 22 0 21 0;
-#X connect 23 0 4 0;
-#X connect 23 0 5 0;
-#X connect 24 0 2 0;
-#X connect 25 0 15 0;
-#X connect 26 0 14 0;
-#X connect 27 0 9 0;
-#X connect 28 0 22 0;
+#X obj 48 42 r~ length;
+#X obj 48 66 *~ 0.1541;
+#X obj 48 90 s~ CC1sourceRadius;
+#X obj 206 141 r~ CC1sourceRadius;
+#X obj 192 39 r~ RPM;
+#X obj 192 63 /~ 60;
+#X obj 192 88 *~ 6.28319;
+#X obj 192 162 *~;
+#X obj 409 135 *~;
+#X obj 479 135 *~;
+#X obj 426 95 r~ CC1sourceRadius;
+#X obj 493 115 r~ CC1sourceRadius;
+#X obj 817 142 r~ CC1sourceRadius;
+#X connect 3 0 16 0;
+#X connect 4 0 25 0;
+#X connect 5 0 26 0;
+#X connect 15 0 4 0;
+#X connect 15 0 5 0;
+#X connect 16 0 2 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 24 1;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 24 0;
+#X connect 24 0 0 0;
+#X connect 25 0 8 0;
+#X connect 26 0 9 0;
+#X connect 27 0 25 1;
+#X connect 28 0 26 1;
+#X connect 29 0 14 0;
 #X restore 425 63 pd sourceCCSpeed;
 #N canvas 163 121 1103 599 sourcePositions 0;
 #X obj 271 193 r Zobs;
@@ -2513,21 +2510,15 @@
 #X connect 50 0 49 1;
 #X restore 683 85 pd sourcePositions;
 #X obj 660 41 r~ \$0-thisPhasor;
-#N canvas 273 103 1061 274 sourceDDSpeed 0;
+#N canvas 208 486 1061 274 sourceDDSpeed 0;
 #X obj 192 185 outlet~;
 #X text 178 211 Source Speed;
 #X obj 751 121 outlet;
 #X obj 751 76 loadbang;
-#X obj 409 113 cos~;
-#X obj 479 113 sin~;
-#X obj 192 39 r RPM;
-#X obj 192 88 * 6.28319;
-#X obj 192 158 line~;
-#X msg 192 135 \$1 20;
+#X obj 408 76 cos~;
+#X obj 479 76 sin~;
 #X text 262 88 2 PI;
 #X text 259 109 Radius of source;
-#X obj 817 74 r setUp;
-#X obj 192 63 / 60;
 #X obj 409 162 outlet~;
 #X obj 479 163 outlet~;
 #X text 330 180 y position of source;
@@ -2535,34 +2526,39 @@
 #X text 732 144 diameter;
 #X text 869 172 radius;
 #X obj 817 169 outlet~;
-#X obj 817 142 line~;
-#X msg 817 119 \$1 20;
 #X obj 408 50 inlet~;
-#X obj 409 135 *~ 0.82296;
-#X obj 479 135 *~ 0.82296;
-#X msg 817 97 0.82296;
-#X obj 192 112 * 0.82296;
 #X msg 751 99 0.114935;
-#X connect 3 0 28 0;
-#X connect 3 0 26 0;
-#X connect 4 0 24 0;
-#X connect 5 0 25 0;
-#X connect 6 0 13 0;
-#X connect 7 0 27 0;
-#X connect 8 0 0 0;
-#X connect 9 0 8 0;
-#X connect 12 0 28 0;
-#X connect 12 0 26 0;
-#X connect 13 0 7 0;
-#X connect 21 0 20 0;
-#X connect 22 0 21 0;
-#X connect 23 0 4 0;
-#X connect 23 0 5 0;
-#X connect 24 0 14 0;
-#X connect 25 0 15 0;
-#X connect 26 0 22 0;
-#X connect 27 0 9 0;
-#X connect 28 0 2 0;
+#X obj 48 42 r~ length;
+#X obj 48 66 *~ 0.1541;
+#X obj 48 90 s~ DD1sourceRadius;
+#X obj 206 139 r~ DD1sourceRadius;
+#X obj 192 39 r~ RPM;
+#X obj 192 63 /~ 60;
+#X obj 192 88 *~ 6.28319;
+#X obj 192 163 *~;
+#X obj 409 135 *~;
+#X obj 479 135 *~;
+#X obj 818 142 r~ DD1sourceRadius;
+#X obj 494 113 r~ DD1sourceRadius;
+#X obj 425 111 r~ DD1sourceRadius;
+#X connect 3 0 16 0;
+#X connect 4 0 25 0;
+#X connect 5 0 26 0;
+#X connect 15 0 4 0;
+#X connect 15 0 5 0;
+#X connect 16 0 2 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 24 1;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 24 0;
+#X connect 24 0 0 0;
+#X connect 25 0 8 0;
+#X connect 26 0 9 0;
+#X connect 27 0 14 0;
+#X connect 28 0 26 1;
+#X connect 29 0 25 1;
 #X restore 660 62 pd sourceDDSpeed;
 #N canvas 163 121 1103 599 sourcePositions 0;
 #X obj 271 193 r Zobs;
@@ -2762,21 +2758,15 @@
 #X connect 50 0 49 1;
 #X restore 153 242 pd sourcePositions;
 #X obj 122 189 r~ \$0-thisPhasor;
-#N canvas 273 103 1061 274 sourceEESpeed 0;
+#N canvas 252 340 1061 274 sourceEESpeed 0;
 #X obj 192 185 outlet~;
 #X text 178 211 Source Speed;
 #X obj 751 121 outlet;
 #X obj 751 76 loadbang;
-#X obj 409 113 cos~;
-#X obj 479 113 sin~;
-#X obj 192 39 r RPM;
-#X obj 192 88 * 6.28319;
-#X obj 192 158 line~;
-#X msg 192 135 \$1 20;
+#X obj 408 76 cos~;
+#X obj 479 75 sin~;
 #X text 262 88 2 PI;
 #X text 259 109 Radius of source;
-#X obj 817 74 r setUp;
-#X obj 192 63 / 60;
 #X obj 409 162 outlet~;
 #X obj 479 163 outlet~;
 #X text 330 180 y position of source;
@@ -2784,51 +2774,50 @@
 #X text 732 144 diameter;
 #X text 869 172 radius;
 #X obj 817 169 outlet~;
-#X obj 817 142 line~;
-#X msg 817 119 \$1 20;
 #X obj 408 50 inlet~;
-#X obj 409 135 *~ 1.03632;
-#X obj 479 135 *~ 1.03632;
-#X msg 817 97 1.03632;
-#X obj 192 112 * 1.03632;
 #X msg 751 99 0.093257;
-#X connect 3 0 28 0;
-#X connect 3 0 26 0;
-#X connect 4 0 24 0;
-#X connect 5 0 25 0;
-#X connect 6 0 13 0;
-#X connect 7 0 27 0;
-#X connect 8 0 0 0;
-#X connect 9 0 8 0;
-#X connect 12 0 28 0;
-#X connect 12 0 26 0;
-#X connect 13 0 7 0;
-#X connect 21 0 20 0;
-#X connect 22 0 21 0;
-#X connect 23 0 4 0;
-#X connect 23 0 5 0;
-#X connect 24 0 14 0;
-#X connect 25 0 15 0;
-#X connect 26 0 22 0;
-#X connect 27 0 9 0;
-#X connect 28 0 2 0;
+#X obj 48 42 r~ length;
+#X obj 48 66 *~ 0.1541;
+#X obj 48 90 s~ EE1sourceRadius;
+#X obj 192 39 r~ RPM;
+#X obj 192 63 /~ 60;
+#X obj 192 88 *~ 6.28319;
+#X obj 192 160 *~;
+#X obj 205 136 r~ EE1sourceRadius;
+#X obj 409 135 *~;
+#X obj 479 135 *~;
+#X obj 423 97 r~ EE1sourceRadius;
+#X obj 493 115 r~ EE1sourceRadius;
+#X obj 818 147 r~ EE1sourceRadius;
+#X connect 3 0 16 0;
+#X connect 4 0 25 0;
+#X connect 5 0 26 0;
+#X connect 15 0 4 0;
+#X connect 15 0 5 0;
+#X connect 16 0 2 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 0 0;
+#X connect 24 0 23 1;
+#X connect 25 0 8 0;
+#X connect 26 0 9 0;
+#X connect 27 0 25 1;
+#X connect 28 0 26 1;
+#X connect 29 0 14 0;
 #X restore 122 210 pd sourceEESpeed;
 #X obj 345 197 r~ \$0-thisPhasor;
-#N canvas 141 109 1030 283 sourceFFSpeed 0;
+#N canvas 131 376 1030 283 sourceFFSpeed 0;
 #X obj 192 185 outlet~;
 #X text 178 211 Source Speed;
 #X obj 743 129 outlet;
 #X obj 743 84 loadbang;
-#X obj 409 113 cos~;
-#X obj 479 113 sin~;
-#X obj 192 39 r RPM;
-#X obj 192 88 * 6.28319;
-#X obj 192 158 line~;
-#X msg 192 135 \$1 20;
+#X obj 408 80 cos~;
+#X obj 478 74 sin~;
 #X text 262 88 2 PI;
 #X text 259 109 Radius of source;
-#X obj 809 82 r setUp;
-#X obj 192 63 / 60;
 #X obj 409 162 outlet~;
 #X obj 479 163 outlet~;
 #X text 330 180 y position of source;
@@ -2836,34 +2825,39 @@
 #X text 724 152 diameter;
 #X text 861 180 radius;
 #X obj 809 177 outlet~;
-#X obj 809 150 line~;
-#X msg 809 127 \$1 20;
 #X obj 408 50 inlet~;
-#X obj 409 135 *~ 1.2192;
-#X obj 479 135 *~ 1.2192;
-#X msg 809 105 1.2192;
-#X obj 192 112 * 1.2192;
 #X msg 743 107 0.07018;
-#X connect 3 0 28 0;
-#X connect 3 0 26 0;
-#X connect 4 0 24 0;
-#X connect 5 0 25 0;
-#X connect 6 0 13 0;
-#X connect 7 0 27 0;
-#X connect 8 0 0 0;
-#X connect 9 0 8 0;
-#X connect 12 0 28 0;
-#X connect 12 0 26 0;
-#X connect 13 0 7 0;
-#X connect 21 0 20 0;
-#X connect 22 0 21 0;
-#X connect 23 0 4 0;
-#X connect 23 0 5 0;
-#X connect 24 0 14 0;
-#X connect 25 0 15 0;
-#X connect 26 0 22 0;
-#X connect 27 0 9 0;
-#X connect 28 0 2 0;
+#X obj 48 42 r~ length;
+#X obj 48 66 *~ 0.1541;
+#X obj 48 90 s~ FF1sourceRadius;
+#X obj 208 130 r~ FF1sourceRadius;
+#X obj 808 154 r~ FF1sourceRadius;
+#X obj 409 135 *~;
+#X obj 479 135 *~;
+#X obj 427 99 r~ FF1sourceRadius;
+#X obj 495 116 r~ FF1sourceRadius;
+#X obj 192 39 r~ RPM;
+#X obj 191 63 /~ 60;
+#X obj 192 88 *~ 6.28319;
+#X obj 192 153 *~;
+#X connect 3 0 16 0;
+#X connect 4 0 22 0;
+#X connect 5 0 23 0;
+#X connect 15 0 4 0;
+#X connect 15 0 5 0;
+#X connect 16 0 2 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 29 1;
+#X connect 21 0 14 0;
+#X connect 22 0 8 0;
+#X connect 23 0 9 0;
+#X connect 24 0 22 1;
+#X connect 25 0 23 1;
+#X connect 26 0 27 0;
+#X connect 27 0 28 0;
+#X connect 28 0 29 0;
+#X connect 29 0 0 0;
 #X restore 345 220 pd sourceFFSpeed;
 #N canvas 163 121 1103 599 sourcePositions 0;
 #X obj 271 193 r Zobs;
@@ -3063,21 +3057,15 @@
 #X connect 50 0 49 1;
 #X restore 628 257 pd sourcePositions;
 #X obj 605 211 r~ \$0-thisPhasor;
-#N canvas 171 136 1061 274 sourceGGSpeed 0;
+#N canvas 175 426 1061 274 sourceGGSpeed 0;
 #X obj 192 185 outlet~;
 #X text 178 211 Source Speed;
 #X obj 751 121 outlet;
 #X obj 751 76 loadbang;
-#X obj 409 113 cos~;
-#X obj 479 113 sin~;
-#X obj 192 39 r RPM;
-#X obj 192 88 * 6.28319;
-#X obj 192 158 line~;
-#X msg 192 135 \$1 20;
+#X obj 408 79 cos~;
+#X obj 475 76 sin~;
 #X text 262 88 2 PI;
 #X text 259 109 Radius of source;
-#X obj 817 74 r setUp;
-#X obj 192 63 / 60;
 #X obj 409 162 outlet~;
 #X obj 479 163 outlet~;
 #X text 330 180 y position of source;
@@ -3085,34 +3073,39 @@
 #X text 732 144 diameter;
 #X text 869 172 radius;
 #X obj 817 169 outlet~;
-#X obj 817 142 line~;
-#X msg 817 119 \$1 20;
 #X obj 408 50 inlet~;
-#X obj 409 135 *~ 1.31064;
-#X obj 479 135 *~ 1.31064;
-#X obj 192 112 * 1.31064;
-#X msg 817 97 1.31064;
 #X msg 751 99 0.055417;
-#X connect 3 0 28 0;
-#X connect 3 0 27 0;
-#X connect 4 0 24 0;
-#X connect 5 0 25 0;
-#X connect 6 0 13 0;
-#X connect 7 0 26 0;
-#X connect 8 0 0 0;
-#X connect 9 0 8 0;
-#X connect 12 0 28 0;
-#X connect 12 0 27 0;
-#X connect 13 0 7 0;
-#X connect 21 0 20 0;
-#X connect 22 0 21 0;
-#X connect 23 0 4 0;
-#X connect 23 0 5 0;
-#X connect 24 0 14 0;
-#X connect 25 0 15 0;
-#X connect 26 0 9 0;
-#X connect 27 0 22 0;
-#X connect 28 0 2 0;
+#X obj 48 42 r~ length;
+#X obj 48 66 *~ 0.1541;
+#X obj 48 90 s~ GG1sourceRadius;
+#X obj 816 147 r~ GG1sourceRadius;
+#X obj 192 39 r~ RPM;
+#X obj 191 63 /~ 60;
+#X obj 192 88 *~ 6.28319;
+#X obj 192 151 *~;
+#X obj 207 127 r~ GG1sourceRadius;
+#X obj 409 135 *~;
+#X obj 479 135 *~;
+#X obj 428 97 r~ GG1sourceRadius;
+#X obj 494 114 r~ GG1sourceRadius;
+#X connect 3 0 16 0;
+#X connect 4 0 26 0;
+#X connect 5 0 27 0;
+#X connect 15 0 4 0;
+#X connect 15 0 5 0;
+#X connect 16 0 2 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 14 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 24 0;
+#X connect 24 0 0 0;
+#X connect 25 0 24 1;
+#X connect 26 0 8 0;
+#X connect 27 0 9 0;
+#X connect 28 0 26 1;
+#X connect 29 0 27 1;
 #X restore 605 232 pd sourceGGSpeed;
 #X obj 351 -58 *~ 6.2832;
 #X obj 244 -48 *~ 360;
@@ -3408,9 +3401,7 @@
 #X connect 30 3 39 5;
 #X connect 31 0 39 6;
 #X connect 32 0 38 6;
-#X restore 302 249 pd sources;
-#X obj 298 169 r RPM;
-#X obj 298 193 / 60;
+#X restore 298 249 pd sources;
 #X obj 298 218 phasor~;
 #X obj 255 262 wrap~;
 #X obj 255 240 +~ 0.5;
@@ -5491,6 +5482,8 @@
 #X connect 26 0 9 0;
 #X connect 26 0 7 1;
 #X restore -30 377 pd myMotor;
+#X obj 298 169 r~ RPM;
+#X obj 298 193 /~ 60;
 #X connect 0 0 1 0;
 #X connect 1 0 52 0;
 #X connect 3 0 4 0;
@@ -5578,10 +5571,10 @@
 #X connect 101 0 100 0;
 #X connect 103 0 105 0;
 #X connect 104 0 103 0;
-#X connect 108 0 109 0;
-#X connect 109 0 110 0;
-#X connect 110 0 112 0;
-#X connect 110 0 107 0;
-#X connect 111 0 113 0;
-#X connect 112 0 111 0;
+#X connect 108 0 110 0;
+#X connect 108 0 107 0;
+#X connect 109 0 111 0;
+#X connect 110 0 109 0;
+#X connect 113 0 114 0;
+#X connect 114 0 108 0;
 #X coords 0 -1 1 1 150 200 2 50 400;