\documentclass[a4paper]{article}
\usepackage{pst-V3D}
\usepackage{pst-solides3d}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}% utiliser obligatoirement ce codage !!!
% sinon affichage des lettres accentuées
% très perturbées !!!
\input{cylindre_object.tex}
\def\Rectangle(#1,#2)(#3,#4){
newpath
#1 #2 moveto
#3 #2 lineto
#3 #4 lineto
#1 #4 lineto
 closepath }

\makeatletter
\def\psPoint{\def\pst@par{}\pst@object{psPoint}}
\def\psPoint@i(#1)#2{{% coordonnées cartésiennes
  \begin@ClosedObj
\pnode(!
    \tx@optionssolides
    SolidesDict begin
    #1
   3dto2d cm_1 exch cm_1 exch
   end){#2}%
   \end@ClosedObj
  }\ignorespaces%
}
\makeatother

\definecolor{bleupale}{rgb}{0.8 .8 1}
\def\grille{% quadrillage du plan Oxy
\psPoint(-4 -6 0){A1}\psPoint(4 -6 0){A2}
\psPoint(4 6 0){A3}\psPoint(-4 6 0){A4}
\pspolygon*[linecolor=bleupale](A1)(A2)(A3)(A4)
\multido{\ix=-4+1}{9}{%
    \psPoint(\ix\space -6 0){A}
    \psPoint(\ix\space 6 0){B}
    \psline(A)(B)}
\multido{\iy=-6+1}{13}{%
    \psPoint(-4 \iy\space 0){A}
    \psPoint(4 \iy\space 0){B}
    \psline(A)(B)}}

\pagestyle{empty}
\begin{document}
\begin{center}
\begin{pspicture*}(-6,-3)(6,7)
\psframe(-6,-3)(6,7)
\psset{THETA=60,PHI=30,Dobs=50,Decran=35,nF=24}
\psset[pst-V3D]{thetaLight=30,phiLight=30,dLight=50,hsbcolor=0.5 0.5}
\planThreeDput[fillstyle=solid,fillcolor=bleupale,normale=90 -90]{\Rectangle(-4,-6)(4,6)}
\planThreeDput[normale=90 -90,fontscale=0.5]{\Grille(-4,-6)(4,6)}
\psCylindre[RotX=-90](0,-4,4){4}{8}
\end{pspicture*}
\end{center}
\definecolor{BLEU}{hsb}{0.5 0.5 0.8}
\begin{center}
\begin{pspicture*}(-6,-3)(6,7)
\psframe(-6,-3)(6,7)
\psset[pst-solides3d]{viewpoint=50 60 30,Decran=35,lightsrc=28 33 25,SphericalCoor=true,color=BLEU}
\grille
\psSolid[action=draw**,object=cylindre,ngrid=5 24,RotX=-90,h=8,r=4](0,-4,4)
\end{pspicture*}
\end{center}
\end{document}
