\input fp
\input vec2d
\input pstricks

\def\dolist{\afterassignment\dodolist\let\next= }
\def\dodolist{\ifx\next\endlist \let\next\relax
  \else \\\let\next\dolist \fi
  \next}
\def\endlist{\endlist}
\def\hidehrule#1#2{\kern-#1%
  \hrule height#1 depth#2 \kern-#2 }
\def\hidevrule#1#2{\kern-#1{\dimen0=#1
    \advance\dimen0 by#2\vrule width\dimen0}\kern-#2 }
\def\makeblankbox#1#2{\hbox{\lower\dp0\vbox{\hidehrule{#1}{#2}%
    \kern-#1 % overlap the rules at the corners
    \hbox to \wd0{\hidevrule{#1}{#2}%
      \raise\ht0\vbox to #1{}% set the vrule height
      \lower\dp0\vtop to #1{}% set the vrule depth
      \hfil\hidevrule{#2}{#1}}%
    \kern-#1\hidehrule{#2}{#1}}}}
\def\maketypebox{\makeblankbox{0pt}{1pt}}
\def\makelightbox{\makeblankbox{.05pt}{.05pt}}
\def\\{\expandafter\if\space\next\
 \else \setbox0=\hbox{\next}\maketypebox\fi}
\def\demobox#1{\setbox0=\hbox{\dolist#1\endlist}%
  \copy0\kern-\wd0\makelightbox}

Test %\setbox0=\hbox{$36^2$} \showbox0

\pspicture(-1,-2)(14,7)%
  \psset{labelsep=.1}%
  \psset{linewidth=.5pt}%
  \VDDset P(0,0)%
  \VDDtranslateangle QP{6}{-10}%
  \VDDcalctriangletwoangles RP{78}Q{48}%
  \VDDdltriangle PQR
  \VDDdlbissectrice TPRQ
  \VDDdlleadline UPQR
  \VDDintersect SPURT
  \VDDbissectrice MRSP%
  \VDDlpoint RSM{$S$}%
  \VDDlpoint UPR{$36^\circ$}%
  \VDDlpoint RQP{$48^\circ$}%
  \VDDlpoint QPU{$\scriptscriptstyle 1$}%
  \VDDlpoint UPR{$\scriptscriptstyle 2$}%
  \VDDlpoint PST{$\scriptscriptstyle 1$}%
  \VDDlpoint TSU{$\scriptscriptstyle 2$}%
  \VDDlpoint USR{$\scriptscriptstyle 3$}%
  \VDDlpoint RSP{$\scriptscriptstyle 4$}%
  \VDDdanglecross PRT%
  \VDDdanglecross TRQ%
\endpspicture

%\endpspicture

\bye
