annotate 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.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 24 Jul 2015 22:21:07 +0100
parents 6f2ab99a4420
children 7f67b04e6c5d
rev   line source
r@98 1 #N canvas 0 22 1376 625 10;
r@100 2 #X obj 69 140 f;
r@100 3 #X obj 69 97 r GO;
r@100 4 #X obj 84 118 r preswingTime;
r@100 5 #X obj 231 198 line~;
r@100 6 #X obj 96 262 loadbang;
r@100 7 #X obj 96 283 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@98 8 1;
r@100 9 #X obj 96 301 metro 10;
r@100 10 #X obj 96 323 snapshot~;
r@100 11 #X floatatom 96 343 5 0 0 0 - - -;
r@100 12 #X obj 177 359 hsl 128 15 -90 270 0 0 empty empty empty -2 -8 0 10
r@100 13 -262144 -1 -1 5997 1;
r@100 14 #X obj 231 97 r setUp;
r@100 15 #X text 214 78 Start at 0 speed;
r@100 16 #X obj 231 225 outlet~;
r@100 17 #X obj 246 118 r presweepAzim;
r@100 18 #X obj 231 141 f;
r@100 19 #X msg 231 164 \$1;
r@100 20 #X msg 69 163 0 \$1;
r@100 21 #X obj 355 42 t f b;
r@100 22 #X obj 356 70 delay;
r@100 23 #X obj 370 -3 r preswingTime;
r@100 24 #X obj 377 119 r postswingTime;
r@100 25 #X obj 355 -23 r GO;
r@100 26 #X obj 355 19 f;
r@100 27 #X obj 356 97 f;
r@100 28 #X obj 356 142 pack;
r@100 29 #X obj 398 71 r postsweepAzim;
r@100 30 #X msg 356 168 \$1 \$2;
r@100 31 #X obj 179 97 r myEnd;
r@100 32 #X text 294 217 Current source Azimuth angle;
r@100 33 #X obj 858 109 f;
r@100 34 #X obj 858 66 r GO;
r@100 35 #X obj 879 132 r preswingTime;
r@100 36 #X obj 1029 232 line~;
r@100 37 #X obj 882 295 loadbang;
r@100 38 #X obj 882 316 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@98 39 1;
r@100 40 #X obj 882 334 metro 10;
r@100 41 #X obj 882 356 snapshot~;
r@100 42 #X floatatom 882 376 5 0 0 0 - - -;
r@100 43 #X obj 963 392 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@100 44 -1 -1 9878 1;
r@100 45 #X obj 1029 131 r setUp;
r@100 46 #X text 1012 112 Start at 0 speed;
r@100 47 #X obj 1029 316 outlet~;
r@100 48 #X obj 1029 175 f;
r@100 49 #X msg 1029 198 \$1;
r@100 50 #X obj 1141 75 t f b;
r@100 51 #X obj 1142 103 delay;
r@100 52 #X obj 1156 30 r preswingTime;
r@100 53 #X obj 1163 152 r postswingTime;
r@100 54 #X obj 1141 10 r GO;
r@100 55 #X obj 1141 52 f;
r@100 56 #X obj 1142 130 f;
r@100 57 #X obj 1142 175 pack;
r@100 58 #X msg 1142 201 \$1 \$2;
r@100 59 #X obj 1044 152 r presweepElev;
r@100 60 #X obj 1184 78 r postsweepElev;
r@100 61 #X obj 858 156 pack;
r@100 62 #X obj 873 88 r midElev;
r@100 63 #X msg 858 190 \$1 \$2;
r@100 64 #X obj 658 74 +;
r@100 65 #X obj 643 101 /;
r@100 66 #X obj 616 53 t f f;
r@100 67 #X floatatom 589 132 5 0 0 0 - - -;
r@100 68 #X obj 658 124 r presweepElev;
r@100 69 #X obj 673 146 r postsweepElev;
r@100 70 #X obj 658 30 r postswingTime;
r@100 71 #X obj 673 52 r preswingTime;
r@100 72 #X obj 658 175 +;
r@100 73 #X obj 643 198 *;
r@100 74 #X floatatom 606 225 5 0 0 0 - - -;
r@100 75 #X obj 643 221 s midElev;
r@100 76 #X text 536 -100 Calculate the angles with respect to the centre of
r@98 77 the swing circle;
r@100 78 #X text 1092 251 Current source Elevation angle;
r@100 79 #X obj 49 345 outlet;
r@100 80 #X obj 823 378 outlet;
r@100 81 #X obj 1085 304 s~ currentElev;
r@100 82 #X obj 248 265 s~ currentAzim;
r@100 83 #X obj 951 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@100 84 -1;
r@100 85 #X obj 951 -1 s GO;
r@100 86 #X obj 891 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@100 87 -1 -1;
r@100 88 #X obj 891 -1 s setUp;
r@100 89 #X obj 980 130 r myEnd;
r@98 90 #X connect 0 0 16 0;
r@98 91 #X connect 1 0 0 0;
r@98 92 #X connect 2 0 0 1;
r@98 93 #X connect 3 0 7 0;
r@98 94 #X connect 3 0 12 0;
r@100 95 #X connect 3 0 75 0;
r@98 96 #X connect 4 0 5 0;
r@98 97 #X connect 5 0 6 0;
r@98 98 #X connect 6 0 7 0;
r@98 99 #X connect 7 0 8 0;
r@98 100 #X connect 7 0 9 0;
r@100 101 #X connect 7 0 72 0;
r@98 102 #X connect 10 0 14 0;
r@98 103 #X connect 13 0 14 1;
r@98 104 #X connect 14 0 15 0;
r@98 105 #X connect 15 0 3 0;
r@98 106 #X connect 16 0 3 0;
r@98 107 #X connect 17 0 18 1;
r@98 108 #X connect 17 1 18 0;
r@98 109 #X connect 18 0 23 0;
r@98 110 #X connect 19 0 22 1;
r@98 111 #X connect 20 0 24 1;
r@98 112 #X connect 21 0 22 0;
r@98 113 #X connect 22 0 17 0;
r@98 114 #X connect 23 0 24 0;
r@98 115 #X connect 24 0 26 0;
r@100 116 #X connect 25 0 23 1;
r@98 117 #X connect 26 0 3 0;
r@100 118 #X connect 27 0 14 0;
r@100 119 #X connect 29 0 55 0;
r@100 120 #X connect 30 0 29 0;
r@100 121 #X connect 31 0 55 1;
r@100 122 #X connect 32 0 36 0;
r@100 123 #X connect 32 0 41 0;
r@100 124 #X connect 32 0 74 0;
r@100 125 #X connect 33 0 34 0;
r@98 126 #X connect 34 0 35 0;
r@98 127 #X connect 35 0 36 0;
r@98 128 #X connect 36 0 37 0;
r@100 129 #X connect 36 0 38 0;
r@100 130 #X connect 36 0 73 0;
r@100 131 #X connect 39 0 42 0;
r@100 132 #X connect 42 0 43 0;
r@100 133 #X connect 43 0 32 0;
r@100 134 #X connect 44 0 45 1;
r@100 135 #X connect 44 1 45 0;
r@100 136 #X connect 45 0 50 0;
r@100 137 #X connect 46 0 49 1;
r@100 138 #X connect 47 0 51 1;
r@100 139 #X connect 48 0 49 0;
r@100 140 #X connect 49 0 44 0;
r@100 141 #X connect 50 0 51 0;
r@98 142 #X connect 51 0 52 0;
r@100 143 #X connect 52 0 32 0;
r@100 144 #X connect 53 0 42 1;
r@100 145 #X connect 54 0 50 1;
r@100 146 #X connect 55 0 57 0;
r@100 147 #X connect 56 0 29 1;
r@100 148 #X connect 57 0 32 0;
r@100 149 #X connect 58 0 59 1;
r@100 150 #X connect 59 0 61 0;
r@100 151 #X connect 59 0 67 0;
r@100 152 #X connect 60 0 58 0;
r@100 153 #X connect 60 1 59 0;
r@100 154 #X connect 62 0 66 0;
r@100 155 #X connect 63 0 66 1;
r@100 156 #X connect 64 0 60 0;
r@100 157 #X connect 65 0 58 1;
r@100 158 #X connect 66 0 67 1;
r@100 159 #X connect 67 0 68 0;
r@100 160 #X connect 67 0 69 0;
r@100 161 #X connect 76 0 77 0;
r@100 162 #X connect 78 0 79 0;
r@100 163 #X connect 80 0 42 0;