\documentclass[12pt]{article} \usepackage{pstricks} \usepackage{pst-grad} \usepackage{pst-vue3d} \newpsstyle{GradGrayWhite}{fillstyle=gradient,% gradbegin=black!30,gradend=white,linewidth=0.1mm}% \pagestyle{empty} \parindent=0pt \begin{document} \iffalse \begin{pspicture}(-3.75,-3.25)(5,5.5) \AxesThreeD[arrows=->](45,40,50) \psset{PortionSphereTHETA=60,PortionSpherePHI=45,linewidth=0.1pt} \SphereThreeD[fillstyle=solid,fillcolor=cyan,linewidth=0.1pt](0,0,0){30} \PortionSphereThreeD[fillstyle=solid,fillcolor=red!30](0,0,0){30} \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,70,35) \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,50,35) \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,70,55) \LineThreeD[SphericalCoor,linestyle=dashed](0,0,0)(30,50,55) \LineThreeD[SphericalCoor](30,70,35)(50,70,35) \LineThreeD[SphericalCoor](30,50,35)(50,50,35) \LineThreeD[SphericalCoor](30,70,55)(50,70,55) \LineThreeD[SphericalCoor](30,50,55)(50,50,55) \PortionSphereThreeD[fillstyle=solid,fillcolor=red!80](0,0,0){50} \psset{linestyle=dashed,linewidth=\pslinewidth} \LineThreeD(0,0,0)(30,0,0) \LineThreeD(0,0,0)(0,30,0) \LineThreeD(0,0,0)(0,0,30) \end{pspicture} \clearpage \fi \begin{pspicture}(-5,-3.5)(3,5)% \psset{THETA=30,PHI=30,Dobs=100,Decran=20}% \SphereThreeD[linewidth=0.5pt](0,0,0){20} % \SphereThreeD[fillstyle=solid,fillcolor=cyan,linewidth=0.1pt](0,0,0){20} % \AxesThreeD[arrows=->](25) \PortionSphereThreeD[style=GradGrayWhite](0,0,0){20}% \pNodeThreeD(20;10;10){C1}% \pNodeThreeD(40;10;10){D1}% \psline(C1)(D1)% \pNodeThreeD(20;10;-10){C2}% \pNodeThreeD(40;10;-10){D2}% \psline(C2)(D2)% \pNodeThreeD(20;-10;-10){C3}% \pNodeThreeD(40;-10;-10){D3}% \psline(C3)(D3)% \pNodeThreeD(20;-10;10){C4}% \pNodeThreeD(40;-10;10){D4}% \psline(C4)(D4)% % \PortionSphereThreeD[style=GradGrayWhite](0,0,0){40}% \psset{linecolor=black,PhiCercle=45,linestyle=dotted}% \makeatletter\def\pst@linetype{1}\makeatother \SphereCercleThreeD(0,0,0){20}% \SphereMeridienThreeD[ThetaMeridien=45](0,0,0){20}% \SphereCercleThreeD[PhiCercle=0](0,0,0){20}% \SphereMeridienThreeD[THETA=30,PHI=30,ThetaMeridien=0](0,0,0){20}% \end{pspicture} \end{document}