From e8004bc7d2f3dc9317110dc45934bd8a00e4bead Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 20 Sep 2008 15:40:08 +0000
Subject: copied object from gametrak example and renamed using '2' as
 separator

svn path=/trunk/externals/mapping/; revision=10303
---
 help/spherical2cartesian-help.pd | 31 +++++++++++++++++++++++++++++++
 spherical2cartesian.pd           | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 63 insertions(+)
 create mode 100644 help/spherical2cartesian-help.pd
 create mode 100644 spherical2cartesian.pd

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;
-- 
cgit v1.2.1