Como evitar que o rótulo do meu nó seja deslocado para a esquerda?

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}

Como evitar que o rótulo do meu nó R_{i,j,k,l}seja deslocado para a esquerda sem usar PointNameSep?

Answer 1

Claro que isso não é um bug, mas sim um recurso não identificado ;)

Você pode definir uma nova chave, por exemplo, PointNameAligne redefinir \Pst@PutPointLabelpara usar esta chave como parâmetro de alinhamento 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}

A única diferença em relação à definição original é o [\psk@PointNameAlign].

Answer 2

A razão é que, pelo que entendi, a colocação de rótulos depende de \rput. O valor padrão PointNameSepé 1em, e então o próprio rótulo é colocado na leftposição assim definida. Deve estar à direita para rótulos à direita do ponto e à esquerda para rótulos à esquerda. Uma solução é aumentar o valor de PointNameSep por tentativa e erro; outra é definir PointName=nonee usar \uput. Ambas as soluções são ilustradas com 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}