blob07

The blob in all its glory:

Twirl with your mouse

$\frac{1}{{\left(x^2+y^2+0.25{\left(z-1.\right)}^2\right)}^{0.5}}+\frac{1}{{\left({\left(x-0.943\right)}^2+y^2+0.25{\left(z+0.333\right)}^2\right)}^{0.5}}+\frac{1}{{\left({\left(x+0.471\right)}^2+{\left(y-0.816\right)}^2+0.25{\left(z+0.333\right)}^2\right)}^{0.5}}+\frac{1}{{\left({\left(x+0.471\right)}^2+{\left(y+0.816\right)}^2+0.25{\left(z+0.333\right)}^2\right)}^{0.5}}>4.8$

Click on the snapshot to download the blob's stl file.

1; # Prevent Octave from thinking that this is a function
   # though one is defined here
   
  function w = f(x2,y2,z2,c,r,e) 
   x  = (x2-c(1))/r(1);
   y  = (y2-c(2))/r(2);
   z  = (z2-c(3))/r(3);
   # function at origin must be <0, and >0 far enough away.  w=0 defines the surface
 kr = -0.5;
 w= (x.^2 + y.^2 + ((z - 1.)*0.5).^2).^kr ...
    + ((x - 0.943).^2 + (y).^2 + ((z + 0.333)*0.5).^2).^kr ...
    + ((x + 0.5).^2 + (y - 0.816).^2 + ((z + 0.333)*0.5).^2).^kr ...
    + ((x + 0.5).^2 + (y + 0.816).^2 + ((z + 0.333)*0.5).^2).^kr - 4.8;

   endfunction;