Mercurial > hg > weather-synthesis-prototyping

annotate SwordSounds/centreAngles.pd @ 98:84a9624cbe77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SwordSounds: Create version with only 10 sources, equally space over the length of the sword. Calculate elevation change as well as azimuth change over the swing time.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 24 Jul 2015 16:16:18 +0100
parents
children 6f2ab99a4420
rev   line source
r@98 1 #N canvas 0 22 1376 625 10;
r@98 2 #X obj 69 174 f;
r@98 3 #X obj 69 131 r GO;
r@98 4 #X obj 84 152 r preswingTime;
r@98 5 #X obj 231 232 line~;
r@98 6 #X obj 96 296 loadbang;
r@98 7 #X obj 96 317 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@98 8 1;
r@98 9 #X obj 96 335 metro 10;
r@98 10 #X obj 96 357 snapshot~;
r@98 11 #X floatatom 96 377 5 0 0 0 - - -;
r@98 12 #X obj 177 393 hsl 128 15 -90 270 0 0 empty empty empty -2 -8 0 10
r@98 13 -262144 -1 -1 3175 1;
r@98 14 #X obj 231 131 r setUp;
r@98 15 #X text 214 112 Start at 0 speed;
r@98 16 #X obj 231 259 outlet~;
r@98 17 #X obj 246 152 r presweepAzim;
r@98 18 #X obj 231 175 f;
r@98 19 #X msg 231 198 \$1;
r@98 20 #X msg 69 197 0 \$1;
r@98 21 #X obj 355 76 t f b;
r@98 22 #X obj 356 104 delay;
r@98 23 #X obj 370 31 r preswingTime;
r@98 24 #X obj 377 153 r postswingTime;
r@98 25 #X obj 355 11 r GO;
r@98 26 #X obj 355 53 f;
r@98 27 #X obj 356 131 f;
r@98 28 #X obj 356 176 pack;
r@98 29 #X obj 398 79 r postsweepAzim;
r@98 30 #X msg 356 202 \$1 \$2;
r@98 31 #X obj 398 102 * -1;
r@98 32 #X obj 179 131 r myEnd;
r@98 33 #X text 294 251 Current source Azimuth angle;
r@98 34 #X obj 858 143 f;
r@98 35 #X obj 858 100 r GO;
r@98 36 #X obj 879 166 r preswingTime;
r@98 37 #X obj 1029 266 line~;
r@98 38 #X obj 882 329 loadbang;
r@98 39 #X obj 882 350 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@98 40 1;
r@98 41 #X obj 882 368 metro 10;
r@98 42 #X obj 882 390 snapshot~;
r@98 43 #X floatatom 882 410 5 0 0 0 - - -;
r@98 44 #X obj 963 426 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@98 45 -1 -1 6350 1;
r@98 46 #X obj 1029 165 r setUp;
r@98 47 #X text 1012 146 Start at 0 speed;
r@98 48 #X obj 1029 293 outlet~;
r@98 49 #X obj 1029 209 f;
r@98 50 #X msg 1029 232 \$1;
r@98 51 #X obj 1141 109 t f b;
r@98 52 #X obj 1142 137 delay;
r@98 53 #X obj 1156 64 r preswingTime;
r@98 54 #X obj 1163 186 r postswingTime;
r@98 55 #X obj 1141 44 r GO;
r@98 56 #X obj 1141 86 f;
r@98 57 #X obj 1142 164 f;
r@98 58 #X obj 1142 209 pack;
r@98 59 #X msg 1142 235 \$1 \$2;
r@98 60 #X obj 977 165 r myEnd;
r@98 61 #X text 1092 285 Current source Azimuth angle;
r@98 62 #X obj 1044 186 r presweepElev;
r@98 63 #X obj 1184 112 r postsweepElev;
r@98 64 #X obj 858 190 pack;
r@98 65 #X obj 873 122 r midElev;
r@98 66 #X msg 858 224 \$1 \$2;
r@98 67 #X obj 658 108 +;
r@98 68 #X obj 643 135 /;
r@98 69 #X obj 616 87 t f f;
r@98 70 #X floatatom 589 166 5 0 0 0 - - -;
r@98 71 #X obj 658 158 r presweepElev;
r@98 72 #X obj 673 180 r postsweepElev;
r@98 73 #X obj 658 64 r postswingTime;
r@98 74 #X obj 673 86 r preswingTime;
r@98 75 #X obj 658 209 +;
r@98 76 #X obj 643 232 *;
r@98 77 #X floatatom 606 259 5 0 0 0 - - -;
r@98 78 #X obj 643 255 s midElev;
r@98 79 #X text 536 -66 Calculate the angles with respect to the centre of
r@98 80 the swing circle;
r@98 81 #X connect 0 0 16 0;
r@98 82 #X connect 1 0 0 0;
r@98 83 #X connect 2 0 0 1;
r@98 84 #X connect 3 0 7 0;
r@98 85 #X connect 3 0 12 0;
r@98 86 #X connect 4 0 5 0;
r@98 87 #X connect 5 0 6 0;
r@98 88 #X connect 6 0 7 0;
r@98 89 #X connect 7 0 8 0;
r@98 90 #X connect 7 0 9 0;
r@98 91 #X connect 10 0 14 0;
r@98 92 #X connect 13 0 14 1;
r@98 93 #X connect 14 0 15 0;
r@98 94 #X connect 15 0 3 0;
r@98 95 #X connect 16 0 3 0;
r@98 96 #X connect 17 0 18 1;
r@98 97 #X connect 17 1 18 0;
r@98 98 #X connect 18 0 23 0;
r@98 99 #X connect 19 0 22 1;
r@98 100 #X connect 20 0 24 1;
r@98 101 #X connect 21 0 22 0;
r@98 102 #X connect 22 0 17 0;
r@98 103 #X connect 23 0 24 0;
r@98 104 #X connect 24 0 26 0;
r@98 105 #X connect 25 0 27 0;
r@98 106 #X connect 26 0 3 0;
r@98 107 #X connect 27 0 23 1;
r@98 108 #X connect 28 0 14 0;
r@98 109 #X connect 30 0 58 0;
r@98 110 #X connect 31 0 30 0;
r@98 111 #X connect 32 0 58 1;
r@98 112 #X connect 33 0 37 0;
r@98 113 #X connect 33 0 42 0;
r@98 114 #X connect 34 0 35 0;
r@98 115 #X connect 35 0 36 0;
r@98 116 #X connect 36 0 37 0;
r@98 117 #X connect 37 0 38 0;
r@98 118 #X connect 37 0 39 0;
r@98 119 #X connect 40 0 43 0;
r@98 120 #X connect 43 0 44 0;
r@98 121 #X connect 44 0 33 0;
r@98 122 #X connect 45 0 46 1;
r@98 123 #X connect 45 1 46 0;
r@98 124 #X connect 46 0 51 0;
r@98 125 #X connect 47 0 50 1;
r@98 126 #X connect 48 0 52 1;
r@98 127 #X connect 49 0 50 0;
r@98 128 #X connect 50 0 45 0;
r@98 129 #X connect 51 0 52 0;
r@98 130 #X connect 52 0 53 0;
r@98 131 #X connect 53 0 33 0;
r@98 132 #X connect 54 0 43 0;
r@98 133 #X connect 56 0 43 1;
r@98 134 #X connect 57 0 51 1;
r@98 135 #X connect 58 0 60 0;
r@98 136 #X connect 59 0 30 1;
r@98 137 #X connect 60 0 33 0;
r@98 138 #X connect 61 0 62 1;
r@98 139 #X connect 62 0 64 0;
r@98 140 #X connect 62 0 70 0;
r@98 141 #X connect 63 0 61 0;
r@98 142 #X connect 63 1 62 0;
r@98 143 #X connect 65 0 69 0;
r@98 144 #X connect 66 0 69 1;
r@98 145 #X connect 67 0 63 0;
r@98 146 #X connect 68 0 61 1;
r@98 147 #X connect 69 0 70 1;
r@98 148 #X connect 70 0 71 0;
r@98 149 #X connect 70 0 72 0;