diff options
Diffstat (limited to 'abs/sph2pol.pd')
-rw-r--r-- | abs/sph2pol.pd | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/abs/sph2pol.pd b/abs/sph2pol.pd new file mode 100644 index 0000000..3093449 --- /dev/null +++ b/abs/sph2pol.pd @@ -0,0 +1,41 @@ +#N canvas 437 75 457 368 10; +#X obj 259 331 outlet z; +#X obj 99 125 unpack 0 0 0; +#X obj 99 82 inlet r; +#X obj 179 82 inlet phi; +#X text 63 26 convert spherical to polar coordinates; +#X obj 259 82 inlet theta; +#X obj 82 331 outlet r; +#X obj 179 331 outlet phi; +#X text 295 156 phi=phi; +#X text 295 169 z=r*sin(theta); +#X text 294 141 R=r*cos(theta); +#X obj 106 265 pack 0 0 0; +#X obj 106 285 unpack 0 0 0; +#X obj 178 152 t f f; +#X obj 208 172 sin; +#X obj 178 172 cos; +#X obj 106 239 * 1; +#X obj 171 239 * 0; +#X obj 99 152 t f f; +#X obj 99 105 pack \$1 \$2 \$3; +#X text 344 10 part of zexy; +#X connect 1 0 18 0; +#X connect 1 1 11 1; +#X connect 1 2 13 0; +#X connect 2 0 19 0; +#X connect 3 0 19 1; +#X connect 5 0 19 2; +#X connect 11 0 12 0; +#X connect 12 0 6 0; +#X connect 12 1 7 0; +#X connect 12 2 0 0; +#X connect 13 0 15 0; +#X connect 13 1 14 0; +#X connect 14 0 17 1; +#X connect 15 0 16 1; +#X connect 16 0 11 0; +#X connect 17 0 11 2; +#X connect 18 0 16 0; +#X connect 18 1 17 0; +#X connect 19 0 1 0; |