#N canvas 444 396 522 592 10; #X obj 151 163 unpack 0 0 0; #X obj 83 338 rotateXYZ; #X obj 83 222 translateXYZ; #X obj 224 480 sphere 1; #X obj 83 96 inlet; #N canvas 118 218 991 636 vec-minus 0; #X obj 45 401 outlet; #X obj 45 142 inlet; #X obj 45 175 unpack 0 0 0; #X obj 153 148 inlet; #X obj 183 215 unpack 0 0 0; #X obj 45 267 expr $f4 - $f1 \; $f5 - $f2 \; $f6 - $f3; #X obj 45 325 pack 0 0 0; #X text 105 401 difference vector; #X obj 153 175 t b a; #X connect 1 0 2 0; #X connect 2 0 5 0; #X connect 2 1 5 1; #X connect 2 2 5 2; #X connect 3 0 8 0; #X connect 4 0 5 3; #X connect 4 1 5 4; #X connect 4 2 5 5; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 5 2 6 2; #X connect 6 0 0 0; #X connect 8 0 5 0; #X connect 8 1 4 0; #X restore 267 159 pd vec-minus; #X obj 237 87 inlet; #X obj 346 87 inlet; #N canvas 0 0 426 219 distance 0; #X obj 51 115 outlet; #X text 110 117 distance; #X obj 51 80 expr sqrt($f1*$f1 + $f2*$f2 + $f3*$f3); #X obj 51 34 inlet; #X connect 2 0 0 0; #X connect 3 0 2 0; #X restore 289 316 pd distance; #N canvas 396 210 635 417 calc-rotate 0; #X obj 30 211 outlet; #X obj 141 209 outlet; #X obj 253 211 outlet; #X text 35 232 X; #X text 69 260 rotations; #X text 142 233 Y; #X text 260 234 Z; #X obj 40 135 expr 180/3.14159 * atan($f3/$f2) \; 180/3.14159 * atan($f1/$f3) \; 180/3.14159 * atan($f2/$f1); #X obj 40 91 inlet; #X text 315 128 f1: diff x; #X text 316 142 f2: diff y; #X text 316 157 f3: diff z; #X connect 7 0 0 0; #X connect 7 1 1 0; #X connect 7 2 2 0; #X connect 8 0 7 0; #X restore 311 207 pd calc-rotate; #X obj 267 181 t a a a; #X obj 237 119 t a a; #X obj 83 477 outlet; #X text 156 478 to e.g.:; #X text 85 71 gemhead; #X text 236 60 first point; #X text 344 59 second point; #X obj 123 383 * 0.5; #X floatatom 237 367 5 0 0 0 - - -; #X obj 83 409 scaleXYZ 1 0.1 0.1; #X obj 83 249 translate 0.5 0 0 0; #X obj 237 384 t b f; #X connect 0 0 2 1; #X connect 0 1 2 2; #X connect 0 2 2 3; #X connect 1 0 19 0; #X connect 2 0 20 0; #X connect 4 0 2 0; #X connect 5 0 10 0; #X connect 6 0 11 0; #X connect 7 0 5 1; #X connect 8 0 17 0; #X connect 9 0 1 1; #X connect 9 1 1 2; #X connect 9 2 1 3; #X connect 10 0 20 2; #X connect 10 1 8 0; #X connect 10 2 9 0; #X connect 11 0 0 0; #X connect 11 1 5 0; #X connect 17 0 19 1; #X connect 18 0 21 0; #X connect 19 0 12 0; #X connect 20 0 1 0; #X connect 21 0 17 0; #X connect 21 1 17 1;