Solsticios

\documentclass{article}[pstricks,border=8pt,12pt]
\usepackage[utf8]{inputenc} \usepackage{geometry} [a4paper,lmargin=1.5cm,rmargin=1.5cm,Botton=1.5cm,top=1.75cm] \usepackage{graphicx} \usepackage{wrapfig} \usepackage{color} \usepackage{amsmath} \usepackage[T1]{fontenc} \usepackage{amsfonts} \usepackage{amssymb} \usepackage{mathrsfs} \usepackage{cancel} \usepackage[all]{xy} \usepackage{pstricks}
\usepackage{pst-pdf}
\usepackage{pst-solides3d}
\usepackage{pst-all}
\usepackage{fancybox} \usepackage{tikz} \usepackage{tikz-3dplot} \usepackage{gnuplottex}
\usepackage{pst-eucl}
%\usepackage{xkeyval}
\tikzset{flippedeventlabel/.append style={align=center}} \usetikzlibrary{matrix.skeleton} \usetikzlibrary[shapes,arrows,positioning,fit,backgrounds,intersections,shadows,calc,shadings] \usetikzlibrary{positioning} \usetikzlibrary{decorations.text} \usetikzlibrary{decorations.pathmorphing} \pgfdeclarelayer{background layer} \pgfdeclarelayer{foreground layer} \pgfsetlayers{background layer,main,foreground layer}
%\usetikzlibrary{datavisualization.formats.functions} \usepackage{pgf-pie}
\usepackage{color,colortbl} \usepackage{lscape} \usepackage{pgfplots} \pgfplotsset{compat=newest} \usetikzlibrary{datavisualization} \usetikzlibrary[shapes,arrows.meta,positioning,fit,backgrounds,intersections,shadows,calc,datavisualization.formats.functions] \usetikzlibrary{patterns} \usepackage[colorlinks=true,linkcolor=black,citecolor=black,filecolor=magenta,urlcolor=blue]{hyperref} %Paquete de estilo de referencias
\urlstyle{same}
\date{\today}
% Start the document
\begin{document}
\pagecolor{black}
% Definición local de colores
\colorlet{AnguloH}{green!50!black} \colorlet{AnguloV}{magenta} \colorlet{Cesferica}{red} \colorlet{Ccilindrica}{blue}
\begin{landscape}

\begin{center}
\tdplotsetmaincoords{75}{120}
\begin{tikzpicture}[scale=1,tdplot_main_coords, information text/.style={rounded corners,inner sep=2ex,fill=red!20}]
\tikzset{callout/.style={ellipse callout, callout pointer arc=30,
callout absolute pointer={#1}}}

\draw (0,0,0) [-,ultra thick, white,x radius=7, y radius=9,fill=orange!60!red!40!black] ellipse;
\node[canvas is xy plane at z = 0, rounded corners,inner sep=2ex,rotate=110] at (-4,-3,0) {\Huge{\bf\textcolor{white}{Plano de Eclíptica}}};
\node[canvas is xy plane at z = 0, rounded corners,inner sep=2ex,rotate=110] at (3,2.5,0) {\Huge{\bf\textcolor{white}{Plano de Eclíptica}}};

\begin{scope}[xshift=8cm,yshift=0.6cm, rotate=23] \tdplotsphericalsurfaceplot[smooth,opacity=0.8]{24}{24}{1} {blue!80}{blue!30}{}{}{ \draw[color=white,thick,->] (0,0,-1.5) -- (0,0,1.5) node[anchor=south]{$N$};} \end{scope}
\begin{scope}[xshift=9.5cm,yshift=0.8cm, rotate=23] \tdplotsphericalsurfaceplot[parametricfill]{24}{24}{0.1} {yellow}{\tdplottheta+\tdplotphi}{}{}{ \draw[color=white,thick,-] (0,0,-0.3) -- (0,0,0.3) node[anchor=south]{\tiny{$n$}};} \end{scope}
\foreach \a in {105,110,...,150}
{
\tdplotsinandcos{\sintheta}{\costheta}{\a}
\pgfmathsetmacro{\x}{9*\costheta}
\pgfmathsetmacro{\y}{9*\sintheta}
\foreach \b in {-2.4,-2.2,...,2.4}
{
\tdplotsinandcos{\sintheta}{\costheta}{\b}
\draw[-,yellow](-1.5,0,0) -- (-\x,-\y,8*\sintheta);
}
}
\begin{scope}[xshift=-8.2cm,yshift=0.5cm, rotate=23] \tdplotsphericalsurfaceplot[smooth,opacity=0.8]{24}{24}{1} {blue!80}{blue!30}{}{}{ \draw[color=white,thick,->] (0,0,-1.5) -- (0,0,1.5) node[anchor=south]{$N$};} \end{scope}
\begin{scope}[xshift=-9.8cm,yshift=0.6cm, rotate=23] \tdplotsphericalsurfaceplot[parametricfill]{24}{24}{0.1} {yellow}{\tdplottheta+\tdplotphi}{}{}{ \draw[color=white,thick,-] (0,0,-0.3) -- (0,0,0.3) node[anchor=south]{\tiny{$n$}};} \end{scope}
\foreach \a in {105,110,...,150}
{
\tdplotsinandcos{\sintheta}{\costheta}{\a}
\pgfmathsetmacro{\x}{8*\costheta}
\pgfmathsetmacro{\y}{8*\sintheta}
\foreach \b in {-2.4,-2.2,...,2.4}
{
\tdplotsinandcos{\sintheta}{\costheta}{\b}
\draw[-,yellow](-1.5,0,0) -- (\x,\y,10*\sintheta);
}
}
\node[callout={(-6,4.5,-2.5)}, fill=blue,rotate=0] at (-6.5,3.5,-5) {\textcolor{white}{Solsticio de Verano en hemisferio norte}};
\node[callout={(10,-2,1)}, fill=white,rotate=0] at (10,-2,-2) {\textcolor{blue}{Solsticio de Invierno en hemisferio norte}};
\draw node [white]at (10,-2,-3) {22 de Diciembre};
\draw node [white]at (-6,5,-6) {\Large{20 de Junio}};
\draw [xshift=-1cm]  node  [below=4.5cm,text width=4cm, information text,scale=1]
{
\href{sitio}{\underline{\textcolor{red}{enlace:} Código \LaTeX }}
};

\end{tikzpicture}
\end{center}
\end{landscape}
\end{document}