From 68729718fce729bfdca438af1ac26971baf64218 Mon Sep 17 00:00:00 2001 From: Franz Zotter Date: Sat, 28 Nov 2009 12:41:04 +0000 Subject: added abstractions for 3x3 and 2x2 rotation matrices and spherical to cartesian coordinates conversion. [mtx_sph2cart][mtx_cart2sph] [mtx_rot][mtx_rotx][mtx_roty][mtx_rotz][mtx_rotxyz][mtx_rotzyz] svn path=/trunk/externals/iem/iemmatrix/; revision=12812 --- abs/mtx_sph2cart.pd | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 abs/mtx_sph2cart.pd (limited to 'abs/mtx_sph2cart.pd') 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; -- cgit v1.2.1