¿Cómo evitar que la etiqueta de mi nodo se desplace hacia la izquierda?

Question

\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-eucl}

\begin{document}
\begin{pspicture}(3,4)
    \pstGeonode(1,1){A_i}
    \pstGeonode[PointName=A_j](1,2){Aj}
    \pstGeonode[PointName=R_{i,j,k,l}](1,3){Rijkl}
\end{pspicture}
\end{document}

¿Cómo evitar R_{i,j,k,l}que la etiqueta de mi nodo se desplace hacia la izquierda sin usarla PointNameSep?

Answer 1

Por supuesto, esto no es un error, sino una característica no identificada;)

Puede definir una nueva clave, por ejemplo, PointNameAligny redefinirla \Pst@PutPointLabelpara usar esta clave como parámetro de alineación para \rput:

\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-eucl}
\makeatletter
\define@key[psset]{pst-eucl}{PointNameAlign}{\edef\psk@PointNameAlign{#1}}%
\psset[pst-eucl]{PointNameAlign=c}
\def\Pst@PutPointLabel#1{%DR 041104
  \ifx\psk@PointName\@none\else
    \rput[\psk@PointNameAlign]{*0}([nodesep=\ifx\psk@PointNameSep\@default{1em}\else\psk@PointNameSep\fi,
               angle=\ifx\psk@PosAngle\@undef{0}\else\psk@PosAngle\fi]#1)%
      {\ifPst@PtNameMath$\Pst@WhichLabel{#1}$\else\Pst@WhichLabel{#1}\fi}
  \fi}%
\makeatother
\begin{document}
\begin{pspicture}(3,4)
  \psset[pst-eucl]{PointNameAlign=l}
  \pstGeonode(1,1){A_i}
  \pstGeonode[PointName=A_j](1,2){Aj}
  \pstGeonode[PointName=R_{i,j,k,l}](1,3){Rijkl}
\end{pspicture}
\end{document}

La única diferencia con la definición original es el [\psk@PointNameAlign].

Answer 2

La razón es que, según tengo entendido, la ubicación de las etiquetas depende de \rput. El valor predeterminado de PointNameSepes 1em, y luego la etiqueta en sí se coloca en leftla posición así definida. Debe estar a la derecha para las etiquetas a la derecha del punto y a la izquierda para las etiquetas a la izquierda. Una solución es aumentar el valor de PointNameSep mediante prueba y error; otra es configurar PointName=noney usar \uput. Ambas soluciones se ilustran con este código:

    \documentclass{article}

    \usepackage[utf8]{inputenc}
    \usepackage{mathtools}
    \usepackage{pstricks}
    \usepackage{pst-eucl}
    \usepackage{auto-pst-pdf}

    \begin{document}

    \begin{pspicture}(0,0)(3,5)%
     \pstGeonode(1,1){A_i}
        \pstGeonode[PointName=A_j](1,2){Aj}
        \pstGeonode[PointName=R_{i,j,k,l},PointNameSep =1.85em](1,3){Rijkl}
        \pstGeonode[PointName=none](1,4){Sijkl}\uput{1pt}[r](Sijkl){$ S_{i,j,k,l} $}
    \end{pspicture}

    \end{document}