diff SwordSounds/centreAngles.pd @ 100:cb211bfa6029

Swordsounds: position of the point sounce source wrt the centre of the sphere is calculated.

Distance between the source and a point representing an observer is calculated.

Still to calculate the angle between line joining the source and observer and the sword.

--- a/SwordSounds/centreAngles.pd	Fri Jul 24 19:31:22 2015 +0100
+++ b/SwordSounds/centreAngles.pd	Fri Jul 24 22:21:07 2015 +0100
@@ -1,96 +1,104 @@
 #N canvas 0 22 1376 625 10;
-#X obj 69 174 f;
-#X obj 69 131 r GO;
-#X obj 84 152 r preswingTime;
-#X obj 231 232 line~;
-#X obj 96 296 loadbang;
-#X obj 96 317 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 69 140 f;
+#X obj 69 97 r GO;
+#X obj 84 118 r preswingTime;
+#X obj 231 198 line~;
+#X obj 96 262 loadbang;
+#X obj 96 283 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
-#X obj 96 335 metro 10;
-#X obj 96 357 snapshot~;
-#X floatatom 96 377 5 0 0 0 - - -;
-#X obj 177 393 hsl 128 15 -90 270 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 3175 1;
-#X obj 231 131 r setUp;
-#X text 214 112 Start at 0 speed;
-#X obj 231 259 outlet~;
-#X obj 246 152 r presweepAzim;
-#X obj 231 175 f;
-#X msg 231 198 \$1;
-#X msg 69 197 0 \$1;
-#X obj 355 76 t f b;
-#X obj 356 104 delay;
-#X obj 370 31 r preswingTime;
-#X obj 377 153 r postswingTime;
-#X obj 355 11 r GO;
-#X obj 355 53 f;
-#X obj 356 131 f;
-#X obj 356 176 pack;
-#X obj 398 79 r postsweepAzim;
-#X msg 356 202 \$1 \$2;
-#X obj 398 102 * -1;
-#X obj 179 131 r myEnd;
-#X text 294 251 Current source Azimuth angle;
-#X obj 858 143 f;
-#X obj 858 100 r GO;
-#X obj 879 166 r preswingTime;
-#X obj 1029 266 line~;
-#X obj 882 329 loadbang;
-#X obj 882 350 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 96 301 metro 10;
+#X obj 96 323 snapshot~;
+#X floatatom 96 343 5 0 0 0 - - -;
+#X obj 177 359 hsl 128 15 -90 270 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 5997 1;
+#X obj 231 97 r setUp;
+#X text 214 78 Start at 0 speed;
+#X obj 231 225 outlet~;
+#X obj 246 118 r presweepAzim;
+#X obj 231 141 f;
+#X msg 231 164 \$1;
+#X msg 69 163 0 \$1;
+#X obj 355 42 t f b;
+#X obj 356 70 delay;
+#X obj 370 -3 r preswingTime;
+#X obj 377 119 r postswingTime;
+#X obj 355 -23 r GO;
+#X obj 355 19 f;
+#X obj 356 97 f;
+#X obj 356 142 pack;
+#X obj 398 71 r postsweepAzim;
+#X msg 356 168 \$1 \$2;
+#X obj 179 97 r myEnd;
+#X text 294 217 Current source Azimuth angle;
+#X obj 858 109 f;
+#X obj 858 66 r GO;
+#X obj 879 132 r preswingTime;
+#X obj 1029 232 line~;
+#X obj 882 295 loadbang;
+#X obj 882 316 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
-#X obj 882 368 metro 10;
-#X obj 882 390 snapshot~;
-#X floatatom 882 410 5 0 0 0 - - -;
-#X obj 963 426 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 6350 1;
-#X obj 1029 165 r setUp;
-#X text 1012 146 Start at 0 speed;
-#X obj 1029 293 outlet~;
-#X obj 1029 209 f;
-#X msg 1029 232 \$1;
-#X obj 1141 109 t f b;
-#X obj 1142 137 delay;
-#X obj 1156 64 r preswingTime;
-#X obj 1163 186 r postswingTime;
-#X obj 1141 44 r GO;
-#X obj 1141 86 f;
-#X obj 1142 164 f;
-#X obj 1142 209 pack;
-#X msg 1142 235 \$1 \$2;
-#X obj 977 165 r myEnd;
-#X obj 1044 186 r presweepElev;
-#X obj 1184 112 r postsweepElev;
-#X obj 858 190 pack;
-#X obj 873 122 r midElev;
-#X msg 858 224 \$1 \$2;
-#X obj 658 108 +;
-#X obj 643 135 /;
-#X obj 616 87 t f f;
-#X floatatom 589 166 5 0 0 0 - - -;
-#X obj 658 158 r presweepElev;
-#X obj 673 180 r postsweepElev;
-#X obj 658 64 r postswingTime;
-#X obj 673 86 r preswingTime;
-#X obj 658 209 +;
-#X obj 643 232 *;
-#X floatatom 606 259 5 0 0 0 - - -;
-#X obj 643 255 s midElev;
-#X text 536 -66 Calculate the angles with respect to the centre of
+#X obj 882 334 metro 10;
+#X obj 882 356 snapshot~;
+#X floatatom 882 376 5 0 0 0 - - -;
+#X obj 963 392 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 9878 1;
+#X obj 1029 131 r setUp;
+#X text 1012 112 Start at 0 speed;
+#X obj 1029 316 outlet~;
+#X obj 1029 175 f;
+#X msg 1029 198 \$1;
+#X obj 1141 75 t f b;
+#X obj 1142 103 delay;
+#X obj 1156 30 r preswingTime;
+#X obj 1163 152 r postswingTime;
+#X obj 1141 10 r GO;
+#X obj 1141 52 f;
+#X obj 1142 130 f;
+#X obj 1142 175 pack;
+#X msg 1142 201 \$1 \$2;
+#X obj 1044 152 r presweepElev;
+#X obj 1184 78 r postsweepElev;
+#X obj 858 156 pack;
+#X obj 873 88 r midElev;
+#X msg 858 190 \$1 \$2;
+#X obj 658 74 +;
+#X obj 643 101 /;
+#X obj 616 53 t f f;
+#X floatatom 589 132 5 0 0 0 - - -;
+#X obj 658 124 r presweepElev;
+#X obj 673 146 r postsweepElev;
+#X obj 658 30 r postswingTime;
+#X obj 673 52 r preswingTime;
+#X obj 658 175 +;
+#X obj 643 198 *;
+#X floatatom 606 225 5 0 0 0 - - -;
+#X obj 643 221 s midElev;
+#X text 536 -100 Calculate the angles with respect to the centre of
 the swing circle;
