oops, i pressed the "Send" button instead of the "Attach"-button.
mfg.asdf IOhannes
#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;