[Problem] \thput and \tvput doesn't work (PostScript error)

[Denis Girou]

-----------------------------------------------------------------------------
This is the PSTricks mailing list, devoted to discussions about computational
graphics in (La)TeX using the PSTricks package from Timothy van Zandt.
For help using this mailing list, see instructions at the end of message.
-----------------------------------------------------------------------------

  Using \thput or \tvput generate a PostScript error.

  From CHANGES file:

  * 97/09/26 pst-node.tex (93a/b,94beta-97 patch 4): Correct a bug which made
that \thput and \tvput didn't work (it generate a PostScript error)
(reported by Denis Girou <Denis.Girou at idris.fr>)

  My test case is (comment the first \pcline to have the correction worked):

\documentclass{article}

\usepackage{pst-node}

\begin{document}

\pcline(0,0)(4,0)\thput{label}

\makeatletter
\def\psput at tput#1#2{%
\begingroup
\use at par
\pst at tputmakesmall
\leavevmode
\hbox{%
\pst at Verb{%
\pst at nodedict
/t \psk at tpos \pst at tposflip def
tx at NodeDict /HPutPos known
{ #1PutPos }
{ CP /Y ED /X ED /NAngle 0 def /NCLW 0 def }
ifelse
/Sin NAngle sin def
/Cos NAngle cos def
/s \pst at number\pslabelsep NCLW add def
/l \pst at number\pst at dima def
/r \pst at number\pst at dimb def
/h \pst at number\pst at dimc def
/d \pst at number\pst at dimd def
% DG/SR modification begin - Sep. 26, 1997
%\ifnum1=0#2\else
\ifnum1=0#2 \else
% DG/SR modification end
/flag #2 def
\csname tx@#1PutAdjust\endcsname
\fi
\tx at LPutCoor
end
\tx at PutBegin}%
\box\pst at hbox
\pst at Verb{\tx at PutEnd}}%
\endgroup
\pst at shortput}
\makeatother

\pcline(0,0)(4,0)\thput{label}

\end{document}

D.G.

-----------------------------------------------------------------------------
The list interface (subscription, information, access to the archives) is on:
http://www.tug.org/cgi-bin/lwgate/pstricks
Otherway to unsubscribe, send mail to pstricks-request at mail.tug.org
with a blank subject and in body the line unsubscribe <email-address>
-----------------------------------------------------------------------------