Revise paste Proyección Estereográfica (Standalone)

\documentclass{standalone}
%Paquete para Referencias Web
\usepackage [colorlinks=true,linkcolor=green! 40!blue,citecolor=green!40!blue,filecolor=magenta, urlcolor= green!80!blue!80!black]{hyperref}
%Paquete de estilo de Referencias
\urlstyle{same}
\usepackage[all]{xy}
\usepackage{pst-all}
\usepackage{tikz}
\usepackage{gnuplottex}
\usetikzlibrary[shapes,arrows,positioning,fit,backgrounds,intersections,shadows,calc]
\usetikzlibrary{positioning} \usetikzlibrary{decorations.text} \usetikzlibrary{decorations.pathmorphing}

\usepackage{lscape}
\usepackage{pgfplots}
\usepackage{tikz,tikz-3dplot}

\tikzstyle{point}=[inner sep=0pt, outer sep=0pt, minimum size=2pt,fill=black,shape=circle]

\begin{document}
\colorlet{AnguloH}{green!50!black}
\colorlet{AnguloV}{magenta}
\colorlet{Cesferica}{red}
\colorlet{Ccilindrica}{blue}
%\begin{landscape}%Vuelve la página en horizontal 
\pagecolor{black}
\noindent

\Large{\textcolor{blue}{Perspectiva en }\\
\textcolor{red}{Tikz-3dplot }}\\
\href{enlace}{\underline{\textcolor{white}{enlace:} Código \LaTeX }}

\tdplotsetmaincoords{80}{100}
\begin{tikzpicture}[scale=1,line join=bevel,tdplot_main_coords,fill opacity=0.9]

\tdplotsphericalsurfaceplot[parametricfill]{36}{24}
{2}{green}{3*\tdplottheta+3*\tdplotphi}
{}%Sin eje x
{}%Sin eje y
{}%Sin eje z
%Las proyecciones 
\foreach \a in {-1.6,-1.4,...,1.8}
{
\pgfmathsetmacro{\k}{sqrt(4-\a^2)}
\pgfmathsetmacro{\t}{4*\k/(2-\a)}
 \foreach \b in {0,5,...,360}
{
\tdplotsinandcos{\sintheta}{\costheta}{\b}
\draw [fill=green] (\k*\costheta, \k*\sintheta, \a) circle (1.5pt)node {};
\draw[-,dashed, orange](0,0,2)--(\k*\costheta, \k*\sintheta, \a);
\draw[->, orange] (\k*\costheta, \k*\sintheta, \a)--(\t*\costheta, \t*\sintheta, -2);

\fill [green](\t*\costheta, \t*\sintheta, -2) circle (1.5pt);
}
}
%Los polos
\fill[white] (0,0,-2) circle (2pt);
\fill[black] (0,0,2) circle (2pt);

\draw [-,dashed](0,0,-2.3)--(0,0,2.3);

\end{tikzpicture}
\begin{tikzpicture}[scale=1,information text/.style={rounded corners, fill=blue!25,inner sep=2ex}]

\draw [xshift=1.85cm]  node  [below=2cm,text width=7.5cm, information text,scale=1.5] 
{
\texttt{\textbackslash tdplotsetmaincoords\{\textcolor{AnguloH}{80}\}\{\textcolor{AnguloV}{100}\} }\\

\texttt{\textbackslash begin\{tikzpicture\} } \\
 
\hspace{1cm} $\vdots$ \hspace{0.2cm} \textcolor{blue}{\tiny{código}}\\
 
\texttt{\textbackslash end\{tikzpicture\} }
};
\end{tikzpicture}
%\end{landscape}
\end{document}