diff options
Diffstat (limited to 'abs/sph2cart.pd')
| -rw-r--r-- | abs/sph2cart.pd | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/abs/sph2cart.pd b/abs/sph2cart.pd new file mode 100644 index 0000000..6828082 --- /dev/null +++ b/abs/sph2cart.pd @@ -0,0 +1,52 @@ +#N canvas 437 75 580 399 10; +#X obj 276 331 outlet z; +#X obj 99 82 inlet r; +#X obj 179 82 inlet phi; +#X obj 99 331 outlet x; +#X obj 196 331 outlet y; +#X text 63 26 convert spherical to cartesian coordinates; +#X obj 259 82 inlet theta; +#X obj 99 125 unpack 0 0 0; +#X text 285 160 x=r*cos(phi)*cos(theta); +#X text 285 175 y=r*sin(phi)*cos(theta); +#X text 285 190 z=r*sin(theta); +#X obj 178 151 t f f; +#X obj 208 171 sin; +#X obj 178 171 cos; +#X obj 138 192 t f f; +#X obj 168 212 sin; +#X obj 138 212 cos; +#X obj 99 306 * 1; +#X obj 196 307 * 0; +#X obj 276 309 * 0; +#X obj 178 192 t f f; +#X obj 99 259 t f f f; +#X obj 115 284 * 1; +#X obj 212 281 * 0; +#X obj 99 105 pack \$1 \$2 \$3; +#X text 415 20 part of zexy; +#X connect 1 0 24 0; +#X connect 2 0 24 1; +#X connect 6 0 24 2; +#X connect 7 0 21 0; +#X connect 7 1 14 0; +#X connect 7 2 11 0; +#X connect 11 0 13 0; +#X connect 11 1 12 0; +#X connect 12 0 19 1; +#X connect 13 0 20 0; +#X connect 14 0 16 0; +#X connect 14 1 15 0; +#X connect 15 0 23 0; +#X connect 16 0 22 0; +#X connect 17 0 3 0; +#X connect 18 0 4 0; +#X connect 19 0 0 0; +#X connect 20 0 22 1; +#X connect 20 1 23 1; +#X connect 21 0 17 0; +#X connect 21 1 18 0; +#X connect 21 2 19 0; +#X connect 22 0 17 1; +#X connect 23 0 18 1; +#X connect 24 0 7 0; |