[PD] multichannel (8) surround matrix

[Frank Barknecht]

Hallo,
Phillip Stearns hat gesagt: // Phillip Stearns wrote:

> Similar to the ambisonics questions, I'm wondering if
> anyone has done any work on an 8 channel surround
> patch.  I'm looking for something that works in a
> polar coordinate system.  The idea is that a sound is
> distributed amongst speakers based on it's angle, and
> distance from the center of the speaker arrangement. 
> This is not simply a pan 360 degrees around 8
> channels.  That's easy.  This is more like
> spatializing an object inside a space by giving an
> angle (0 for front of the room) and radius (0 for
> center an 1 for edge of speaker perimeter).  The
> ability to specify the amount of speakers for use with
> other listening environments is also a requirement.  

Some ideas: Shahrokh Yadegari e.a. wrote the [space~] external, which
is documented here:
http://www.crca.ucsd.edu/~syadegar/software.html

Attached is a little patch I did which uses the control.pd abstraction
I posted yesterday to control the sound position in space~. 

Then the IOhannes and the IEM did a lot of work regarding ambisonics.
Some of this is in German, though, like IOHannes' thesis.
http://iem.at/~zmoelnig/publications/ambisonic/ambisonic_en.html
Patches should be at:
ftp://iem.kug.ac.at/pd/Patches/ambisonic
but they aren't. IOhannes? 

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N struct 1022-controller float x0 float y0 float id;
#N canvas 366 69 824 632 10;
#X floatatom 239 78 5 0 0 0 - - -;
#X obj 239 99 dbtorms;
#X obj 47 92 noise~;
#X obj 137 129 line~;
#X msg 137 105 \$1 10;
#X floatatom 137 84 5 0 0 0 - - -;
#X obj 182 130 line~;
#X msg 182 106 \$1 10;
#X floatatom 182 85 5 0 0 0 - - -;
#X obj 106 250 vu 15 80 empty empty -1 -8 0 7 -66577 -1 1 0;
#X text 3 150 Input signal;
#X text 137 47 X and Y Cord.;
#X text 143 62 in meters;
#X text 239 56 Vol in db;
#X obj 105 200 env~;
#X obj 105 224 - 100;
#X obj 187 251 vu 15 80 empty empty -1 -8 0 7 -66577 -1 1 0;
#X obj 186 201 env~;
#X obj 186 225 - 100;
#X floatatom 234 152 5 0 0 0 - - -;
#X text 229 135 Theta;
#X floatatom 274 152 5 0 0 0 - - -;
#X text 274 135 Back;
#X obj 269 252 vu 15 80 empty empty -1 -8 0 7 -66577 -1 1 0;
#X obj 268 202 env~;
#X obj 268 226 - 100;
#X obj 105 174 space~ card stereo 4 100;
#X text 320 142 If you want an omidirectional;
#X text 322 156 source \, set "back" to 1;
#X text 290 78 <- bring up slowly (100 = 1 RMS);
#X obj 110 390 ezdac~;
#X obj 455 483 route 0;
#X obj 360 487 print;
#X obj 529 578 unpack;
#X obj 54 128 bp~ 4000 5;
#X floatatom 70 63 5 0 0 0 - - -;
#X obj 73 43 mtof;
#X floatatom 67 27 5 0 0 0 - - -;
#X obj 527 492 list-math - 100;
#X obj 529 555 list-math * 1;
#X obj 455 228 control;
#X floatatom 100 100 5 0 0 0 - - -;
#X obj 642 491 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 12300 1;
#X floatatom 654 517 5 0 0 0 - - -;
#X obj 527 535 list;
#X obj 527 515 t b a;
#X obj 582 524 t b a;
#X obj 235 354 rev1~;
#X floatatom 289 347 5 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 1 0 26 3;
#X connect 2 0 34 0;
#X connect 3 0 26 1;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 26 2;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 14 0 15 0;
#X connect 15 0 9 0;
#X connect 17 0 18 0;
#X connect 18 0 16 0;
#X connect 19 0 26 4;
#X connect 21 0 26 5;
#X connect 24 0 25 0;
#X connect 25 0 23 0;
#X connect 26 0 14 0;
#X connect 26 0 30 0;
#X connect 26 1 17 0;
#X connect 26 1 30 1;
#X connect 26 2 24 0;
#X connect 26 2 47 0;
#X connect 31 0 38 0;
#X connect 33 0 5 0;
#X connect 33 1 8 0;
#X connect 34 0 26 0;
#X connect 35 0 34 1;
#X connect 36 0 35 0;
#X connect 37 0 36 0;
#X connect 38 0 45 0;
#X connect 39 0 33 0;
#X connect 40 0 31 0;
#X connect 41 0 34 2;
#X connect 42 0 43 0;
#X connect 42 0 46 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X connect 45 1 44 1;
#X connect 46 0 44 0;
#X connect 46 1 39 1;
#X connect 47 0 30 1;
#X connect 47 0 30 0;
#X connect 48 0 47 1;