copied object from gametrak example and renamed using '2' as separator

svn path=/trunk/externals/mapping/; revision=10303

2 files changed, 63 insertions, 0 deletions

diff --git a/help/spherical2cartesian-help.pd b/help/spherical2cartesian-help.pd
new file mode 100644
index 0000000..828d52b
--- /dev/null
+++ b/help/spherical2cartesian-help.pd
@@ -0,0 +1,31 @@
+#N canvas 203 456 504 451 10;
+#X obj 106 366 pddp/pddplink http://en.wikipedia.org/wiki/Polar_coordinate_system
+;
+#X text 63 26 convert spherical to cartesian coordinates;
+#X text 61 158 (r \, phi \, theta);
+#X text 61 198 (x \, y \, z);
+#X obj 277 122 hsl 128 15 -3.14159 3.14159 0 0 empty empty empty -2
+-8 0 10 -262144 -1 -1 5600 1;
+#X obj 218 102 hsl 128 15 -3.14159 3.14159 0 0 empty empty empty -2
+-8 0 10 -262144 -1 -1 7600 1;
+#X obj 160 72 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X floatatom 164 93 5 0 0 0 - - -;
+#X floatatom 221 122 5 0 0 0 - - -;
+#X floatatom 282 141 5 0 0 0 - - -;
+#X obj 277 249 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X floatatom 225 204 5 0 0 0 - - -;
+#X floatatom 168 204 5 0 0 0 - - -;
+#X floatatom 285 204 5 0 0 0 - - -;
+#X obj 157 181 spherical2cartesian;
+#X connect 4 0 9 0;
+#X connect 4 0 14 2;
+#X connect 5 0 8 0;
+#X connect 5 0 14 1;
+#X connect 6 0 7 0;
+#X connect 6 0 14 0;
+#X connect 14 0 12 0;
+#X connect 14 1 11 0;
+#X connect 14 2 10 0;
+#X connect 14 2 13 0;
diff --git a/spherical2cartesian.pd b/spherical2cartesian.pd
new file mode 100644
index 0000000..6e43032
--- /dev/null
+++ b/spherical2cartesian.pd
@@ -0,0 +1,32 @@
+#N canvas 536 22 580 359 10;
+#X obj 397 295 outlet z;
+#X obj 267 12 inlet phi;
+#X obj 9 291 outlet x;
+#X obj 207 295 outlet y;
+#X obj 107 89 purepd/float_argument \$1;
+#X obj 267 89 purepd/float_argument \$2;
+#X obj 427 89 purepd/float_argument \$3;
+#X obj 47 12 inlet r;
+#X obj 427 18 inlet theta;
+#X obj 300 44 loadbang;
+#X obj 107 129 pack float float float;
+#X obj 107 150 trigger anything anything anything;
+#X obj 14 268 expr $f1 * sin($f2) * cos($f3);
+#X obj 397 268 expr $f1 * cos($f2);
+#X obj 207 268 expr $f1 * sin($f2) * sin($f3);
+#X connect 1 0 5 0;
+#X connect 4 0 10 0;
+#X connect 5 0 10 1;
+#X connect 6 0 10 2;
+#X connect 7 0 10 0;
+#X connect 8 0 6 0;
+#X connect 9 0 5 0;
+#X connect 9 0 6 0;
+#X connect 9 0 4 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 11 1 14 0;
+#X connect 11 2 13 0;
+#X connect 12 0 2 0;
+#X connect 13 0 0 0;
+#X connect 14 0 3 0;