[pstricks] 3D surface on non rectangular domain

leon.free at free.fr leon.free at free.fr
Sat Mar 4 17:03:15 CET 2017


Ok! The horizontal line has disapeared, but now there's a vertical line below the surface (still located at xytranslate). You can see it if
you use viewpoint=50 20 20 and remove the cylinder:

\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\psset{viewpoint=50 20 20 rtp2xyz,Decran=100,lightsrc=viewpoint}
\begin{pspicture}(-5,-4)(6,10)
\psSolid[object=grille,base=-2 2 -2 2,action=draw]%
	\axesIIID(0,0,0)(2,2,1)
	\psSurface*[
	fillcolor=cyan,r=1,xytranslate=0.5 0.5,
	ngrid=.25 .25,incolor=yellow,grid,
	algebraic](-1,-1)(1,1){ e^(x*y) }
%\psSolid[object=cylindre,r=1,h=4,action=draw,ngrid=1 18](0.5,0.5,0)
	\psPoint(0,0,1){O}
	\psPoint(0,0,5){Z}
	\psline{->}(O)(Z)
	\uput[r](Z){$z$}
	\psPoint(0.5,0.5,0){C}
	\psdot[linecolor=red,dotstyle=x,dotscale=2](C)
\end{pspicture}
\end{document}

elef


----- Mail original -----
De: "Herbert Voss" <Herbert.Voss at FU-Berlin.DE>
À: pstricks at tug.org
Envoyé: Samedi 4 Mars 2017 15:27:24
Objet: Re: [pstricks] 3D surface on non rectangular domain

Am 04.03.2017 um 13:56 schrieb leon.free at free.fr:

> As with Manuel solution, yours also draws a line between the z-axis and the center of the ball on which the surface is draw. You can clearly see it by changing viewpoint to 50 340 20. Your test file with this value (see attached pdf produced when I compile it after copying pst-solides3d.tex, pst-solides3d.pro and pst-implicitsurface.pro on my system):

Try again with the attached pst-solides3d.pro. It should work and
then replace it with the current one in
/usr/local/texlive/texmf-local/dvips/pst-solides3d.pro

\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\psset{viewpoint=50 340 20 rtp2xyz,Decran=100,lightsrc=viewpoint}
\begin{pspicture}(-5,-4)(6,10)
\psSolid[object=grille,base=-2 2 -2 2,action=draw]%
	\axesIIID(0,0,0)(2,2,1)
	\psSurface*[
	fillcolor=cyan,r=1,xytranslate=0.5 0.5,
	ngrid=.25 .25,incolor=yellow,grid,
	algebraic](-1,-1)(1,1){ e^(x*y) }
\psSolid[object=cylindre,r=1,h=4,action=draw,ngrid=1 18](0.5,0.5,0)
	\psPoint(0,0,1){O}
	\psPoint(0,0,5){Z}
	\psline{->}(O)(Z)
	\uput[r](Z){$z$}
	\psPoint(0.5,0.5,0){C}
	\psdot[linecolor=red,dotstyle=x,dotscale=2](C)
\end{pspicture}
\end{document}

Herbert

_______________________________________________
PSTricks mailing list
PSTricks at tug.org
http://tug.org/mailman/listinfo/pstricks
archive: http://www.tug.org/pipermail/pstricks/



More information about the PSTricks mailing list