#N canvas 670 101 527 611 10;
#X obj 105 164 unpack 0 0 0;
#X obj 401 543 sphere 1;
#X obj 83 62 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 262 125 pd vec-minus;
#X obj 237 53 inlet;
#X obj 329 53 inlet;
#N canvas 0 0 430 223 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 299 187 pd distance;
#N canvas 511 187 655 437 calc-rotate 0;
#X obj 40 217 outlet;
#X obj 311 221 outlet;
#X text 79 266 rotations;
#X obj 40 70 inlet;
#X text 330 131 f1: diff x;
#X text 331 145 f2: diff y;
#X text 331 160 f3: diff z;
#X obj 263 70 inlet;
#X text 45 238 Z;
#X text 312 245 Y;
#X floatatom 367 222 5 0 0 0 - - -;
#X obj 40 139 expr 180/3.14159265 * atan2($f2 \, $f1) \; 180/3.14159265
* (acos($f3/$f4)-3.14159265/2) \;;
#X connect 3 0 11 0;
#X connect 7 0 11 3;
#X connect 11 0 0 0;
#X connect 11 1 1 0;
#X connect 11 1 10 0;
#X restore 220 223 pd calc-rotate;
#X obj 262 152 t a a a;
#X obj 237 85 t a a;
#X obj 83 529 outlet;
#X text 333 541 to e.g.:;
#X text 85 37 gemhead;
#X text 236 26 first point;
#X text 327 25 second point;
#X obj 363 327 * 0.5;
#X obj 83 262 rotateXYZ 0 0 0;
#X obj 83 498 scaleXYZ 1 0.1 0.1;
#X obj 83 355 rotateXYZ 0 0 0;
#X obj 83 413 translateXYZ 0 0 0 0;
#X obj 83 222 translateXYZ;
#X connect 0 0 20 1;
#X connect 0 1 20 2;
#X connect 0 2 20 3;
#X connect 2 0 20 0;
#X connect 3 0 8 0;
#X connect 4 0 9 0;
#X connect 5 0 3 1;
#X connect 6 0 15 0;
#X connect 6 0 7 1;
#X connect 7 0 16 3;
#X connect 7 1 18 2;
#X connect 8 1 7 0;
#X connect 8 2 6 0;
#X connect 9 0 0 0;
#X connect 9 1 3 0;
#X connect 15 0 17 1;
#X connect 15 0 19 1;
#X connect 16 0 18 0;
#X connect 17 0 10 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 20 0 16 0;