From 68729718fce729bfdca438af1ac26971baf64218 Mon Sep 17 00:00:00 2001
From: Franz Zotter <fzotter@users.sourceforge.net>
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_cart2sph.pd | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 abs/mtx_cart2sph.pd

(limited to 'abs/mtx_cart2sph.pd')

diff --git a/abs/mtx_cart2sph.pd b/abs/mtx_cart2sph.pd
new file mode 100644
index 0000000..f206e42
--- /dev/null
+++ b/abs/mtx_cart2sph.pd
@@ -0,0 +1,55 @@
+#N canvas 612 222 562 551 10;
+#X obj 101 377 mtx_concat;
+#X obj 205 141 mtx_slice 1 1 1 end;
+#X obj 44 398 mtx_concat;
+#X text 229 451 Franz Zotter \, 2009;
+#X text 231 428 [iemmatrix];
+#X obj 44 17 inlet \; [x \; y \; z];
+#X obj 44 467 outlet \; [r \; phi \; theta];
+#X obj 44 280 mtx_+;
+#X obj 44 261 mtx_.^ 2;
+#X obj 178 261 mtx_+;
+#X obj 178 212 mtx_.^ 2;
+#X obj 205 239 mtx_.^ 2;
+#X text 188 306 rxy;
+#X obj 178 350 mtx_atan2;
+#X obj 151 173 mtx_slice 2 1 2 end;
+#X obj 333 140 mtx_slice 3 1 3 end;
+#X obj 44 239 mtx;
+#X obj 44 93 t b a a a;
+#X obj 44 299 mtx_.^ 0.5;
+#X obj 151 192 t a a;
+#X text 229 309 z;
+#X obj 101 350 mtx_atan2;
+#X obj 192 388 mtx_size;
+#X floatatom 192 409 5 0 0 0 - - -;
+#X floatatom 241 410 5 0 0 0 - - -;
+#X obj 178 328 mtx_.^ 0.5;
+#X connect 0 0 2 1;
+#X connect 1 0 11 0;
+#X connect 1 0 21 1;
+#X connect 2 0 6 0;
+#X connect 5 0 17 0;
+#X connect 7 0 18 0;
+#X connect 8 0 7 0;
+#X connect 9 0 7 1;
+#X connect 9 0 25 0;
+#X connect 10 0 9 0;
+#X connect 11 0 9 1;
+#X connect 13 0 0 1;
+#X connect 13 0 22 0;
+#X connect 14 0 19 0;
+#X connect 15 0 16 1;
+#X connect 15 0 13 1;
+#X connect 16 0 8 0;
+#X connect 17 0 16 0;
+#X connect 17 1 14 0;
+#X connect 17 2 1 0;
+#X connect 17 3 15 0;
+#X connect 18 0 2 0;
+#X connect 19 0 21 0;
+#X connect 19 1 10 0;
+#X connect 21 0 0 0;
+#X connect 22 0 23 0;
+#X connect 22 1 24 0;
+#X connect 25 0 13 0;
-- 
cgit v1.2.1