[pstricks] \psSurface

[Herbert Voss]

robert.fischer10 at arcor.de schrieb:

> do you know why the intersection line of the surface below looks so strange? See attachment...

use a smaller grid


\documentclass{minimal}
\usepackage{pst-pdf}
\usepackage{pst-solides3d}
\pagestyle{empty}

\begin{document}

\psset[pst-solides3d]{lightsrc=viewpoint,lightintensity=1.2,Decran=15}
\def\MyFuncAlg#1#2{1.5*sin(#1*x)*cos(#2*y)}%Already in RAD
\begin{pspicture}(-5.5,-8)(6,2)
\axesIIID[showOrigin=false,axisnames={x,t,y},arrowinset=0,
	arrowscale=1.5](0,0,0)(TwoPi 0.5 add,TwoPi 0.5 add,1.8)
\psSurface[fillcolor=gray,incolor=gray!25,
	linecolor=gray!50,linewidth=0.1\pslinewidth,
	intersectionplan={[0 0 1 0]},
	intersectioncolor=(noir),
	intersectionlinewidth=3,
	intersectiontype=0,
	ngrid=57 57,
	algebraic](0,0)(TwoPi,TwoPi){\MyFuncAlg{1}{1}}
\end{pspicture}
\end{document}


Herbert