-#X text 1092 285 Current source Elevation angle;
-#X obj 49 379 outlet;
-#X obj 823 412 outlet;
+#X text 1092 251 Current source Elevation angle;
+#X obj 49 345 outlet;
+#X obj 823 378 outlet;
+#X obj 1085 304 s~ currentElev;
+#X obj 248 265 s~ currentAzim;
+#X obj 951 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj 951 -1 s GO;
+#X obj 891 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj 891 -1 s setUp;
+#X obj 980 130 r myEnd;
 #X connect 0 0 16 0;
 #X connect 1 0 0 0;
 #X connect 2 0 0 1;
 #X connect 3 0 7 0;
 #X connect 3 0 12 0;
+#X connect 3 0 75 0;
 #X connect 4 0 5 0;
 #X connect 5 0 6 0;
 #X connect 6 0 7 0;
 #X connect 7 0 8 0;
 #X connect 7 0 9 0;
-#X connect 7 0 74 0;
+#X connect 7 0 72 0;
 #X connect 10 0 14 0;
 #X connect 13 0 14 1;
 #X connect 14 0 15 0;
@@ -105,49 +113,51 @@
 #X connect 22 0 17 0;
 #X connect 23 0 24 0;
 #X connect 24 0 26 0;
-#X connect 25 0 27 0;
+#X connect 25 0 23 1;
 #X connect 26 0 3 0;
-#X connect 27 0 23 1;
-#X connect 28 0 14 0;
-#X connect 30 0 57 0;
-#X connect 31 0 30 0;
-#X connect 32 0 57 1;
-#X connect 33 0 37 0;
-#X connect 33 0 42 0;
+#X connect 27 0 14 0;
+#X connect 29 0 55 0;
+#X connect 30 0 29 0;
+#X connect 31 0 55 1;
+#X connect 32 0 36 0;
+#X connect 32 0 41 0;
+#X connect 32 0 74 0;
+#X connect 33 0 34 0;
 #X connect 34 0 35 0;
 #X connect 35 0 36 0;
 #X connect 36 0 37 0;
-#X connect 37 0 38 0;
-#X connect 37 0 39 0;
-#X connect 37 0 75 0;
-#X connect 40 0 43 0;
-#X connect 43 0 44 0;
-#X connect 44 0 33 0;
-#X connect 45 0 46 1;
-#X connect 45 1 46 0;
-#X connect 46 0 51 0;
-#X connect 47 0 50 1;
-#X connect 48 0 52 1;
-#X connect 49 0 50 0;
-#X connect 50 0 45 0;
+#X connect 36 0 38 0;
+#X connect 36 0 73 0;
+#X connect 39 0 42 0;
+#X connect 42 0 43 0;
+#X connect 43 0 32 0;
+#X connect 44 0 45 1;
+#X connect 44 1 45 0;
+#X connect 45 0 50 0;
+#X connect 46 0 49 1;
+#X connect 47 0 51 1;
+#X connect 48 0 49 0;
+#X connect 49 0 44 0;
+#X connect 50 0 51 0;
 #X connect 51 0 52 0;
-#X connect 52 0 53 0;
-#X connect 53 0 33 0;
-#X connect 54 0 43 0;
-#X connect 55 0 43 1;
-#X connect 56 0 51 1;
-#X connect 57 0 59 0;
-#X connect 58 0 30 1;
-#X connect 59 0 33 0;
-#X connect 60 0 61 1;
-#X connect 61 0 63 0;
-#X connect 61 0 69 0;
-#X connect 62 0 60 0;
-#X connect 62 1 61 0;
-#X connect 64 0 68 0;
-#X connect 65 0 68 1;
-#X connect 66 0 62 0;
-#X connect 67 0 60 1;
-#X connect 68 0 69 1;
-#X connect 69 0 70 0;
-#X connect 69 0 71 0;
+#X connect 52 0 32 0;
+#X connect 53 0 42 1;
+#X connect 54 0 50 1;
+#X connect 55 0 57 0;
+#X connect 56 0 29 1;
+#X connect 57 0 32 0;
+#X connect 58 0 59 1;
+#X connect 59 0 61 0;
+#X connect 59 0 67 0;
+#X connect 60 0 58 0;
+#X connect 60 1 59 0;
+#X connect 62 0 66 0;
+#X connect 63 0 66 1;
+#X connect 64 0 60 0;
+#X connect 65 0 58 1;
+#X connect 66 0 67 1;
+#X connect 67 0 68 0;
+#X connect 67 0 69 0;
+#X connect 76 0 77 0;
+#X connect 78 0 79 0;
+#X connect 80 0 42 0;