[Tex/LaTex] Elliptic arrow line in PSTricks

pstricks

How can I draw an elliptic line with arrow around a line in PSTricks?

Example is visible in this picture around the 'Geographic North Pole':

The question is quite similar to How to draw a not fully-connected elliptic arrow using TikZ? but I need a solution for pstricks.

I tried to manage it with pscurve but I was not able to get an symmetric result.

Is it possible to bound this elliptic line on a psline, which you can see in the code below?

\documentclass[a4paper]{article}
\usepackage{pstricks}

\begin{document}
\begin{pspicture}(-4,-4)(6,6)
\psgrid[subgriddiv=0](0,0)(-11,-11)(11,11)
\psline[origin={0.05,0}](10; 65.25)
\psline[origin={0.05,0}](10;245)
\psline[origin={0.05,0},linestyle=dashed](10; 76.75)
\psline[origin={0.05,0},linestyle=dashed](10;256.75)
\end{pspicture}
\end{document}

Best Answer

I tried to reproduce as faithfully as possible the image from your post, with the help of the pst-eucl package:

\documentclass[a4paper, pdf, x11names]{standalone}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\usepackage{pstricks-add, pst-eucl}
\usepackage{graphicx}
\usepackage{siunitx}
\sisetup{detect-family, detect-weight, detect-mode}

\begin{document}

\noindent\centering\sffamily\bfseries\footnotesize
\psset{unit = 6mm}
\begin{pspicture}(-13,-10)(12.5,10)
    \psframe*[linecolor=DodgerBlue4!65!Black](-13,-10)(12.5,10)
    \psclip{\pscircle[linestyle=none](0.09,0.015){2.}}\rput(0,0){\psscaleboxto(4.25,4.0){\includegraphics{simpleglobe.eps}}}\endpsclip
    \psset{ linecolor=Yellow1, PointSymbol=none, PointName=none}
    \psrotate(0,0){-13.25}{\pstGeonode(2; 90){A}(2; -90){B}(0,0){O}(1,0){I}%
        \psline[ linestyle=dashed, linecolor=red](10; -90)(10; 90)
        \rput[tr]{13.25}(10; 90){\begin{tabular}{>{\color{white}}r@{\quad}}North\\Magnetic\\Pole\end{tabular}}
        \rput[bl]{13.25}(10; -90){\begin{tabular}{@{\quad}>{\color{white}}l}South\\Magnetic\\Pole\end{tabular}}
        \rput[tl]{13.25}(10;78.5){\begin{tabular}{>{\color{white}}l}Geographic\\North Pole\end{tabular}}
        \rput[br]{13.25}(10;-101.5){\begin{tabular}{>{\color{white}}l@{\,}}\color{white}Geographic\\South Pole\end{tabular}}
        \psline[linecolor=SeaGreen3](10;78.5)(-10;78.5)
        \psarc(0,0){7}{78.64}{89.86}\rput[bc]{-5.75}(7.3; 83){\color{white}\scriptsize\ang{11,5}}
        \psellipticarc[arrows=->, rot=-5.75](8.5; 78.5)(0.7,0.3){100}{50}
        \psellipticarc[arrows=->, rot=-5.75](-8.5; 78.5)(0.7,0.3){100}{50}
        \pstriangle*[linecolor=white](0,0.08)(0.5,1.6)
        \pstriangle*[linecolor=red](0,-0.08)(0.5,-1.6)
        \multido{\i =1 + 1}{6}{\psset{linewidth=1.2pt}%
            \psscalebox{1 1.10}{%
                \pstGeonode(\i; 180){O\i}\pstGeonode(\i; 0){P\i}
                \pstArcOAB{O\i}{A}{B}\pstArcOAB {P\i}{B}{A}
                \pstInterLC{I}{J}{O\i}{A}{N\i}{M\i}\pstInterLC{I}{J}{P\i}{A}{S\i}{R\i}
                \psdots[dotstyle=triangle*, dotscale=0.8 1](M\i)(R\i)
    }}}
\end{pspicture}

\end{document}

enter image description here

The graphics file was obtained from this site, where you can find a lot of globes. I used "A simple globe" on page 10.

Related Question