#N canvas 413 247 867 633 10;
#X obj 54 566 model;
#X obj 112 518 openpanel;
#X obj 109 491 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 54 19 gemhead;
#X obj 532 318 sphere 0.05;
#X obj 530 252 gemhead;
#X obj 532 295 translateXYZ;
#X floatatom 557 273 5 0 0 0 - - -;
#X floatatom 598 272 5 0 0 0 - - -;
#X floatatom 637 273 5 0 0 0 - - -;
#X obj 521 409 sphere 0.05;
#X obj 519 343 gemhead;
#X obj 521 386 translateXYZ;
#X floatatom 546 364 5 0 0 0 - - -;
#X floatatom 587 363 5 0 0 0 - - -;
#X floatatom 626 364 5 0 0 0 - - -;
#X msg 234 63 create \, reset \, lighting 1 \, 1;
#X obj 297 146 gemwin;
#X msg 448 61 destroy;
#X obj 525 37 gemhead;
#X obj 525 75 world_light;
#X obj 381 36 sel 1;
#X obj 234 31 loadbang;
#X obj 379 6 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 118 547 symbol;
#X obj 54 432 scale;
#X msg 177 544 bang;
#X msg 303 261 -67.6 20.1 2.9;
#X msg 188 261 -53 -4.8 -2.2;
#X obj 54 453 translate 1 0 0 0;
#X obj 168 433 v* -1;
#N canvas 0 0 450 300 sub3 0;
#X obj 60 64 inlet;
#X obj 113 206 outlet;
#X obj 60 93 unpack 0 0 0;
#X obj 200 64 inlet;
#X obj 200 93 unpack 0 0 0;
#X obj 110 173 pack 0 0 0;
#X obj 105 147 -;
#X obj 138 145 -;
#X obj 171 148 -;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 7 0;
#X connect 2 2 8 0;
#X connect 3 0 4 0;
#X connect 4 0 6 1;
#X connect 4 1 7 1;
#X connect 4 2 8 1;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 7 0 5 1;
#X connect 8 0 5 2;
#X restore 189 303 pd sub3;
#X msg 103 408 1 \$1;
#X obj 103 430 /;
#X obj 214 345 rad2deg;
#X obj 270 344 rad2deg;
#X obj 54 69 rotateXYZ;
#X floatatom 118 38 5 0 0 0 - - -;
#X obj 636 177 gemhead;
#X floatatom 137 61 5 0 0 0 - - -;
#X floatatom 136 87 5 0 0 0 - - -;
#X obj 189 324 cart2sph;
#X obj 214 366 * -1;
#X obj 270 365 - 90;
#X obj 54 385 rotate 0 1 0 0;
#X obj 54 363 rotate 0 0 1 0;
#X msg 124 571 rescale 0 \, open \$1;
#X text 195 243 base;
#X text 321 247 tip;
#X floatatom 225 391 5 0 0 0 - - -;
#X obj 54 329 rotate 180 0 1 0;
#X obj 54 125 separator;
#X text 71 182 normalize (length of stick:=1) \, and align to X-axis
;
#X text 264 572 turn rescaling off \, so we know the size of the stick
;
#X obj 188 224 t b b;
#X msg 188 203 doit!;
#X connect 1 0 24 0;
#X connect 2 0 1 0;
#X connect 3 0 36 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 7 0 6 1;
#X connect 8 0 6 2;
#X connect 9 0 6 3;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 13 0 12 1;
#X connect 14 0 12 2;
#X connect 15 0 12 3;
#X connect 16 0 17 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 21 0 16 0;
#X connect 21 1 18 0;
#X connect 22 0 16 0;
#X connect 23 0 21 0;
#X connect 24 0 46 0;
#X connect 25 0 29 0;
#X connect 26 0 24 0;
#X connect 27 0 31 1;
#X connect 28 0 30 0;
#X connect 28 0 31 0;
#X connect 29 0 0 0;
#X connect 30 0 29 2;
#X connect 31 0 41 0;
#X connect 32 0 33 0;
#X connect 33 0 25 1;
#X connect 34 0 42 0;
#X connect 35 0 43 0;
#X connect 36 0 51 0;
#X connect 37 0 36 1;
#X connect 39 0 36 2;
#X connect 40 0 36 3;
#X connect 41 0 32 0;
#X connect 41 1 34 0;
#X connect 41 2 35 0;
#X connect 42 0 45 1;
#X connect 43 0 44 1;
#X connect 44 0 25 0;
#X connect 45 0 44 0;
#X connect 46 0 0 0;
#X connect 49 0 42 1;
#X connect 50 0 45 0;
#X connect 51 0 50 0;
#X connect 54 0 28 0;
#X connect 54 1 27 0;
#X connect 55 0 54 0;