shading ball 1

\path[domain=-8:8,samples=500,shading=ball,ball color=Burlywood1!50!Apricot] plot({4*sin(\x r)/(cos(\x r)+5)},{cos(\x r)+5});