diff June/Gen2_D2.pd @ 47:a5a457d56a39

cursor track added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 01 Jun 2015 13:14:10 +0100
parents 9bc0e269d5e8
children 4b14b2a355e9
line wrap: on
line diff
--- a/June/Gen2_D2.pd	Mon Jun 01 07:50:29 2015 +0100
+++ b/June/Gen2_D2.pd	Mon Jun 01 13:14:10 2015 +0100
@@ -1,4 +1,4 @@
-#N canvas 619 64 650 752 10;
+#N canvas 206 23 830 745 10;
 #N canvas 236 158 426 423 windspeed 0;
 #X obj 3 -19 +~ 1;
 #X obj 3 76 +~;
@@ -84,12 +84,12 @@
 #X obj 56 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
 #X obj 119 429 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
 #X obj 210 429 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
--1 -1 8300 1;
+-1 -1 6700 1;
 #X text 239 448 Gain;
 #X obj 210 365 loadbang;
 #X obj 260 78 delwrite~ varwind 3000;
 #X obj 343 -114 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 10400 1;
+-1 -1 6900 1;
 #X obj 303 -11 snapshot~;
 #X obj 303 -36 metro 100;
 #X obj 303 -58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
@@ -133,9 +133,75 @@
 #X text 300 34 Wind Speed;
 #X text 487 -70 Diameter;
 #X obj 405 217 thisFreq;
-#X obj 401 179 unpack f f f f;
-#X msg 429 106 300 0.015 65 60;
-#X msg 402 151 300 0.0035 5 -40;
+#X obj 374 431 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 374 457 cursor;
+#X obj 374 481 route motion;
+#X obj 374 509 route x y;
+#X floatatom 334 562 5 0 0 0 - - -;
+#X floatatom 466 539 5 0 0 0 - - -;
+#X obj 374 563 s xCurs;
+#X obj 399 543 s yCurs;
+#N canvas 487 70 461 333 posCalc 0;
+#X obj 102 -1 r xCurs;
+#X obj 156 0 r yCurs;
+#X obj 102 27 t b f;
+#X obj 51 22 inlet;
+#X obj 220 16 inlet;
+#X obj 104 80 -;
+#X obj 160 80 -;
+#X obj 156 29 t b f;
+#X obj 105 141 *;
+#X obj 161 139 *;
+#X obj 131 199 sqrt;
+#X msg 51 57 100;
+#X msg 220 54 100;
+#X obj 131 173 +;
+#X floatatom 78 233 5 0 0 0 - - -;
+#X obj 104 104 / 10;
+#X obj 160 104 / 10;
+#X obj 131 232 outlet;
+#X obj 254 135 /;
+#X floatatom 316 186 9 0 0 0 - - -;
+#X floatatom 46 147 5 0 0 0 - - -;
+#X obj 254 162 expr acos($f1);
+#X obj 254 186 * 360;
+#X obj 254 210 / 6.28319;
+#X floatatom 315 238 5 0 0 0 - - -;
+#X obj 254 234 outlet;
+#X connect 0 0 2 0;
+#X connect 1 0 7 0;
+#X connect 2 0 11 0;
+#X connect 2 1 5 0;
+#X connect 5 0 15 0;
+#X connect 6 0 16 0;
+#X connect 7 0 12 0;
+#X connect 7 1 6 0;
+#X connect 8 0 13 0;
+#X connect 9 0 13 1;
+#X connect 10 0 14 0;
+#X connect 10 0 17 0;
+#X connect 10 0 18 1;
+#X connect 11 0 5 1;
+#X connect 12 0 6 1;
+#X connect 13 0 10 0;
+#X connect 15 0 8 0;
+#X connect 15 0 8 1;
+#X connect 15 0 18 0;
+#X connect 15 0 20 0;
+#X connect 16 0 9 0;
+#X connect 16 0 9 1;
+#X connect 18 0 21 0;
+#X connect 21 0 19 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 24 0;
+#X connect 23 0 25 0;
+#X restore 435 182 pd posCalc;
+#X msg 435 155 100;
+#X msg 492 155 100;
+#X msg 363 154 300 0.0035;
+#X obj 363 182 unpack f f;
 #X connect 0 0 25 0;
 #X connect 16 0 31 0;
 #X connect 18 0 33 0;
@@ -151,9 +217,17 @@
 #X connect 31 1 15 0;
 #X connect 32 0 23 0;
 #X connect 33 0 16 0;
-#X connect 37 0 36 0;
-#X connect 37 1 36 1;
-#X connect 37 2 36 2;
-#X connect 37 3 36 3;
-#X connect 38 0 37 0;
-#X connect 39 0 37 0;
+#X connect 37 0 38 0;
+#X connect 38 0 39 0;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X connect 40 0 43 0;
+#X connect 40 1 42 0;
+#X connect 40 1 44 0;
+#X connect 45 0 36 2;
+#X connect 45 1 36 3;
+#X connect 46 0 45 0;
+#X connect 47 0 45 1;
+#X connect 48 0 49 0;
+#X connect 49 0 36 0;
+#X connect 49 1 36 1;