[pstricks] psPrintValue

[Herbert Voss]

Poul Riis schrieb:
> I'd better correct some stupid errors in the example....

there are now the optional arguments valUnit= and valUnitSep=...

\documentclass{article}
\usepackage{amsmath,amssymb}
\usepackage{helvet,mathptmx}
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage[danish]{babel}
\usepackage[svgnames,x11names]{xcolor}
\usepackage{pst-func}
\usepackage{pstricks-add}

\makeatletter
\define at key[psset]{pst-func}{valUnit}{\def\psk at valunit{#1}}
\define at key[psset]{pst-func}{valUnitSep}{\pst at getlength{#1}\pst at valUnitSep }
\psset[pst-func]{PSfont=Times-Roman,fontscale=10,valuewidth=10,
	valUnit={},valUnitSep=2pt}% unit and sep between value and unit
%
\def\psPrintValue{\pst at object{psPrintValue}}
\def\psPrintValue at i#1{%
  \begin at SpecialObj
  \addto at pscode{
     gsave \psk at PSfont findfont \psk at fontscale scalefont setfont
     #1 \psk at valuewidth string cvs 0 0 moveto show
	\pst at valUnitSep\space 0 rmoveto(\psk at valunit) show grestore
  }%
  \end at SpecialObj%
}\makeatother

\begin{document}
\begin{center}
\psset{xunit=4cm,yunit=10cm}
\begin{pspicture}(-1.85,0)(1.85,1.05)
\psaxes[ticksize=-3pt 0,Dx=0.2,Dy=0.1]{->}(0,0)(-1.85,0)(1.85,1.05)
\pstVerb{/pi 3.14159265 def /aa 0.0025 def /lambda 0.00006328 def /kk pi
	aa mul lambda div def /LL 50 def}%%%% Everything in cm
\psplot[linecolor=red,plotpoints=200,linewidth=1.5pt]{-1.8}{1.8}{
	x dup mul LL dup mul add
	sqrt x exch div kk mul /alpha exch def alpha RadtoDeg sin alpha div
	dup mul x LL div dup mul 1 add div}
\uput{0pt}[0](1.0,0.95){$\lambda=$%
	\psPrintValue[valUnit=nm]{lambda 10000 mul 1000 mul}}
\uput{0pt}[0](1.0,0.90){$a=$\psPrintValue[valUnit=mm]{aa 10 mul}}
\uput{0pt}[0](1.0,0.85){$L=$\psPrintValue[valUnit=cm]{LL}}
\uput{7pt}[90](1.7,0){$x$ /cm}
\uput{9mm}[180]{90}(0,0.85){Intensity (arbitrary units)}
\end{pspicture}
\end{center}
\end{document}


Herbert