annotate scene demo/wireSrcPosD3.pd @ 200:04808797b49e

Adjacent frequency calculated as wellas the correspoding value in lower frequency(f2). Need to calculate the +/- 2% (or similar) and built lock-in patch.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 12 Mar 2016 20:34:27 +0000
parents 7743b49172ab
children 18d9eb604d30
rev   line source
r@175 1 #N canvas -91 36 1440 747 10;
r@137 2 #X obj 8 25 inlet;
r@137 3 #X obj 51 21 unpack f f f f f f f f f;
r@175 4 #X obj 1007 -71 inlet;
r@175 5 #X floatatom 972 -48 5 0 0 0 - - -;
r@137 6 #X obj 47 182 +;
r@137 7 #X floatatom 10 208 5 0 0 0 - - -;
r@137 8 #X obj 150 210 +;
r@137 9 #X obj 150 166 * -1;
r@137 10 #X floatatom 117 233 5 0 0 0 - - -;
r@137 11 #X floatatom 8 159 5 0 0 0 - - -;
r@175 12 #X obj 961 -78 -;
r@175 13 #X floatatom 914 -58 5 0 0 0 - - -;
r@175 14 #X obj 1007 -27 /;
r@175 15 #X obj 961 47 *;
r@175 16 #X floatatom 911 76 5 0 0 0 - - -;
r@175 17 #X floatatom 1028 1 5 0 0 0 - - -;
r@175 18 #X obj 976 5 t f b;
r@175 19 #X obj 961 94 +;
r@175 20 #X floatatom 924 117 5 0 0 0 - - -;
r@175 21 #X obj 252 234 r Xpos;
r@175 22 #X obj 328 235 r Ypos;
r@175 23 #X obj 313 330 +;
r@175 24 #X obj 313 356 +;
r@175 25 #X obj 313 381 sqrt;
r@175 26 #X floatatom 273 406 5 0 0 0 - - -;
r@175 27 #X obj 252 301 *;
r@175 28 #X obj 328 302 *;
r@175 29 #X obj 410 334 *;
r@175 30 #X obj 328 278 -;
r@175 31 #X obj 252 277 -;
r@137 32 #X obj 619 328 outlet;
r@137 33 #X obj 619 256 atan;
r@137 34 #X obj 619 234 /;
r@137 35 #X floatatom 584 328 5 0 0 0 - - -;
r@137 36 #X obj 619 280 * 360;
r@137 37 #X obj 619 304 / 6.28319;
r@137 38 #X obj 634 191 t f b;
r@137 39 #X obj 661 214 delay 9;
r@175 40 #X text 197 381 Distance to source;
r@175 41 #X text 862 764 Calculates the pan value;
r@175 42 #X obj 576 532 r YRpos;
r@175 43 #X floatatom 590 556 5 0 0 0 - - -;
r@175 44 #X obj 1213 94 swap 360;
r@175 45 #X obj 1213 116 -;
r@175 46 #X obj 313 406 outlet;
r@137 47 #X obj 235 164 * 2;
r@137 48 #X obj 235 185 outlet;
r@137 49 #X floatatom 88 639 5 0 0 0 - - -;
r@137 50 #X obj 127 641 outlet;
r@175 51 #X obj 1003 26 delay 9;
r@137 52 #X obj 8 79 s \$0-1WirX;
r@137 53 #X obj 75 79 s \$0-1WirY;
r@137 54 #X obj 141 79 s \$0-1WirZ;
r@137 55 #X obj 208 79 s \$0-1WirLX;
r@137 56 #X obj 281 79 s \$0-1WirLY;
r@137 57 #X obj 354 79 s \$0-1WirLZ;
r@137 58 #X obj 47 138 r \$0-1WirLY;
r@137 59 #X obj 62 160 r \$0-1WirZ;
r@137 60 #X obj 47 209 s \$0-topW;
r@137 61 #X obj 150 143 r \$0-1WirLY;
r@137 62 #X obj 165 188 r \$0-1WirZ;
r@137 63 #X obj 161 235 s \$0-botW;
r@175 64 #X obj 976 69 r \$0-botW;
r@175 65 #X obj 961 117 s \$0-thisZ;
r@137 66 #X obj 127 616 r \$0-1WirLX;
r@175 67 #X obj 1022 -52 r NO_WIR_SRC;
r@175 68 #X obj 267 255 r \$0-1WirX;
r@175 69 #X obj 343 253 r \$0-1WirY;
r@175 70 #X obj 200 303 s \$0-ad;
r@175 71 #X obj 280 301 s \$0-cd;
r@175 72 #X obj 439 334 s \$0-bd;
r@137 73 #X obj 634 168 r \$0-ad;
r@137 74 #X floatatom 12 102 5 0 0 0 - - -;
r@137 75 #X floatatom 80 104 5 0 0 0 - - -;
r@137 76 #X floatatom 151 101 5 0 0 0 - - -;
r@137 77 #X floatatom 214 101 5 0 0 0 - - -;
r@137 78 #X floatatom 289 98 5 0 0 0 - - -;
r@137 79 #X floatatom 357 100 5 0 0 0 - - -;
r@137 80 #X floatatom 430 98 5 0 0 0 - - -;
r@137 81 #X floatatom 502 100 5 0 0 0 - - -;
r@137 82 #X floatatom 575 102 5 0 0 0 - - -;
r@137 83 #X obj 579 77 s \$0-1WirRZ;
r@137 84 #X obj 506 77 s \$0-1WirRY;
r@137 85 #X obj 433 77 s \$0-1WirRX;
r@137 86 #X obj 619 144 r \$0-cd;
r@137 87 #X text 538 346 Elevation to source;
r@175 88 #X floatatom 342 324 5 0 0 0 - - -;
r@175 89 #X obj 516 255 <;
r@175 90 #X obj 443 251 >;
r@175 91 #X obj 483 285 spigot;
r@175 92 #X obj 410 284 spigot;
r@175 93 #X obj 410 207 r Zpos;
r@175 94 #X obj 483 208 r Zpos;
r@175 95 #X obj 516 228 r Zpos;
r@175 96 #X obj 443 229 r Zpos;
r@175 97 #X obj 410 258 -;
r@175 98 #X obj 483 257 -;
r@175 99 #X obj 425 182 r \$0-topW;
r@175 100 #X obj 531 189 r \$0-botW;
r@175 101 #X obj 471 553 outlet;
r@175 102 #X floatatom 544 256 0 0 0 0 - - -;
r@175 103 #X floatatom 492 315 0 0 0 0 - - -;
r@175 104 #X floatatom 410 308 0 0 0 0 - - -;
r@175 105 #X obj 471 394 r \$0-ad;
r@175 106 #X obj 471 437 /;
r@175 107 #X text 373 559 Azimuth to source;
r@175 108 #X obj 471 480 * 360;
r@175 109 #X obj 471 501 / 6.28319;
r@175 110 #X floatatom 406 510 0 0 0 0 - - -;
r@175 111 #X floatatom 171 303 0 0 0 0 - - -;
r@175 112 #X obj 400 371 +;
r@175 113 #X obj 400 393 sqrt;
r@175 114 #X floatatom 1216 145 0 0 0 0 - - -;
r@175 115 #X floatatom 1221 709 0 0 0 0 - - -;
r@175 116 #X floatatom 1233 672 0 0 0 0 - - -;
r@175 117 #X floatatom 1233 693 0 0 0 0 - - -;
r@175 118 #X obj 486 414 t f b;
r@175 119 #N canvas 369 60 1029 690 myPan 1;
r@175 120 #X obj 643 76 r YRpos;
r@175 121 #X floatatom 644 102 5 0 0 0 - - -;
r@175 122 #X obj 176 225 < 360;
r@175 123 #X obj 143 251 spigot;
r@175 124 #X obj 103 276 spigot;
r@175 125 #X obj 400 245 spigot;
r@175 126 #X obj 360 270 spigot;
r@175 127 #X obj 433 221 > 0;
r@175 128 #X floatatom 393 415 0 0 0 0 - - -;
r@175 129 #X obj 224 223 > 180;
r@175 130 #X obj 231 249 spigot;
r@175 131 #X obj 191 274 spigot;
r@175 132 #X obj 314 249 spigot;
r@175 133 #X obj 274 274 spigot;
r@175 134 #X obj 393 221 < 90;
r@175 135 #X obj 347 223 < 180;
r@175 136 #X obj 307 223 > 90;
r@175 137 #X obj 264 223 < 270;
r@175 138 #X obj 136 225 > 270;
r@175 139 #X obj 249 109 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@175 140 -1 -1 23 1;
r@175 141 #X obj 580 140 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@175 142 -1 -1 115 1;
r@175 143 #X floatatom 98 145 0 0 0 0 - - -;
r@175 144 #X floatatom 688 164 0 0 0 0 - - -;
r@175 145 #X msg 272 64 180;
r@175 146 #X msg 272 44 90;
r@175 147 #X msg 272 84 270;
r@175 148 #X obj 553 250 < 360;
r@175 149 #X obj 520 276 spigot;
r@175 150 #X obj 480 301 spigot;
r@175 151 #X obj 777 270 spigot;
r@175 152 #X obj 737 295 spigot;
r@175 153 #X floatatom 779 194 0 0 0 0 - - -;
r@175 154 #X obj 601 248 > 180;
r@175 155 #X obj 608 274 spigot;
r@175 156 #X obj 568 299 spigot;
r@175 157 #X obj 691 274 spigot;
r@175 158 #X obj 651 299 spigot;
r@175 159 #X obj 770 246 < 90;
r@175 160 #X obj 724 248 < 180;
r@175 161 #X obj 684 248 > 90;
r@175 162 #X obj 641 248 < 270;
r@175 163 #X obj 513 250 > 270;
r@175 164 #X obj 651 391 / 180;
r@175 165 #X msg 592 91 180;
r@175 166 #X msg 592 71 90;
r@175 167 #X msg 592 111 270;
r@175 168 #X obj 246 136 t f b;
r@175 169 #X obj 577 168 t f b;
r@175 170 #X obj 568 328 mod 180;
r@175 171 #X obj 568 353 swap 180;
r@175 172 #X obj 568 374 -;
r@175 173 #X obj 191 345 -;
r@175 174 #X floatatom 325 383 0 0 0 0 - - -;
r@175 175 #X obj 274 362 / 180;
r@175 176 #X obj 246 21 inlet;
r@175 177 #X obj 577 38 inlet;
r@175 178 #X obj 482 608 outlet;
r@175 179 #X floatatom 372 662 0 0 0 0 - - -;
r@175 180 #X obj 827 522 > 0.5;
r@175 181 #X obj 867 522 < 1;
r@175 182 #X obj 740 521 < 0.5;
r@175 183 #X obj 780 521 > 0;
r@175 184 #X obj 834 547 spigot;
r@175 185 #X obj 794 572 spigot;
r@175 186 #X obj 747 545 spigot;
r@175 187 #X obj 707 570 spigot;
r@175 188 #X obj 191 454 > 0.5;
r@175 189 #X obj 231 454 < 1;
r@175 190 #X obj 104 453 < 0.5;
r@175 191 #X obj 144 453 > 0;
r@175 192 #X obj 198 479 spigot;
r@175 193 #X obj 158 504 spigot;
r@175 194 #X obj 111 477 spigot;
r@175 195 #X obj 71 502 spigot;
r@175 196 #X text 325 41 Azimuth;
r@175 197 #X text 641 38 Orientation;
r@175 198 #X obj 417 649 -;
r@175 199 #X obj 455 636 t f b;
r@175 200 #X obj 191 324 swap 360;
r@175 201 #X obj 402 460 inlet;
r@175 202 #X obj 370 508 spigot;
r@175 203 #X floatatom 355 578 0 0 0 0 - - -;
r@175 204 #X obj 370 532 t f b;
r@175 205 #X floatatom 306 511 0 0 0 0 - - -;
r@175 206 #X obj 402 485 < 0;
r@175 207 #X floatatom 571 607 0 0 0 0 - - -;
r@175 208 #X obj 501 508 spigot;
r@175 209 #X obj 501 529 * -1;
r@175 210 #X obj 501 551 + 1;
r@175 211 #X obj 447 488 > 0;
r@175 212 #X obj 414 510 spigot;
r@175 213 #X obj 355 557 +;
r@135 214 #X connect 0 0 1 0;
r@175 215 #X connect 0 0 20 0;
r@175 216 #X connect 2 0 3 1;
r@175 217 #X connect 3 0 4 0;
r@175 218 #X connect 4 0 78 0;
r@175 219 #X connect 5 0 6 0;
r@175 220 #X connect 6 0 53 0;
r@175 221 #X connect 7 0 5 1;
r@175 222 #X connect 9 0 11 1;
r@175 223 #X connect 10 0 11 0;
r@175 224 #X connect 11 0 78 0;
r@175 225 #X connect 12 0 13 0;
r@175 226 #X connect 13 0 53 0;
r@175 227 #X connect 14 0 6 1;
r@175 228 #X connect 15 0 12 1;
r@175 229 #X connect 16 0 13 1;
r@175 230 #X connect 17 0 10 1;
r@175 231 #X connect 18 0 4 1;
r@175 232 #X connect 19 0 21 0;
r@175 233 #X connect 19 0 46 0;
r@175 234 #X connect 20 0 22 0;
r@175 235 #X connect 20 0 47 0;
r@175 236 #X connect 23 0 19 0;
r@175 237 #X connect 24 0 19 0;
r@175 238 #X connect 25 0 19 0;
r@175 239 #X connect 26 0 27 1;
r@175 240 #X connect 27 0 28 0;
r@175 241 #X connect 28 0 48 0;
r@175 242 #X connect 29 0 30 0;
r@175 243 #X connect 30 0 42 0;
r@175 244 #X connect 32 0 34 1;
r@175 245 #X connect 33 0 34 0;
r@175 246 #X connect 34 0 48 0;
r@175 247 #X connect 35 0 36 0;
r@175 248 #X connect 36 0 42 0;
r@175 249 #X connect 37 0 30 1;
r@175 250 #X connect 38 0 35 1;
r@175 251 #X connect 39 0 36 1;
r@175 252 #X connect 40 0 33 1;
r@175 253 #X connect 41 0 28 1;
r@175 254 #X connect 42 0 8 0;
r@175 255 #X connect 42 0 59 0;
r@175 256 #X connect 42 0 58 0;
r@175 257 #X connect 42 0 62 0;
r@175 258 #X connect 42 0 60 0;
r@175 259 #X connect 42 0 61 0;
r@175 260 #X connect 42 0 64 0;
r@175 261 #X connect 42 0 86 0;
r@175 262 #X connect 42 0 90 0;
r@175 263 #X connect 43 0 20 0;
r@175 264 #X connect 44 0 20 0;
r@175 265 #X connect 45 0 20 0;
r@175 266 #X connect 46 0 18 0;
r@175 267 #X connect 46 0 2 0;
r@175 268 #X connect 46 0 3 0;
r@175 269 #X connect 46 0 9 0;
r@175 270 #X connect 46 0 17 0;
r@175 271 #X connect 46 0 10 0;
r@175 272 #X connect 46 0 16 0;
r@175 273 #X connect 46 0 12 0;
r@175 274 #X connect 46 0 15 0;
r@175 275 #X connect 46 0 14 0;
r@175 276 #X connect 46 0 7 0;
r@175 277 #X connect 46 0 5 0;
r@175 278 #X connect 47 0 41 0;
r@175 279 #X connect 47 0 26 0;
r@175 280 #X connect 47 0 27 0;
r@175 281 #X connect 47 0 32 0;
r@175 282 #X connect 47 0 33 0;
r@175 283 #X connect 47 0 40 0;
r@175 284 #X connect 47 0 39 0;
r@175 285 #X connect 47 0 38 0;
r@175 286 #X connect 47 0 35 0;
r@175 287 #X connect 47 0 37 0;
r@175 288 #X connect 47 0 29 0;
r@175 289 #X connect 48 0 49 0;
r@175 290 #X connect 49 0 50 0;
r@175 291 #X connect 49 1 50 1;
r@175 292 #X connect 50 0 42 0;
r@175 293 #X connect 51 0 53 0;
r@175 294 #X connect 53 0 52 0;
r@175 295 #X connect 53 0 67 0;
r@175 296 #X connect 53 0 66 0;
r@175 297 #X connect 53 0 69 0;
r@175 298 #X connect 53 0 68 0;
r@175 299 #X connect 53 0 72 0;
r@175 300 #X connect 53 0 70 0;
r@175 301 #X connect 53 0 80 0;
r@175 302 #X connect 54 0 19 0;
r@175 303 #X connect 55 0 20 0;
r@175 304 #X connect 58 0 63 1;
r@175 305 #X connect 59 0 62 1;
r@175 306 #X connect 60 0 65 1;
r@175 307 #X connect 61 0 64 1;
r@175 308 #X connect 62 0 63 0;
r@175 309 #X connect 64 0 65 0;
r@175 310 #X connect 66 0 71 1;
r@175 311 #X connect 67 0 70 1;
r@175 312 #X connect 68 0 73 1;
r@175 313 #X connect 69 0 72 1;
r@175 314 #X connect 70 0 71 0;
r@175 315 #X connect 72 0 73 0;
r@175 316 #X connect 76 0 57 0;
r@175 317 #X connect 77 0 76 1;
r@175 318 #X connect 77 1 76 0;
r@175 319 #X connect 78 0 51 0;
r@175 320 #X connect 78 1 51 1;
r@175 321 #X connect 79 0 84 0;
r@175 322 #X connect 79 0 89 0;
r@175 323 #X connect 80 0 82 0;
r@175 324 #X connect 82 0 91 1;
r@175 325 #X connect 82 1 91 0;
r@175 326 #X connect 84 0 80 1;
r@175 327 #X connect 84 0 83 0;
r@175 328 #X connect 84 0 86 1;
r@175 329 #X connect 86 0 87 0;
r@175 330 #X connect 87 0 88 0;
r@175 331 #X connect 89 0 90 1;
r@175 332 #X connect 90 0 91 0;
r@175 333 #X connect 91 0 81 0;
r@175 334 #X restore 531 556 pd myPan;
r@175 335 #X obj 553 510 r \$0-bd;
r@175 336 #X obj 471 458 acos;
r@175 337 #X connect 0 0 1 0;
r@175 338 #X connect 1 0 50 0;
r@175 339 #X connect 1 0 72 0;
r@175 340 #X connect 1 1 51 0;
r@175 341 #X connect 1 1 73 0;
r@175 342 #X connect 1 2 52 0;
r@175 343 #X connect 1 2 74 0;
r@175 344 #X connect 1 3 53 0;
r@175 345 #X connect 1 3 75 0;
r@175 346 #X connect 1 4 54 0;
r@175 347 #X connect 1 4 76 0;
r@175 348 #X connect 1 5 55 0;
r@175 349 #X connect 1 5 77 0;
r@175 350 #X connect 1 6 78 0;
r@175 351 #X connect 1 6 83 0;
r@175 352 #X connect 1 7 79 0;
r@175 353 #X connect 1 7 82 0;
r@175 354 #X connect 1 8 80 0;
r@175 355 #X connect 1 8 81 0;
r@135 356 #X connect 2 0 3 0;
r@135 357 #X connect 2 0 12 0;
r@135 358 #X connect 4 0 5 0;
r@175 359 #X connect 4 0 58 0;
r@135 360 #X connect 6 0 8 0;
r@175 361 #X connect 6 0 61 0;
r@135 362 #X connect 7 0 6 0;
r@135 363 #X connect 10 0 11 0;
r@135 364 #X connect 10 0 13 0;
r@135 365 #X connect 12 0 15 0;
r@135 366 #X connect 12 0 16 0;
r@135 367 #X connect 13 0 14 0;
r@135 368 #X connect 13 0 17 0;
r@135 369 #X connect 16 0 13 1;
r@175 370 #X connect 16 1 49 0;
r@135 371 #X connect 17 0 18 0;
r@175 372 #X connect 17 0 63 0;
r@175 373 #X connect 19 0 29 0;
r@175 374 #X connect 20 0 28 0;
r@175 375 #X connect 21 0 22 0;
r@135 376 #X connect 22 0 23 0;
r@135 377 #X connect 23 0 24 0;
r@175 378 #X connect 23 0 44 0;
r@175 379 #X connect 25 0 21 0;
r@175 380 #X connect 25 0 110 0;
r@175 381 #X connect 26 0 21 1;
r@135 382 #X connect 27 0 22 1;
r@175 383 #X connect 27 0 110 1;
r@175 384 #X connect 28 0 26 0;
r@175 385 #X connect 28 0 26 1;
r@175 386 #X connect 28 0 69 0;
r@175 387 #X connect 28 0 86 0;
r@175 388 #X connect 29 0 25 0;
r@175 389 #X connect 29 0 25 1;
r@175 390 #X connect 29 0 68 0;
r@175 391 #X connect 29 0 109 0;
r@175 392 #X connect 31 0 34 0;
r@175 393 #X connect 32 0 31 0;
r@175 394 #X connect 34 0 35 0;
r@175 395 #X connect 35 0 33 0;
r@175 396 #X connect 35 0 30 0;
r@175 397 #X connect 36 0 32 1;
r@175 398 #X connect 36 1 37 0;
r@175 399 #X connect 37 0 32 0;
r@175 400 #X connect 40 0 41 0;
r@175 401 #X connect 40 0 117 2;
r@137 402 #X connect 42 0 43 0;
r@175 403 #X connect 42 1 43 1;
r@175 404 #X connect 43 0 112 0;
r@175 405 #X connect 45 0 46 0;
r@175 406 #X connect 49 0 13 0;
r@175 407 #X connect 56 0 4 0;
r@175 408 #X connect 56 0 9 0;
r@175 409 #X connect 57 0 4 1;
r@175 410 #X connect 59 0 7 0;
r@175 411 #X connect 59 0 45 0;
r@175 412 #X connect 60 0 6 1;
r@175 413 #X connect 62 0 17 1;
r@175 414 #X connect 64 0 47 0;
r@175 415 #X connect 64 0 48 0;
r@175 416 #X connect 65 0 12 1;
r@175 417 #X connect 66 0 29 1;
r@175 418 #X connect 67 0 28 1;
r@175 419 #X connect 71 0 36 0;
r@175 420 #X connect 84 0 32 0;
r@175 421 #X connect 87 0 89 1;
r@175 422 #X connect 88 0 90 1;
r@175 423 #X connect 89 0 101 0;
r@175 424 #X connect 89 0 102 0;
r@175 425 #X connect 90 0 102 0;
r@175 426 #X connect 91 0 95 0;
r@175 427 #X connect 92 0 96 0;
r@175 428 #X connect 92 0 100 0;
r@175 429 #X connect 93 0 87 0;
r@175 430 #X connect 94 0 88 0;
r@175 431 #X connect 95 0 90 0;
r@175 432 #X connect 96 0 89 0;
r@175 433 #X connect 97 0 88 1;
r@175 434 #X connect 97 0 95 1;
r@175 435 #X connect 98 0 96 1;
r@175 436 #X connect 98 0 87 1;
r@175 437 #X connect 102 0 70 0;
r@175 438 #X connect 102 0 27 1;
r@175 439 #X connect 102 0 27 0;
r@175 440 #X connect 103 0 104 0;
r@175 441 #X connect 104 0 119 0;
r@175 442 #X connect 106 0 107 0;
r@137 443 #X connect 107 0 108 0;
r@175 444 #X connect 107 0 99 0;
r@175 445 #X connect 107 0 117 0;
r@175 446 #X connect 110 0 111 0;
r@175 447 #X connect 111 0 116 0;
r@175 448 #X connect 116 0 104 1;
r@175 449 #X connect 116 1 104 0;
r@175 450 #X connect 118 0 117 1;
r@175 451 #X connect 119 0 106 0;