aboutsummaryrefslogtreecommitdiff
path: root/abs/cart2sph.pd
blob: 95a56a6029a14b29199abac406c2bedc63f42998 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#N canvas 437 75 639 543 10;
#X obj 259 82 inlet z;
#X text 63 26 convert cartesian to spherical coordinates;
#X obj 99 82 inlet x;
#X obj 179 82 inlet y;
#X obj 99 481 outlet r;
#X obj 206 481 outlet phi;
#X obj 279 481 outlet theta;
#X obj 99 125 unpack 0 0 0;
#X text 263 136 r=sqrt(x^2+y^2+z^2);
#X text 263 158 phi=atan2(y \, x);
#X text 262 179 theta=atan2(z \, sqrt(x^2+y^2));
#X obj 99 170 *;
#X obj 199 325 atan2;
#X obj 279 331 atan2;
#X obj 99 325 sqrt;
#X obj 279 270 sqrt;
#X obj 99 299 +;
#X obj 99 150 t f f f;
#X obj 138 191 *;
#X obj 138 171 t f f f;
#X obj 99 220 +;
#X obj 99 245 t f f;
#X obj 192 169 *;
#X obj 192 149 t f f f;
#X obj 279 292 pack;
#X obj 199 271 pack;
#X msg 199 298 \$2 \$1;
#X msg 279 312 \$2 \$1;
#X obj 99 105 pack \$1 \$2 \$3;
#X text 464 24 part of zexy;
#X obj 167 426 unpack 0 0 0;
#X obj 167 406 pack 0 0 0;
#X connect 0 0 28 2;
#X connect 2 0 28 0;
#X connect 3 0 28 1;
#X connect 7 0 17 0;
#X connect 7 1 19 0;
#X connect 7 2 23 0;
#X connect 11 0 20 0;
#X connect 12 0 31 1;
#X connect 13 0 31 2;
#X connect 14 0 31 0;
#X connect 15 0 24 0;
#X connect 16 0 14 0;
#X connect 17 0 11 0;
#X connect 17 1 11 1;
#X connect 17 2 25 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 19 1 18 1;
#X connect 19 2 25 1;
#X connect 20 0 21 0;
#X connect 21 0 16 0;
#X connect 21 1 15 0;
#X connect 22 0 16 1;
#X connect 23 0 22 0;
#X connect 23 1 22 1;
#X connect 23 2 24 1;
#X connect 24 0 27 0;
#X connect 25 0 26 0;
#X connect 26 0 12 0;
#X connect 27 0 13 0;
#X connect 28 0 7 0;
#X connect 30 0 4 0;
#X connect 30 1 5 0;
#X connect 30 2 6 0;
#X connect 31 0 30 0;