[jitter] Random points on a sphere

Hi again, 

The following patch places points on a random location on the surface of a sphere. At least, most points end up there. 
A lot end up outside the surface and I can't seem to find out why,... As far as I know, my math is right, but that doesn't mean anything.

brecht.

#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 226 328 41 196617 r pulse;
#P newex 170 35 41 196617 r pulse;
#P newex 170 82 36 196617 buddy;
#P newex 67 83 41 196617 s pulse;
#P newex 251 103 46 196617 / 1000.;
#P newex 170 103 46 196617 / 1000.;
#P newex 241 58 70 196617 random 6283;
#P newex 170 58 70 196617 random 6283;
#P message 241 280 65 196617 clear \, dim 0;
#P newex 225 353 216 196617 jit.matrix coords 3 float32 @thru 0 @adapt 1;
#P button 225 280 15 0;
#P newex 225 301 216 196617 jit.matrix coords 3 float32 @thru 0 @adapt 1;
#P newex 225 257 127 196617 jit.matrix bar 3 float32 1;
#P newex 164 328 53 196617 jit.concat;
#P newex 225 235 64 196617 jit.fill bar 1;
#B color 5;
#P newex 290 235 64 196617 jit.fill bar 2;
#B color 5;
#P newex 160 235 64 196617 jit.fill bar 0;
#B color 5;
#P button 291 168 15 0;
#P newex 264 190 72 196617 expr $f1*$f2;
#P button 240 168 15 0;
#P newex 160 190 101 196617 expr ($f1*-1)* $f2;
#P newex 284 145 23 196617 cos;
#P newex 251 145 21 196617 sin;
#P flonum 251 124 56 9 0.001 6.28318 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 203 145 23 196617 cos;
#P newex 170 145 21 196617 sin;
#P flonum 160 215 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 170 124 56 9 0.001 6.283 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 232 215 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 196 215 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 225 374 108 196617 jit.op @op * @val 0.5;
#P newex 334 374 96 196617 jit.gl.handle sphere;
#P toggle 10 24 15 0;
#P newex 225 396 245 196617 jit.gl.mesh sphere @draw_mode points @color 1 1 1;
#P newex 10 120 145 196617 jit.window sphere @floating 1;
#P newex 10 60 58 196617 t b b erase;
#P newex 10 41 51 196617 qmetro 5;
#P newex 10 101 98 196617 jit.gl.render sphere;
#P comment 308 280 48 196617 << reset;
#P fasten 16 0 19 0 256 164 245 164;
#P connect 16 0 18 1;
#P fasten 16 0 21 0 256 166 296 166;
#P fasten 16 0 20 1 256 164 331 164;
#P fasten 10 0 23 0 237 233 295 233;
#P connect 15 0 16 0;
#P fasten 15 0 17 0 256 142 289 142;
#P fasten 13 0 20 0 175 185 269 185;
#P fasten 21 0 20 0 296 185 269 185;
#P connect 34 0 15 0;
#P fasten 36 1 34 0 201 101 256 101;
#P connect 37 0 31 0;
#P fasten 37 0 32 0 175 55 246 55;
#P fasten 20 0 10 0 269 211 237 211;
#P connect 8 0 5 0;
#P fasten 7 0 5 0 339 393 230 393;
#P connect 29 0 8 0;
#P fasten 25 0 29 0 169 349 230 349;
#P connect 38 0 29 0;
#P fasten 30 0 27 0 246 298 230 298;
#P connect 28 0 27 0;
#P fasten 26 0 25 1 230 277 212 277;
#P connect 26 0 28 0;
#P fasten 23 0 26 0 295 254 230 254;
#P connect 24 0 26 0;
#P fasten 22 0 26 0 165 254 230 254;
#P fasten 9 0 24 0 201 233 230 233;
#P connect 11 0 13 0;
#P fasten 11 0 14 0 175 142 208 142;
#P fasten 17 0 9 0 289 209 201 209;
#P fasten 32 0 36 1 246 78 201 78;
#P connect 33 0 11 0;
#P connect 36 0 33 0;
#P connect 31 0 36 0;
#P fasten 27 0 25 0 230 322 169 322;
#P connect 12 0 22 0;
#P connect 18 0 12 0;
#P fasten 14 0 18 0 208 167 165 167;
#P fasten 19 0 18 0 245 188 165 188;
#P fasten 3 1 35 0 39 80 72 80;
#P fasten 3 2 1 0 63 83 15 83;
#P connect 3 0 1 0;
#P connect 2 0 3 0;
#P connect 6 0 2 0;
#P window clipboard copycount 39;