diff options
Diffstat (limited to 'abs/mtx_sph2cart.pd')
| -rw-r--r-- | abs/mtx_sph2cart.pd | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/abs/mtx_sph2cart.pd b/abs/mtx_sph2cart.pd new file mode 100644 index 0000000..f83033a --- /dev/null +++ b/abs/mtx_sph2cart.pd @@ -0,0 +1,44 @@ +#N canvas 683 47 450 551 10; +#X obj 44 17 inlet \; [r \; phi \; theta]; +#X obj 44 467 outlet \; [x \; y \; z]; +#X obj 44 279 t a a; +#X obj 101 377 mtx_concat; +#X obj 44 378 mtx_.*; +#X obj 296 139 mtx_slice 1 1 1 end; +#X obj 196 211 mtx_cos; +#X obj 169 253 mtx_sin; +#X obj 169 183 t a a; +#X obj 71 326 mtx_.*; +#X obj 169 272 mtx_.*; +#X obj 196 230 mtx_.*; +#X obj 44 398 mtx_concat; +#X obj 44 93 t a a a; +#X text 229 451 Franz Zotter \, 2009; +#X text 231 428 [iemmatrix]; +#X obj 44 255 mtx_slice 2 1 2 end; +#X obj 169 159 mtx_slice 3 1 3 end; +#X obj 44 359 mtx_cos; +#X obj 71 307 mtx_sin; +#X connect 0 0 13 0; +#X connect 2 0 18 0; +#X connect 2 1 19 0; +#X connect 3 0 12 1; +#X connect 4 0 12 0; +#X connect 5 0 10 1; +#X connect 5 0 11 1; +#X connect 6 0 11 0; +#X connect 7 0 10 0; +#X connect 8 0 7 0; +#X connect 8 1 6 0; +#X connect 9 0 3 0; +#X connect 10 0 9 1; +#X connect 10 0 4 1; +#X connect 11 0 3 1; +#X connect 12 0 1 0; +#X connect 13 0 16 0; +#X connect 13 1 17 0; +#X connect 13 2 5 0; +#X connect 16 0 2 0; +#X connect 17 0 8 0; +#X connect 18 0 4 0; +#X connect 19 0 9 0; |