'taso' "function taso(v,p,R) {\n" +"// var R=5;\n" +"// var v=[1,1,1];\n" +"// var p=[1,1,1];\n" +"var tasor=Math.sqrt(R**2-normi(p)**2);\n\n" +"v=yksikko(v);\n" +"u=kohtisuora(v);\n" +"w=ristitulo(u,v);\n" +"k=1/Math.sqrt(2);\n" +"u=pituinen(u,tasor);\n" +"w=pituinen(w,tasor);\n\n" +"t=1;s=0; a=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n" +"t=k;s=k; b=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n" +"t=0;s=1; c=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n" +"t=-k;s=k; d=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n" +"t=-1;s=0; e=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n" +"t=-k;s=-k;f=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n" +"t=0;s=-1; g=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n" +"t=k;s=-k; h=[p[0]+t*u[0]+s*w[0],p[1]+t*u[1]+s*w[1],p[2]+s*u[2]+s*w[2]];\n\n" +"var keha=[];\n" +"keha.push(naytavektori(a,vk));vk++;\n" +"keha.push(naytavektori(b,vk));vk++;\n" +"keha.push(naytavektori(c,vk));vk++;\n" +"keha.push(naytavektori(d,vk));vk++;\n" +"keha.push(naytavektori(e,vk));vk++;\n" +"keha.push(naytavektori(f,vk));vk++;\n" +"keha.push(naytavektori(g,vk));vk++;\n" +"keha.push(naytavektori(h,vk));vk++;\n" +"for (let k=0; k