[pstricks] pst-3dplot writing strange text: ,23falsefalse,
Poul Riis
Poul.Riis at skolekom.dk
Sat Oct 16 00:03:15 CEST 2010
I still get this strange ',23falsefalse,' written on the screen when I use
pst-3dplot. There must be a bug somewhere? Or am I really the only one?
Please try example below.
Poul Riis
\documentclass{article}
\usepackage{pst-3dplot,pstricks-add}
\pagestyle{empty}
\makeatletter
\def\psDichtePlot{\pst at object{psDichtePlot}}
\def\psDichtePlot at i(#1,#2,#3)(#4,#5,#6)#7{%
\pst at killglue
\begingroup
\begin at SpecialObj%
\addto at pscode{
% /p [ [ [xyz][xyz]...][xyz][xyz] ] ... [ [xyz][xyz]...][xyz][xyz] ] ] def
% to allow more than 64 kByte values
/zMin 0 def /zMax 0 def
/p [
#1 #2 #3 {
/x ED
[
#4 #5 #6 {
/y ED
[
x y #7 dup /zVal ED
zVal zMax gt { /zMax zVal def } if
zVal zMin lt { /zMin zVal def } if
]
} for
]
} for
] bind def
zMax zMin sub /zDiff ED
0 1 p length 1 sub {
/Index ED
p Index get /xRowArray ED % get a line
0 1 xRowArray length 1 sub {
/rowIndex ED
xRowArray rowIndex get aload pop % get 3 values
dup /zVal ED
tx at 3DPlotDict begin Conv3D2D end
\pst at number\psyunit mul exch
\pst at number\psxunit mul exch
newpath
0.5 0 360 arc
gsave
zVal zMin sub zDiff div 380 mul 420 add tx at addDict begin
wavelengthToRGB Red Green Blue end setrgbcolor
fill
stroke
grestore
} for
} for
}%
\end at SpecialObj%
\endgroup%
\ignorespaces%
}
\makeatother
\begin{document}
\psset{unit=2,Alpha=0,Beta=90}
\begin{pspicture}(-1,-1)(2,2)
\pstThreeDCoor[xMin=-4,xMax=4,yMin=0,yMax=8,zMin=0,zMax=4]%
\psDichtePlot(-4,0.025,4)(0,0.025,8){x y sub abs}
\end{pspicture}
\end{document}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20101016/c972efcc/attachment-0001.html>
More information about the PSTricks
mailing list