diff options
Diffstat (limited to 'spherical2cartesian.pd')
-rw-r--r-- | spherical2cartesian.pd | 32 |
1 files changed, 32 insertions, 0 deletions
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; |