global_settings{radiosity{}}

#declare f=function{pigment{granite}};

union {
 isosurface {
  function{x*x+y*y+z*z-f(x,y,z).red} 
  pigment{color rgb<1,1,2>/2}
  finish{specular 1}
 }
 sphere{<-.13,-.05,-.7> .05 
  pigment{rgb<4,2,0>}
 }
 translate z*1.5
}

light_source{0,1}