[pstricks] more 3d arrows

[Jon Joseph]

Can someone explain this behavior:

1)  When I place \AmpereLaw using \rput(0,0){\AmpereLaw{2mm}} as in the first example everything looks correct:

\documentclass{article}
\usepackage[dvipsnames]{pstricks}
\usepackage{pst-solides3d}


\newcommand{\AmpereLaw}[1]{%
 \begingroup
 	\psset{unit=#1}
	\psset{viewpoint=10 30 30 rtp2xyz, Decran=30}
	\axesIIID(0,0,0)(3,3,3)
	\defFunction{mycylinder}(u,v){2 u Cos mul}{2 u Sin mul}{v}
	\psSolid[object=surfaceparametree,
		base=pi 2 div 9 pi mul 4 div  0 .25,
		ngrid=30,
		function=mycylinder,
		grid,
		incolor=red!20,
		fillcolor=red,
		action=draw**]
	\psSolid[
		object=face,
		fillcolor=red,
		incolor=blue,
		biface,
		base=0 0 .5 0 .25 .75,
		linecolor=red,
		RotY=90,
		RotZ = 60,
		action=draw**](2 sqrt, 2 sqrt, .375)
	\psSolid[
		object=vecteur,
		args=0 0 2,
		linewidth=2pt,
		linecolor=blue]
	\psPoint(0,0,2.2){A}
	% \uput[0](A){\psscalebox{1.5}{$\vec{\omega}$}}
 \endgroup
}

\begin{document}

\psset{unit=8mm}
\begin{pspicture}[showgrid=true](-5,-5)(5,5)
	%\psset{viewpoint=10 30 30 rtp2xyz, Decran=30}
	%\AmpereLaw{2mm}
	\rput(0,0){\AmpereLaw{2mm}}
	\qdisk(0,0){3pt}
	%\rput{90}(0,0){\AmpereLaw{2mm}}
	%\axesIIID(0,0,0)(3,3,3)
\end{pspicture}

\end{document}


2) Now change the \rput to \rput(2,2){\AmpereLaw{2mm}}. I expect the entire drawing to move. However only the axes move?  Are the \psSolid commands overriding the \rput? 


\documentclass{article}
\usepackage[dvipsnames]{pstricks}
\usepackage{pst-solides3d}


\newcommand{\AmpereLaw}[1]{%
 \begingroup
 	\psset{unit=#1}
	\psset{viewpoint=10 30 30 rtp2xyz, Decran=30}
	\axesIIID(0,0,0)(3,3,3)
	\defFunction{mycylinder}(u,v){2 u Cos mul}{2 u Sin mul}{v}
	\psSolid[object=surfaceparametree,
		base=pi 2 div 9 pi mul 4 div  0 .25,
		ngrid=30,
		function=mycylinder,
		grid,
		incolor=red!20,
		fillcolor=red,
		action=draw**]
	\psSolid[
		object=face,
		fillcolor=red,
		incolor=blue,
		biface,
		base=0 0 .5 0 .25 .75,
		linecolor=red,
		RotY=90,
		RotZ = 60,
		action=draw**](2 sqrt, 2 sqrt, .375)
	\psSolid[
		object=vecteur,
		args=0 0 2,
		linewidth=2pt,
		linecolor=blue]
	\psPoint(0,0,2.2){A}
	% \uput[0](A){\psscalebox{1.5}{$\vec{\omega}$}}
 \endgroup
}

\begin{document}

\psset{unit=8mm}
\begin{pspicture}[showgrid=true](-5,-5)(5,5)
	%\psset{viewpoint=10 30 30 rtp2xyz, Decran=30}
	%\AmpereLaw{2mm}
	\rput(2,2){\AmpereLaw{2mm}} %<--------------- ONLY CHANGE FROM EXAMPLE 1
	\qdisk(0,0){3pt}
	%\rput{90}(0,0){\AmpereLaw{2mm}}
	%\axesIIID(0,0,0)(3,3,3)
\end{pspicture}

\end{document}