/**********************************************************
*   
*   include<ub.scad> //⇒ v.gd/ubaer
*   
*   step=3;
*   h=1/3;
*   
*   Polar(6)for(i=[80:step:350]){
*     j=i+step;  
*      Col(i/step,pal=5) hull(){
*          Tz(i*h) rotate(i)T(20)sphere(d=2000/i);
*          Tz(j*h) rotate(j)T(20)sphere(d=2000/j);
*       }
*   }
*   Tz(80/step-1000/80)cylinder(10,d=42);
*   
**********************************************************/

#local step=2;
/* ------------------------------------------------------------------- */
#declare Tentakle_0 = object
{
#local T = 20;
blob {
    threshold 0.6
#for (i, 80, 350, step)
	#local j = i + step;
	sphere {
		<0, 0, 0>, 2000/i, 1
		pigment { color rgb <clock, 0.58, 0.45>  }
		translate T
		rotate i
		translate i*y
		}
	sphere {
		<0, 0, 0>, 2000/j, 1
		pigment { color rgb <0.45, 0.58, clock>  }
		translate T
		rotate j
		translate j*y
		}
#end
	}
scale 0.01
}
/* ------------------------------------------------------------------- */
#declare Tentakle = object
{
union	{
#for (foo, 0, 360, 60)
	object { Tentakle_0 rotate y*foo }
#end
	}
}
/* ------------------------------------------------------------------- */