%@AUTEUR: Manuel Luque, Juergen Gilg
\psset{viewpoint=50 50 20 rtp2xyz,lightsrc=25 37 17,Decran=50,unit=0.75}
\begin{pspicture}(-3.5,-1)(3,15)

\pstVerb{
 /torsion {
2 dict begin
/M defpoint3d % on récupère les coordonnées
/AngleTorsion M 20 mul 3 -2 roll pop pop def
% on tourne de 10 degrés à chaque niveau
M 0 0 AngleTorsion rotateOpoint3d
end} def
}%

\psSolid[object=prisme,h=15,ngrid=20 6,
 base=1.5 0 1.5 1.5 0 1.5 -1.5 1.5 -1.5 0 -1.5 -1.5 0 -1.5 1.5 -1.5,
 transform=torsion,
 fillcolor=lightgray,
 incolor=lightgray,
 hollow,
 opacity=0.6
]%
\end{pspicture}