'threshold .8' might be a little tight, perhaps lower that.  'blob' hardly ever
loses it's creases between components completely though.

Bob

"Sigmund Kyrre Aas" <as### [at] studntnuno> wrote in message
news:38B01B76.9AB0BDE7@stud.ntnu.no...
| Paul Vanukoff wrote:
| >
| > Are you enclosing the ball sphere and the bump spheres in a single blob{}
| > statement? If you have them in separate blob{} statements, they won't blob
|
| Yes. Here it is:
|
| blob {
|     threshold .8
|     sphere {<0, 0, 0>, R*3.05, 1.004 }
|     $a=0;
|     $AntKuler=500;
|     $d=1/AntKuler;
|     #while (a<1)
|         $Her=eval_3d_spline("Seam",a);
|         $Der=eval_3d_spline("Seam",a+d);
|         $Retn=vnormalize( Der-Her);
|         $Tvers=vnormalize(vcross(Retn,Her) );
|         $Norm=vnormalize(Her);
|         sphere { 0, .25 ,1.2 scale <.33,1,1>  // bulk utover
|             matrix <Norm.x,Norm.y,Norm.z,
|                     Retn.x,Retn.y,Retn.z,
|                     Tvers.x,Tvers.y,Tvers.z,
|                     0   ,0   ,0    >
|             translate Her*.99
|         }

|             matrix <Norm.x,Norm.y,Norm.z,
|                     Retn.x,Retn.y,Retn.z,
|                     Tvers.x*.2,Tvers.y*.2,Tvers.z*.2,
|                     0   ,0   ,0    >
|             translate Her*1.02
|         }

|             matrix <Norm.x,Norm.y,Norm.z,
|                     Retn.x,Retn.y,Retn.z,
|                     Tvers.x,Tvers.y,Tvers.z,
|                     0   ,0   ,0    >
|             translate Her*1.04
|         }
|         $a=a+d;
|     #end
|     texture{pigment {Green}}
|     texture{pigment {Svart}}
|     texture {pigment {Batter}}
|     texture {pigment {Logo}}
|     texture {pigment {Major}}
|     finish {specular .1 roughness .05}
|     normal { granite 0.5  scale .01 }
| }

Post a reply to this message