Is there a simpler way to obtain the reference nodes shown as dots below?

\documentclass[dvips,dvipsnames,rgb]{article}
\usepackage{pstricks,pst-node,graphicx}
\psset{framesep=0pt,linewidth=0.1pt}
\SpecialCoor
\newsavebox\mybox
\newenvironment{MyFrameBox}[4][8]{%BEGIN
\def\labeling##1##2{\qdisk(##1){0.2pt}\uput{#3}[##2](##1){\scalebox{#4}{##1}}}%
\def\scaling{%
\scalebox{#1}{%
\rnode[B]{B}{\rnode[c]{c}{\rnode[t]{t}{%
\rnode[tl]{tl}{\rnode[l]{l}{\rnode[Bl]{Bl}{%
\rnode[bl]{bl}{\rnode[b]{b}{\rnode[br]{br}{%
\rnode[Br]{Br}{\rnode[r]{r}{\rnode[tr]{tr}{%
\psframebox[linecolor=lightgray]{#2}}}}}}}}}}}}}%
\labeling{B}{135}\labeling{c}{45}%
\labeling{t}{90}\labeling{tl}{180}%
\labeling{l}{135}\labeling{Bl}{180}%
\labeling{bl}{-90}\labeling{b}{-90}%
\labeling{br}{-90}\labeling{Br}{0}%
\labeling{r}{0}\labeling{tr}{0}%
\psline[linecolor=lightgray](Bl)(Br)%
\usebox{\mybox}}}
\begin{lrbox}{\mybox}\ignorespaces}{%END
\end{lrbox}\scaling\ignorespacesafterend}
\begin{document}
\begin{MyFrameBox}[10]{\color{red}\rm\"Age}{0.5pt}{0.1}
\psset{arrowscale=0.25,arrows=<->}
\ncline[linecolor=blue]{t}{r}
\end{MyFrameBox}
\end{document}