Code: Select all
\documentclass{article}
\usepackage{pstricks-add}
\newcounter{lC}
\setcounter{lC}{1}
\begin{document}
\psset{unit=.5in}
\begin{pspicture}(1,5)
\psaxes[labels=none,xAxis=false,linecolor=red,linewidth=1.5pt]{->}(0.5,1)(0.5,5)
\psforeach{\yL}{B,C,D,A}{\uput[180](0,\value{lC}){\yL}\stepcounter{lC}}
\uput[90](.5,0){20}
\end{pspicture}
\begin{pspicture}(2,5)
\psaxes[labels=none,xAxis=false,linecolor=red,linewidth=1.5pt]{->}(2,1)(2,5)
\psforeach{\yL}{B,D,C,A}{\uput[180](2,\value{lC}){\yL}\stepcounter{lC}}
\uput[90](2,0){22}
\end{pspicture}
\end{document}