\begin{tikzpicture}[scale=2.9] {%<<<
  \newcommand*\spherex[2]{((sin(#1)*cos(20)+sin(20)*sin(#2))*cos(65) + sin(65)*(sin(#1)*sin(#1)+sin(#2)*sin(#2)))}
  \newcommand*\spherez[2]{((sin(#2)*cos(20)-sin(20)*sin(#1))*cos(20) - sin(20)*(sin(#1)*sin(#1)+sin(#2)*sin(#2)))}

  \newcommand*{\dx}{0.10}
  \newcommand*{\ddx}{0.10}
  \newcommand*\drawquad[9]{ %<<<
    %\foreach \y in {0,\dx,...,1.0} {
    \foreach \y in {0.017037, 0.146447, 0.370590, 0.629410, 0.853553, 0.982963} {
      \foreach \x in {0,\ddx,...,0.99} {
        \draw[black!25] ({#9*\spherex{(#1*\x+(1-\x)*#3)*\y+(1-\y)*(#5*\x+(1-\x)*#7)}{(#2*\x+(1-\x)*#4)*\y+(1-\y)*(#6*\x+(1-\x)*#8)}},{#9*\spherez{(#1*\x+(1-\x)*#3)*\y+(1-\y)*(#5*\x+(1-\x)*#7)}{(#2*\x+(1-\x)*#4)*\y+(1-\y)*(#6*\x+(1-\x)*#8)}}) --  ({#9*\spherex{(#1*(\x+\ddx)+(1.0-\ddx-\x)*#3)*\y+(1-\y)*(#5*(\x+\ddx)+(1.0-\ddx-\x)*#7)}{(#2*(\x+\ddx)+(1.0-\ddx-\x)*#4)*\y+(1-\y)*(#6*(\x+\ddx)+(1.0-\ddx-\x)*#8)}},{#9*\spherez{(#1*(\x+\ddx)+(1.0-\ddx-\x)*#3)*\y+(1-\y)*(#5*(\x+\ddx)+(1.0-\ddx-\x)*#7)}{(#2*(\x+\ddx)+(1.0-\ddx-\x)*#4)*\y+(1-\y)*(#6*(\x+\ddx)+(1.0-\ddx-\x)*#8)}}) ;
        \draw[black!25] ({#9*\spherex{(#1*\y+(1-\y)*#3)*\x+(1-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*\x+(1-\x)*(#6*\y+(1-\y)*#8)}},{#9*\spherez{(#1*\y+(1-\y)*#3)*\x+(1-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*\x+(1-\x)*(#6*\y+(1-\y)*#8)}}) --  ({#9*\spherex{(#1*\y+(1-\y)*#3)*(\x+\ddx)+(1.0-\ddx-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*(\x+\ddx)+(1.0-\ddx-\x)*(#6*\y+(1-\y)*#8)}},{#9*\spherez{(#1*\y+(1-\y)*#3)*(\x+\ddx)+(1.0-\ddx-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*(\x+\ddx)+(1.0-\ddx-\x)*(#6*\y+(1-\y)*#8)}}) ;
      }
    }
    \foreach \y in {0,1.0} {
      \foreach \x in {0,\ddx,...,0.99} {
        \draw ({#9*\spherex{(#1*\x+(1-\x)*#3)*\y+(1-\y)*(#5*\x+(1-\x)*#7)}{(#2*\x+(1-\x)*#4)*\y+(1-\y)*(#6*\x+(1-\x)*#8)}},{#9*\spherez{(#1*\x+(1-\x)*#3)*\y+(1-\y)*(#5*\x+(1-\x)*#7)}{(#2*\x+(1-\x)*#4)*\y+(1-\y)*(#6*\x+(1-\x)*#8)}}) --  ({#9*\spherex{(#1*(\x+\ddx)+(1.0-\ddx-\x)*#3)*\y+(1-\y)*(#5*(\x+\ddx)+(1.0-\ddx-\x)*#7)}{(#2*(\x+\ddx)+(1.0-\ddx-\x)*#4)*\y+(1-\y)*(#6*(\x+\ddx)+(1.0-\ddx-\x)*#8)}},{#9*\spherez{(#1*(\x+\ddx)+(1.0-\ddx-\x)*#3)*\y+(1-\y)*(#5*(\x+\ddx)+(1.0-\ddx-\x)*#7)}{(#2*(\x+\ddx)+(1.0-\ddx-\x)*#4)*\y+(1-\y)*(#6*(\x+\ddx)+(1.0-\ddx-\x)*#8)}}) ;
        \draw ({#9*\spherex{(#1*\y+(1-\y)*#3)*\x+(1-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*\x+(1-\x)*(#6*\y+(1-\y)*#8)}},{#9*\spherez{(#1*\y+(1-\y)*#3)*\x+(1-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*\x+(1-\x)*(#6*\y+(1-\y)*#8)}}) --  ({#9*\spherex{(#1*\y+(1-\y)*#3)*(\x+\ddx)+(1.0-\ddx-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*(\x+\ddx)+(1.0-\ddx-\x)*(#6*\y+(1-\y)*#8)}},{#9*\spherez{(#1*\y+(1-\y)*#3)*(\x+\ddx)+(1.0-\ddx-\x)*(#5*\y+(1-\y)*#7)}{(#2*\y+(1-\y)*#4)*(\x+\ddx)+(1.0-\ddx-\x)*(#6*\y+(1-\y)*#8)}}) ;
      }
    }

  } %>>>

  \drawquad  {-10}{-10} {-10}{10} {-5}{-5} {-5}{5} {10}
  \drawquad  {5}{-5} {5}{5} {10}{-10} {10}{10} {10}
  \drawquad  {-5}{5} {-10}{10} {5}{5} {10}{10} {10}
  \drawquad  {-10}{-10} {-5}{-5} {10}{-10} {5}{-5} {10}

  \drawquad  {-5}{-5} {-5}{5} {-2.5}{-2.5} {-2.5}{2.5} {10}
  \drawquad  {2.5}{-2.5} {2.5}{2.5} {5}{-5} {5}{5} {10}
  \drawquad  {-2.5}{2.5} {-5}{5} {2.5}{2.5} {5}{5} {10}
  \drawquad  {-5}{-5} {-2.5}{-2.5} {5}{-5} {2.5}{-2.5} {10}

  \drawquad  {-2.5}{-2.5} {-2.5}{2.5} {-1.25}{-1.25} {-1.25}{1.25} {10}
  \drawquad  {1.25}{-1.25} {1.25}{1.25} {2.5}{-2.5} {2.5}{2.5} {10}
  \drawquad  {-1.25}{1.25} {-2.5}{2.5} {1.25}{1.25} {2.5}{2.5} {10}
  \drawquad  {-2.5}{-2.5} {-1.25}{-1.25} {2.5}{-2.5} {1.25}{-1.25} {10}

  \drawquad  {-1.25}{-1.25} {-1.25}{1.25} {0}{0} {0}{0} {10}
  \drawquad  {0}{0} {0}{0} {1.25}{-1.25} {1.25}{1.25} {10}
  \drawquad  {0}{0} {-1.25}{1.25} {0}{0} {1.25}{1.25} {10}
  \drawquad  {-1.25}{-1.25} {0}{0} {1.25}{-1.25} {0}{0} {10}

  \fill[fill=black, opacity=0.9] (-1.00,0) circle[radius=0.7pt];
  \fill[fill=black, opacity=0.9] (-0.66,0) circle[radius=0.7pt];
  \fill[fill=black, opacity=0.9] (-0.44,0) circle[radius=0.7pt];
  \fill[fill=black, opacity=0.9] (-0.29,0) circle[radius=0.7pt];
  \fill[fill=black, opacity=0.9] (-0.20,0) circle[radius=0.7pt];
  \fill[fill=black, opacity=0.9] (-0.13,0) circle[radius=0.7pt];
  \draw[blue!70] (0,0) --  (-1.0,0) ;

  \fill[fill=red, opacity=1.000000] (-0.0,0) circle[radius=1.0pt];
  \draw (0.2,-0.0) node {\Huge $X$ };

} \end{tikzpicture} %>>>

