ambi.distance.7~-help.pd

#N canvas 242 22 807 489 10;
#X obj 63 126 noise~;
#X floatatom 410 164 5 0 0 0 - - -;
#X obj 413 143 hsl 200 15 0 6 0 0 empty empty empty -2 -8 0 10 -260097
-1 -1 3317 1;
#X obj 64 381 dac~ 1 2;
#X obj 64 351 ambi.wxyuvpq2mono~ @angle 90;
#X obj 244 352 ambi.wxyuvpq2mono~ @angle 270;
#X msg 410 184 distance \$1;
#X msg 409 118 1;
#X obj 407 95 loadbang;
#X text 3 -43 Description: Changes the perceptual distance of a 3rd
order horizontal Ambisonic sound source.;
#X text 1 -15 Alters only the amplitude of the w versus xyuvpq channels.
;
#X text 5 18 1 represents the unit circle \, which is the actual distance
of the speakers circle around the listener.;
#X text 2 80 At a distance of 18 \, there is no more sound.;
#X text 3 64 Every step of 1 makes the sound -6dB quieter. (half as
loud);
#X obj 468 287 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 676 288 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 469 247 expr (1-$f1)*6 \; if ($f1<1 \, (1-$f1)*-100 \, (1-$f1)*6)
;
#X text 458 122 Distance (1 is the unit circle);
#X text 6 45 0 represents the center of the circle.;
#X text 480 207 Here is the algorythm:;
#X text 481 222 Is is slightly simplified.;
#X obj 63 174 ambi.mono2wxyuvpq~ @angle 90;
#X obj 64 263 ambi.distance.7~ @distance 1;
#X text 660 416 Other channels;
#X text 465 414 Amplitude of W;
#X text 4 95 It can be used with other Ambisonic orders that use 7
channels or less.;
#X connect 0 0 21 0;
#X connect 1 0 6 0;
#X connect 1 0 16 0;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X connect 6 0 22 7;
#X connect 7 0 2 0;
#X connect 8 0 7 0;
#X connect 16 0 14 0;
#X connect 16 1 15 0;
#X connect 21 0 22 0;
#X connect 21 1 22 1;
#X connect 21 2 22 2;
#X connect 21 3 22 3;
#X connect 21 4 22 4;
#X connect 21 5 22 5;
#X connect 21 6 22 6;
#X connect 22 0 4 0;
#X connect 22 0 5 0;
#X connect 22 1 4 1;
#X connect 22 1 5 1;
#X connect 22 2 4 2;
#X connect 22 2 5 2;
#X connect 22 3 4 3;
#X connect 22 3 5 3;
#X connect 22 4 4 4;
#X connect 22 4 5 4;
#X connect 22 5 4 5;
#X connect 22 5 5 5;
#X connect 22 6 4 6;
#X connect 22 6 5 6;